كود vba ترحيل ورقم الوصل كود vba ترحيل ورقم الوصل

[ahmed1987]

السلام عليكم تحية طيبة اريد كل ما اضغط على ترحيل يغير رقم الوصل يعني يضيف عليه قيمة (1) اي اول ضغط 1 ثاني 2 ثالث ......... وهكذا شكرا لكم

aa.zip

تم تعديل أغسطس 1, 2017 بواسطه ahmed1987
اضافة مرفق

[ابراهيم الحداد]

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

انسخ الكود التالى والصقه فى موديول

واربطه بالزر المتاح فى الورقة

Sub Counter()
Dim x As Integer
x = Range("B1")
x = x + 1
Range("B1") = x
End Sub

 

[ahmed1987]

في 8/1/2017 at 03:18, زيزو العجوز said:

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

انسخ الكود التالى والصقه فى موديول

واربطه بالزر المتاح فى الورقة

Sub Counter()
Dim x As Integer
x = Range("B1")
x = x + 1
Range("B1") = x
End Sub

 

شكرا على المساعدة بارك الله فيك