بسم الله الرحمن الرحيم
كود VBA ماكرو للترقيم التلقائي يفيد في الفواتير مثلا الخلية َA2 هي التي تحتوي على الترقيم الجديد ينسخ و يلصق بالموديول الخاص بالورقة ThisWorkbook بال VBAProject لمحرر ال VBA ( لملف الإكسيل الخاص بك ) '------------------------------------------------------------------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) SaveSetting "MyApp", "Startup","Top", Range ("A2") End Sub Private Sub Workbook_Open() If Range("A1").Value <> 1 Then Range("A2").Value = GetSetting(appname:="MyApp", section:="Startup", key:="Top", Default:="=5") + 1 Range("A1").Value = 1 End If End Sub '--------------------------------------------------------------------------------------------------
1 - بالورقة 1 من ملف الإكسيل و بالخلية َA2 أكتب رقم فاتورتك و ليكن 1 2 - إحفظ الملف بصفته نموذج أي بإمتداد (*.xlt) 3 - قم بغلق الملف النموذج الجديد 4 - قم بفتح الملف من "Modéles" 5 - بعد فتح الملف ستلاحظ بأن الرقم يتغير و الله الموفق
