JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

excel vba tutorial | كيفية اضافة اى عدد من الشيتات (اوراق العمل ) وتغيير اسمائها باسهل واسرع كود

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

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

كيفية اضافة اى عدد من الشيتات (اوراق العمل ) وتغيير اسمائها باسهل واسرع كود



فى هذا الدرس يوف نستخدم حيلة جديدة ومهارة جديدة وكود مميز من اكواد اكسيل 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 وهكذا 

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

لمتابعة الشرح بالتفصيل من هنا


الاسمبريد إلكترونيرسالة