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