كيفية التحقق مما إذا كان اسم نطاق معين موجودًا في Excel؟

قبل تشغيل بعض نصوص VBA، قد تحتاج إلى التحقق مما إذا كان هناك نطاق مسمى موجود في المصنف الحالي. يمكن أن يساعدك الكود البرمجي VBA المقدم في هذه المقالة على التحقق بسرعة مما إذا كان اسم نطاق معين موجودًا في Excel.

التحقق مما إذا كان اسم نطاق معين موجودًا باستخدام كود VBA

التحقق مما إذا كان اسم نطاق معين موجودًا باستخدام كود VBA

يمكنك تشغيل كود VBA أدناه للتحقق بسرعة مما إذا كان اسم نطاق معين موجودًا في المصنف الحالي.

1. اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ ولصق كود VBA أدناه في النافذة.

كود VBA: التحقق مما إذا كان نطاق معين موجودًا في Excel

Sub CheckRanges()
    Dim chkRange As Range
    Dim areasName(2) As String
    Dim chkCnt As Long
    Dim i As Integer
    areasName(0) = "new"
    areasName(1) = "MyRange"
    areasName(2) = "Range2"
  
    Application.ScreenUpdating = False
    For i = 0 To 2
        On Error Resume Next
        chkCnt = Len(ThisWorkbook.Names(areasName(i)).Name)
        On Error GoTo 0
         
        If chkCnt <> 0 Then
            Set chkRange = Range(areasName(i))
            MsgBox "This Range: '" & areasName(i) & "' DOES exist!", vbInformation, "Kutools for Excel"
            chkCnt = 0
        Else
            MsgBox "This Range: '" & areasName(i) & "' does NOT exist!", vbInformation, "Kutools for Excel"
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

ملاحظات:

3. اضغط على مفتاح F5 لتشغيل الكود. ستظهر مربعات حوار Kutools لـ Excel لإخبارك ما إذا كان اسم النطاق المحدد موجودًا أم لا، يرجى النقر على أزرار موافق بالتتابع لإغلاق مربعات الحوار. شاهد لقطة الشاشة:

مقالات ذات صلة:

• كيفية التحقق مما إذا كان الحرف الأول في خلية هو حرف أو رقم في Excel؟
• كيفية التحقق مما إذا كانت قيمة الخلية بين قيمتين في Excel؟
• كيفية التحقق مما إذا كانت الخلية تبدأ أو تنتهي بحرف محدد في Excel؟