كيفية التحقق من وجود اسم نطاق معين في Excel؟
قبل تشغيل بعض البرامج النصية لـ VBA ، قد تحتاج إلى التحقق من وجود نطاق مسمى في المصنف الحالي. يمكن أن يساعدك رمز VBA المقدم في هذه المقالة على التحقق بسرعة من وجود اسم نطاق معين في Excel.
تحقق من وجود اسم نطاق معين برمز VBA
تحقق من وجود اسم نطاق معين برمز VBA
يمكنك تشغيل التعليمات البرمجية لـ VBA أدناه للتحقق بسرعة من وجود اسم نطاق معين في المصنف الحالي.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في النافذة.
كود فبا: تحقق من وجود نطاق معين في إكسيل
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 مفتاح لتشغيل الكود. ثم أ كوتولس ل إكسيل تنبثق مربعات الحوار لإعلامك بما إذا كان اسم النطاق المحدد موجودًا أم لا ، يرجى النقر فوق OK أزرار تباعا لإغلاق مربعات الحوار. انظر لقطة الشاشة:
مقالات ذات صلة:
- كيفية التحقق مما إذا كان الحرف الأول في الخلية حرفًا أم رقمًا في Excel؟
- كيفية التحقق مما إذا كانت قيمة الخلية تقع بين قيمتين في Excel؟
- كيفية التحقق مما إذا كانت الخلية تبدأ أو تنتهي بحرف معين في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!