الرئيسية | مايكروسوفت اوفيس | مايكروسوفت اكسل | إضافة شيت جديد بإسم محدد وفقاً لشروط محددة | تطبيق VBA

إضافة شيت جديد بإسم محدد وفقاً لشروط محددة | تطبيق VBA


يتكون ملف الإكسل Workbook من شيت Sheet أو أكثر هذه الشيتات هي الموضع الذي يحتوي على البيانات، لذلك فإننا نستطيع إضافة العدد الذي نريده من الشيتات في الملف الواحدلإضافة شيت جديد من خلال الإكسل نفسه نستخدم الأمر Insert sheet من خلال Home » Cells » Insert » Insert Sheet
أو يمكننا إستخدام الإختصار Shift + F11


كانت هذه بعض طرق إضافة شيت جديد لكن من داخل واجهة الإكسل نفسه بينما موضوع اليوم نستعرض به كيفية إضافة شيت جديد من داخل بيئة محرر الأكواد Visual Basic Editor وفي سبيل ذلك نستعرض النقاط التالية

  • إضافة شيت جديد
  • إستخدام الـ Input Box
  • إستخدام الجملة الشرطية IF بشرطين من خلال المعامل OR
  • إستخدام الـ MsgBox
  • تحديد طول متغير نصي بواسطة الدالة LEN الخاصة بالـ VBA
  • إستخدام المتغيرات
Option Explicit
Sub NweSheeetCustomeName()
Dim SheetName As String
 
SheetName = InputBox("Please Insert sheet name.")
 
If SheetName = "" Or Len(SheetName) > 31 Then
MsgBox ("You did not insert a name OR sheet name lenth is greater than 31 Characther")
Exit Sub
End If
 
Sheets.Add.Name = SheetName
 
End Sub

يمكنكم مشاهدة الفيديو التالي الذي يوضح هذه العملية

تحديث :
في الكود السابق نجد أنه إذا كان اسم الشيت الجديد يطابق اسم احد الشيتات الحالية فإننا سنحصل على رسالة خطأ Error لذلك وجب إعادة تعديل الكود ليصبح كالتالي

Sub NweSheeetCustomeName()
On Error GoTo ErrorHandler
 
Dim NewSheet As Worksheet
Dim SheetName As String
 
Set NewSheet = Sheets.Add
 
SheetName = InputBox("Please Insert sheet name.")
 
If SheetName = "" Or Len(SheetName) > 31 Then
MsgBox ("You did not insert a name OR sheet name lenth is greater than 31 Characther")
Exit Sub
End If
 
NewSheet.Name = SheetName
 
ErrorHandler:
If Err.Number = 1004 Then
MsgBox ("This name already exist")
Application.DisplayAlerts = False
NewSheet.Delete
Application.DisplayAlerts = True
Exit Sub
End If
 
End Sub

شاهد أيضاً

إختصارات مايكروسوفت اكسل 01

إختصارات الاكسل كثيرة منها ما يتم من خلال لوحة المفاتيح Keyboard ومنها ما يتم من ...