كيف يتم وضع زر يقوم بزيادة 1 عند الضغط عليه

[Ahmed2]

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

اخواني الكرام

ارجو من سعادتكم التكرم بمساعدتي لوضع زر في ملف اكسيل يقوم بزيادة رقم لخلية معينة كلما تم الضغط عليه

بمعنى مثلا الخلية A1 تحتوي على الرقم 500

عند الضغط على الزر يصبح الرقم 501 ... وهكذا كلما ضغطنا على الزر زاد الرقم 1 ..

ارجو منكم التفضل والتكرم بمساعدتي .

وجزاكم الله كل خير .

أخوكم أحمد .

[ماجدجلال]

الاخ الغالي

اليك الكود لماكروا يقوم بزيادة 1 علي اي خلية قمت بتشغيلة عليها ,

Sub ماكرو1()
ActiveCell.FormulaR1C1 = ActiveCell.Value + 1
End Sub

ويبقي عليك تصميم الزر لهذا الماكروا , وسوف تجد في المنتدي وقسم الارشيف العديد من الدروس وبصور حول تصميم الازرار في الاكسيل ,

طبعا ضع المؤشر او الفارة فوق الخلية المراد زيادة واحد لقيمتها وقم بتشغيل الماكرو سوف يزيد 1 علي القيمة السابقة ,.

[Ahmed2]

أخي ماجد جلال ,,

جزاك الله خير الجزاء وجعل الجنة مثواك ووفقك في الدنيا والآخرة والبسكك وذويك ثوب الصحة والعافية ,,

بارك الله فيك أخي الغالي ,,

دمت بصحة وعافية ..

أخوك أحمد ,,

[Ahmed2]

جزاك الله خير أخي الفاضل ,,

قمت بعمل بعض التعديل على الكود بحيث تصبح الزيادة على خلية معينة وليست الخلية الفعالة كما يلي :

Sub Plus1()
Range("L12").FormulaR1C1 = Range("L12").Value + 1
End Sub

حيث L12 رقم الخلية المراد عمل الزيادة عليها ..

تحياتي ..

[ماجدجلال]

الحمدللة ان جوبي كان ذو فائدة

واتمني لك التوفيق اخي العزيز ,

[Ahmed2]

تسلم أخي الغالي ماجد جلال ,,,

وبارك الله فيك وسدد خطاك ,,

أخوك أحمد ..