السلام عليكم الاخوة الكرام
لعمل هذه الطريقة
Static rec As Long
Dim pStart As Long
Dim pInterval As Long
' adjust start value if you want it to
' start at a value other than 1.
' For example, 1000.
' ====================================
pStart = 1
' adjust interval value if you want it to
' increment at a value other than 1.
' For example, 2.
' =======================================
pInterval = 1
If (rec = 0) Then
rec = pStart
Else
rec = rec + pInterval
End If
وهذه النتائج التي تم التوصل اليها بعد تطبيق الكود السابق


ارجو ان يستفيد منه الجميع وشكرا