انشاء زر امر كعداد في نفس الخلية

[الفيشه]

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

اخواني اريد كود معين حيث انني كلما ضغطت على زر امر يضيف 1 على الخلية

مثال

لو انني اخترت خلية b1 وكانت تحمل القيمة 0 وضغطت على زر الامر اصبحت 1 و اذا كبست ايضا على الزر يضيف 1 وتصبح 2 وهكذا

واتمنى لكم دوام هذا المنتدى

[يحيى حسين]

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

أخي استخدم الكود التالي

Sub AddOne()



ActiveCell.Value = ActiveCell.Value + 1

End Sub

[kdb1]

مشكورررررر