عادل حنفي

اخي اسف

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

فقد قمت بتعديله

اخي من قائمة 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 خانات لاجمالي القروض و اجمالي السدادات و الباقي بالذمه و عند رغبتك بشيئ اضافي

بالتعديل البسيط يمكن الحصول عليه

وكما قلت سابقا ان هذه ماهي الا فكره و هي مفتوحة الكود لمن يريد انيعرف كيفية عملها او التكمله

عليها

و اشكرك علي ردك ولو كان يوجد الوقت لشرح كل خطوه

لكنت فعلت ذلك و لكن للاسف لايوجد الوقت لذلك

خالص تحياتي

تحياتي اخي نزار

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