عادل حنفي

اخي العزيز نزار الفكره جميله بـ navigate و ماقصرت و فقك الله

اخي اسف فقد كان هناك خطأ بالكود ارجع و انسخه مره ثانيه فقد قمت بتعديله

اخي من قائمة view اختر toolbars ومنها اختر visual basic و عند ظهور شريط ادوات visual basic اضغط علي visual basic editor سنظهر لك شاشه علي اليسار في اي مكان فارغ به كليك يمين واختر insert ثم Module وفيه الصق هذا الكود Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant,رقم_الظهور,عمود_النتيجة) For x = 1 To جدول_البيانات.Rows.Count If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then Counter = Counter + 1 If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For End If Next End Function

اخي هذا ما تريد وهذا تم عمله بدالة Voolkup2all و هي من اعمال الاخ العزيز ابو تامر Book1.rar

اخي اتمني ان يكون هذا ما تقصد ان شاء الله بل و اضفت جزء لتقليل الخطأ ارجو اعلامي هل افادك هذا ام لا تحباتي _________.rar

اشكر اخي ابو تامر علي المعلومات القيمه

اخواني الاعزاء الملف المرفق ال VB مغلقة بباسورد 222 و قمت بعمل عدة تعديلات بسيطة لا تقلل ابدا من الجهد المبذول بل نكمل بعضنا للخروج بالعمل بافضل نتيحه و هذا بعد اذن الاخوه الاعزاء اخي العزيز نزار سليمان و اخي العزيز احمد يعقوب تحياتي للجميع goto_the_page_with_pass.rar

اخي اذا صرفت اليوم 1000 جنيه بدون برامج او ببرامج هل ستعرف ماهو توزيع هذ المبلغ فاذ امرت بان تطاع فاطلب المستطاع اي برنامج اخي العزيز لا يعرف الا بما تغذيه بالمعلومات فكيف يعرف الاكسل ان ما تم صرفه هو 500 مرتبات و 300 م.نقل و200 انتقالات الا اذا قلت له انت بذلك ...؟؟؟؟ و اليك الملف بطريقه اخري ____.rar

المعادله الاولي مثل الثالثه و الثانيه مثل الرابعه

اخي ايمن 2010 ارجو ان يفيدك هذا و اعلمني هل هذا ما تريد ام ماذا _________.rar

اخي قد تكون الاجابة في هذ الموضوع هنــــــــــــــــــــا

اعتقد انك لمجرد انك علمت بالمكان الذي يكمن ان تعدل فيه هذا جيد اما ماتطلبه اعتقد يصعب تحقيقه وبعدين انت لو تعبت شويه في برنامج تعدل عليه ليريحك ماذا يحدث فاذا كان التعديل مضبوط اعتقد ستكون هناك الفائده علي الاقل ليريحك بعد ذلك

اخي العزيز RAAD سوف اشرح لك سريعا و بعد ذلك عند و قوفك في اي نقطه اعلمني علي طول متفقين من view ثم Toolbars اختر Vasul Bassic سيظر لك شريط ادوات Vasul Bassic اختر منه Vasul Bassic editor سبدخلك علي بيئة العمل الخاص بال Vasul Bassic تحت الاكسل طبعا عباره عن قائمة تظهر علي اليسار تحتوي علي مايحتويه ملف الاكسل المفتوح حاليا تحتهم وفي مكان فارغ كليك يمين واختار insert ومنها اختر userfourm ستظهر لك fourm جديده وبجانبها الادوات التي يمكن استخدامها متل ماتفضلت commandbuton و ال textbox و غيرها لمجرد ان تختار احداها بالماوس اذهب الي ال fourm و بضغطه واحده علي ال foum سيظهر لك ماتم اختياره وليكن commandbuton1 وعند الضغط مرتان بزر الماوس الايسر علي commandbuton1 ستظهر لك الشاشه او محرر الاكواد لتضع الكود الذي تريد ان يعمل به هذا ال commandbuton1 و اذا رجعت لل fourm و عملت كليك يمين بالماوس علي الcommandbuton1 و قمت باختيار Properties ستظر لك قائمه وهي التي تتحكم بها بطول وعرض و لون ال commandbuton1 مش هطول عليك اكتر من كده ادخل وجرب و نحن معا ان شاء الله تحياتي

اعتقد ياخي انة يمكن هذا و لكن عن طريق VB إضغط هنا لزيارة هذا الموضوع

ملف قيم ولك كل الشكر عليه

اخي الملف المرفق قد يساعدك و هذا تبعا لما فهمته و اذا مافهمته كان خظأ ارسل مثالا لمحاولة مساعدتك تحياتي IF.rar

اخواني الاعزاء الملف المرفق ال VB مغلقة بباسورد 222 و قمت بعمل عدة تعديلات بسيطة لا تقلل ابدا من الجهد المبذول بل نكمل بعضنا للخروج بالعمل بافضل نتيحه و هذا بعد اذن الاخوه الاعزاء اخي العزيز نزار سليمان و اخي العزيز احمد يعقوب تحياتي للجميع goto_the_page_with_pass.rar

جزاك الله خيرا اخي نزار

اخي قد يفيدك هذا تحياتي example_print.rar

اخي RAAD الفكره ممتازه و انا كده عرفت انت عايز الفورم ليه ربنا يقدرني و نعمل معا للخروج بنتيحه جيده ان شاء الله

اخي العزيز RAAD اخي سوف احاول ان شاء الله تنظيم الوقت لعمل شرح كامل ان شاء الله و لكن احتاج لبعض الوقت للقيام بذلك و الي ان اقوم بهذا اذا كان هناك سؤال محدد في جزئيه معينه فانا جاهز لان الشرح الكامل قد يتشعب و سيأخذ وقتا

اخي العزيز احمد يعقوب اخي العزيز نزار سليمان اولا السلام عليكم و رحمة الله و بركاته اود ان اعلمكم ان بداية دخولي هذا المنتدي كانت من باب التبحر وحب المعرفه لكنني وجدت هنا مالم اجده في منتدي اخر و هو التواصل التام و نكران الذات مهما ارتفعت درجة المعرفة والذي يقابل هذا انك تقوم باقصي جهد لمن يحتاج لشيئ (طبعا اذا كانت لديك المعلومه) او تقع في موقع السائل دون حرج متأكدا انك ستجد الاجابه مما ادفئنا حبا واحتراما لمن جعلونا نحب و نحترم هذا المنتدي ان كلامكم اخواني امرا و انا جاهز ان شاء الله مع الوضع في الاعتبار و الكلام عن نفسي طبعا انني مجتهد و ليس مبرمجا وابدأوا معي لتخيل افكاره و ربنا يقوينا لعمل يكون في ميزان حسناتنا جميعا ان شاء الله

اخي وفقا لما اوردته لا يوجد فرق نهائيا و يوجد الفرق اذ كانت الصيغه كاتالي =$C$4*A4 قمت بتثبيت عملية الضرب في قيمة الخليه C4 مرفق مثال example.rar

اخي من view اختر Header and footer و منها تبويب sheet امام العبارة التاليه Rows to repeat at the top حدد التكست بوكس الذي امامها و بالماوس حدد المحال الذي تريده ان يظهر ك header اما بالنسبه للfooter فكما شرح لك الاخ نزار جزاه الله خيرا مرفق مثال و لك شكري و تقديريري kfb_0013copy.rar

اخيRAAD اعتقد حسب ما فهمت من رسالتك ان ماتريده تم اضافة بالنسخه الموجوده هنا تقرير للقرض علي مستوي كل شخص فعند الضغط علي سداد قرض و تفعيل احد المقترضين يظهر ماعليه و عند تسجيل تسديده لمبلغ و الضغط علي اضافه توجد خانه تظهر باقي ماعليه بعد السداد وعلي المستوي الاجمالي عند بداية فتح البرنامج اوعند الضغط علي زر الرئيسية يوجد 3 خانات لاجمالي القروض و اجمالي السدادات و الباقي بالذمه و عند رغبتك بشيئ اضافي بالتعديل البسيط يمكن الحصول عليه وكما قلت سابقا ان هذه ماهي الا فكره و هي مفتوحة الكود لمن يريد انيعرف كيفية عملها او التكمله عليها و اشكرك علي ردك ولو كان يوجد الوقت لشرح كل خطوه لكنت فعلت ذلك و لكن للاسف لايوجد الوقت لذلك خالص تحياتي