بعد إذن الأخ المفضال المحترم حمادة عمر
أولا عليك أن تحديدي اسم الخلية المراد ظهور الرقم فيها
فمثلا الكود مكتوب كالتالي
( ) Sub sama
a1].Value = [a1].Value + 1]
End Sub
فعليك أن تغيري اسم الخلية التي سيظهر فيها الرقم وهي هنا a1
ثانيا تغيري اسم الماكرو بأن تضيفي بجوار ( ) Sub sama1
وهكذا 2 ثم 3
وإليك المرفق
زر اضافة2.rar