بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
سيساعدك هذا الكود على اضافة الارقام التسلسلية تلقائيا فى ورقة العمل
ناتى الى شرح الكود بالتفصيل
1- ندخل الى تبويب المطور Developer
2- نفتح محرر الاكواد Visual Basic3-ندرج موديول جديد Insert Modul
Sub Test ()
4- فى البداية نعرف متغير وليكن متغير ( I)
Dim i AS Intger
5- ندرج مربع ادخال حيث يطلب منا ادخال اقصى عدد للارقام التسلسلية
i = InputBox("Enter Value",
"Enter Serial Numbers")
6- بمجرد ادخالك للرقم سيتم ادراج ارقام تسلسل فى العمود المحدد
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
ActiveCell.Offset(1, 0).Activate
Next i
7- بمجرد تشغيل الكود ييتم عمل حلقة تكرارية لوضع الارقام المتسلسلة فى الخلية النشطة التى تحددها
8- الكود كامل
Sub test()
Dim i As Integer
i = InputBox("Enter Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
End Sub
Dim i As Integer
i = InputBox("Enter Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
End Sub
وبهذا نكون قد انتهينا من شرح كود اليوم
نلتقى بكم ان شاء الله فى درس جديد وكود جديد باذن الله
لاتنسى مشاركة الموضوع على شبكات التواصل الاجتماعى