بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع ومدونة عالم الاوفيس
كيفية اضافة اى عدد من الشيتات (اوراق العمل ) وتغيير اسمائها باسهل واسرع كود
فى هذا الدرس يوف نستخدم حيلة جديدة ومهارة جديدة وكود مميز من اكواد اكسيل excel vba tutorial لادارج شيت اكسل جديد او ورقة عمل جديدة او اى عدد من الشيتات وتغيير اسمائهم باسهل واسرع طريقة وبكود excel vba tutorial عبار ةع سطر واحد فقط
Sub add_weeks()
Dim i As Integer
i = 1
Do While i <= 4
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = " الاسبوع رقم " & i
i =
i + 1
Loop
End Sub
من خلال هذا الكود سيتم اضافة عدد اربع اوراق عمل جديدة كل ورقة عمل باسم الاسبوع رقم 1 والاسبوع رقم 2 والاسبوع رقم 3 والاسبوع رقم 4 وهكذا
انت ممكن من خلال هذا الكود ان تقوم ادراج اى عدد من اوراق العمل وتسميتهم بشكل اوتوماتيكى