تحميل مجانى برنامج الكنترول المدرسى ( كنوز ) وادارة اعمال الامتحانات وزارة التربية والتعليم

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

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

درس جديد وكود جديد من اكواد اكسيل VBA

درس اليوم عن 

طريقة سهلة جدا لعدم تكرار اسم الشيت واضافة شيت جديد

جائنا سؤال من احد الاصدقاء فى قسم التعليقات على القناة عن كيفية اضافة شيت جديد اذا كان اسم هذا الشيت غير مكرر يتم اضافة ورقة عمل جديدة واذا كان الاسم متكرر يتم اعطاء رسالة بان هذا لاسم وموجود ويتم الخروج من الكود وعدم اضافة شيت جدا

فكرة الكود 

عمل متغير لاضافة اسم الشيت الجديد

عمل حلقة تكرارية For -Next داخل ملف العمل للبحث عن اسماء اوراق العمل المكررة 

عمل شرط بالدالة IF لو كان نتيجة البحث عن الاسماء تساوى قيمة المتغير بتاعى اللى اسمة Sheetname 

يعطى رسالة بان الاسم موجود ويخرج من تنفيذ باقى لكود 

الكود

Sub insertsheets()

 

Dim sheetname As Variant

 

sheetname = InputBox("Please Enter new Sheet name")

 

For i = 1 To ActiveWorkbook.Worksheets.Count

 

   If Worksheets(i).Name = sheetname Then

 

     MsgBox "This Name Is Already in Use ", vbCritical

 

            Exit Sub

 

        End If

   Next i

 

Sheets.Add after:=ActiveSheet

 

ActiveSheet.Name = sheetname

End Sub

 

 

لتحميل ملف العمل