طلب ماكرو بسيط جداً

[kokorase]

السلام عليكم ورحمة الله وبركاته

في البداية أحب أن أحيي مشرفي وأعضاء هذا المنتدي العظيم الذي إستفدت منه كثيراً علي الرغم من ان هذه هي مشاركتي الأولي فيه .

طلبي بسيط جداً ولكني لم أستطع عمله لجهلي بمعظم أوامر الإكسيل والماكرو ولكني واثق انكم تستطيعون عمله ببساطة إن شاء الله ..

أقوم حالياً بتصميم فاتورة وقد أتممت العمل بإستخدام بعض مواضيع من منتداكم الكريم ولكني توقفت عند آخر نقطة وهي رقم الفاتورة . حيث أنني اريد أن أقوم بعمل زر عند الضغط عليه يزداد رقم الفاتورة بمعدل واحد بمعني انه لو كانت الفاتورة الحالية رقمها 110 وقمت بالضغط علي هذا الزر يصبح رقهما 111 .. وأريد أيضاً زر مماثل لإنقاص رقم الفاتورة واحد حتي أستطيع العودة في حالة الخطأ . وهذا بفرض أن رقم الفاتورة سيكون في خانة A1 مثلاً .

وأريد أيضاً زر أخير يقوم بمسح نطاق معين من الخلايا ( Range ) بحيث يقوم هذا الماكرو بمسح الخلايا في خانات الصنف والسعر تمهيداً لعمل فاتورة جديدة . وهذا بفرض أن هذا النطاق يبدأ من خانة A2 وحتي G5 ، مع العلم أن هذا النطاق سيحتوي علي قائمة منسدلة أو أكثر .

آسف جداً علي الإطالة وأرجو منكم وضع كل ماكرو علي حدة حتي أستطيع التفريق بينهم عند عملهم .

وشكراً جزيلاً لأعضاء ومشرفي هذه المنتدي العظيم وجزاكم الله خيراً

تم تعديل أكتوبر 13, 2010 بواسطه kokorase

[ياسر خليل أبو البراء]

لو أرفقت ملف أخي الحبيب يكون أفضل وبكدا توفر جهد ووقت الآخرين

[ياسر خليل أبو البراء]

أخي الغالي جرب الملف التالي (تصبيرة كدا لحد ما ترفق ملف)

SpinButton.rar

[kokorase]

تفضل أخي الملف في المرفقات ونفترض أن الخانة G9 هي رقم الفاتورة وأن الخانات التي أريد عمل زر لحذف محتوياتها ( بدون مسح الـ formula ) هي من f18 حتي j33 .

الأزرار التي قمت بعملها أكثر من رائعة لكن لدي ملاحظة بسيطة وهو أنني أريد الزر أن يقوم بزيادة رقم موجود بالفعل فإذا أراد صاحب الفاتورة بداية الفاتورة من رقم معين فإن الزر يقوم بإضافة 1 علي هذا الرقم أياً كان ولكني عندما أفعل ذلك في الملف الذي تفضلت بإرفاقه يتجاهل الزر الرقم الذي أدخلته ويستكمل العد من آخر رقم توقف فيه .

وأرجو منكم أيضاً ترك حرية تحريك الأزرار من أماكنها إن أحببت .

آسف جداً علي الإطالة ولكم جزيل الشكر وجزاك الله خيراً .

invoice.rar

تم تعديل أكتوبر 14, 2010 بواسطه kokorase

[ياسر خليل أبو البراء]

أخي الحبيب

إليك ما طلبت

لا تنسانا من صالح دعائك

أخوك أبو البراء

Invoice.rar

[kokorase]

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

وجزاك الله كل الخير والثواب وبارك الله فيك وزادك من علمه

[ياسر خليل أبو البراء]

أخي الحبيب

بدلاً من نقل الأزرار - وهو ما لا أسنحبه - قمت بعمل أزرار من Form Controls وبذلك لا تظهر أثناء الطباعة

Invoice.rar

[kokorase]

هذا هو المطلوب بالضبط أخي العزيز جزاك الله كل خير وزادك بسطة في العلم والجسم وأدخلك الجنة سالماً آمنا .. آمين يارب العالمين .