الأحد، 6 أكتوبر 2019

اكسل | كيفية اضافة ارقام متسلسلة الى اوراق العمل Add Serail Number In Excel VBA

بسم الله الرحمن الرحيم 



اهلا بكم متابعى موقع عالم الاوفيس

درس جديد من دورس اكسل vba وكود جديد من مكتبة اكواد Excel VBA 

سيساعدك هذا الكود على اضافة الارقام التسلسلية تلقائيا فى ورقة العمل 

ناتى الى شرح الكود بالتفصيل

1- ندخل الى تبويب المطور Developer

2- نفتح محرر الاكواد  Visual Basic
3-ندرج موديول جديد 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
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
وبهذا  نكون قد انتهينا من شرح كود اليوم

نلتقى بكم ان شاء الله فى درس جديد وكود جديد باذن الله

لاتنسى مشاركة الموضوع على شبكات التواصل الاجتماعى 




ليست هناك تعليقات:

إرسال تعليق

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة