الاكسيل : ترجمة دوال الاكسل من الانجليزية الى الفرنسية Translate English to French

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

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

درس جديد من دورس اكسل 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

وبهذا  نكون قد انتهينا من شرح كود اليوم

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

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