بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
وكيفية اضافة رقم تسلسلى فى شيت الاكسل اوتو ماتيكيا بطريقة سهلة جدا
من خلال الكود التالى
. Sub
AddSerialNumbers()
Dim i As Integer
On Error GoTo Last
i = InputBox("Enter
Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1,
0).Activate
Next i
Last:Exit Sub
End Sub
لاستخدام هذا الكود نقوم اولا بتحديد الخلية ثم تظهر رسالة من Input box تطلب تحديد اعلى رقم يمكن ان يصل التسلسل الية
واضغط موافق .
بمجرد الضغط على زر موافق تقوم بتشغيل حلقة تكرارية لعمل تسلسل للارقام حتى الرقم الاعلى الذى تريد الوصول الية بطريقة سهلة جدا .