วิธีตรวจสอบว่ามีชื่อช่วงที่แน่นอนใน Excel หรือไม่?

ก่อนที่จะเรียกใช้สคริปต์ VBA คุณอาจต้องตรวจสอบว่ามีช่วงที่มีชื่ออยู่ในเวิร์กบุ๊กปัจจุบันหรือไม่ โค้ด VBA ที่ให้ไว้ในบทความนี้จะช่วยให้คุณตรวจสอบได้อย่างรวดเร็วว่ามีช่วงที่มีชื่ออยู่ใน Excel หรือไม่

ตรวจสอบว่ามีชื่อช่วงที่ระบุด้วยรหัส VBA หรือไม่

ตรวจสอบว่ามีชื่อช่วงที่ระบุด้วยรหัส VBA หรือไม่

คุณสามารถเรียกใช้รหัส VBA ด้านล่างเพื่อตรวจสอบได้อย่างรวดเร็วว่ามีชื่อช่วงที่แน่นอนอยู่ในสมุดงานปัจจุบันหรือไม่

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด 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 กล่องโต้ตอบจะปรากฏขึ้นเพื่อบอกคุณว่ามีชื่อช่วงที่ระบุอยู่หรือไม่โปรดคลิกที่ OK ปุ่มต่างๆตามลำดับเพื่อปิดกล่องโต้ตอบ ดูภาพหน้าจอ:

บทความที่เกี่ยวข้อง:

• วิธีตรวจสอบว่าอักขระตัวแรกในเซลล์เป็นตัวอักษรหรือตัวเลขใน Excel หรือไม่?
• วิธีตรวจสอบว่าค่าของเซลล์อยู่ระหว่างสองค่าใน Excel หรือไม่?
• วิธีตรวจสอบว่าเซลล์เริ่มต้นหรือลงท้ายด้วยอักขระเฉพาะใน Excel หรือไม่?