كيف يمكنك البحث عن المكان الذي يُستخدم فيه نطاق مسمّى معيّن في Excel؟

يمكنك بسهولة تطبيق ميزةالبحث والاستبدالفي Excel للعثور على جميع الخلايا التي تستخدم النطاق المسمّى المعيّن. اتبع الخطوات التالية:

1. اضغط على مفاتيحCtrl+F معًا لفتح مربع حوار البحث والاستبدال.

ملاحظة: يمكنك أيضًا فتح مربع حوار البحث والاستبدال هذا بالنقر علىالصفحة الرئيسية > بحث وتحديد > بحث.

2. في مربع حوار البحث والاستبدال المفتوح، يُرجى اتباع الإرشادات الموضَّحة في لقطة الشاشة التالية:

(1) اكتب اسم نطاق مسمّى معين في خانةالبحث عن؛

(2) حددالمصنفمن قائمةضمنالمنسدلة؛

(3) انقر على زربحث الكل.

ملاحظة: إذا كانت قائمة «ضمن» المنسدلة غير مرئية، فالرجاء النقر على زرخياراتلتوسيع مربع حوار خيارات البحث.

ستشاهد الآن جميع الخلايا التي تحتوي على اسم النطاق المسمّى المحدد معروضة في أسفل مربع حوار البحث والاستبدال. راجع لقطة الشاشة:

ملاحظة: لا تقتصر وظيفة البحث والاستبدال على العثور على جميع الخلايا التي تستخدم هذا النطاق المسمّى فحسب، بل تمتد أيضًا لتشمل جميع الخلايا المشمولة بهذا النطاق المسمّى.

ستقدّم هذه الطريقة ماكرو VBA للعثور على جميع الخلايا التي تستخدم النطاق المسمّى المعيّن في Excel. يُرجى اتباع الخطوات التالية:

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

2. انقر علىإدراج > وحدة نمطية، ثم انسخ والصق الكود التالي في نافذة الوحدة النمطية المفتوحة.

VBA: البحث عن مكان استخدام نطاق مسمّى معين

Sub Find_namedrange_place()
Dim xRg As Range
Dim xCell As Range
Dim xSht As Worksheet
Dim xFoundAt As String
Dim xAddress As String
Dim xShName As String
Dim xSearchName As String
On Error Resume Next
xShName = Application.InputBox("Please type a sheet name you will find cells in:", "Kutools for Excel", Application.ActiveSheet.Name)
Set xSht = Application.Worksheets(xShName)
Set xRg = xSht.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not xRg Is Nothing Then
xSearchName = Application.InputBox("Please type the name of named range:", "Kutools for Excel")
Set xCell = xRg.Find(What:=xSearchName, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
        If Not xCell Is Nothing Then
xAddress = xCell.Address
If IsPresent(xCell.Formula, xSearchName) Then
xFoundAt = xCell.Address
End If
            Do
Set xCell = xRg.FindNext(xCell)
If Not xCell Is Nothing Then
If xCell.Address = xAddress Then Exit Do
If IsPresent(xCell.Formula, xSearchName) Then
If xFoundAt = "" Then
xFoundAt = xCell.Address
Else
xFoundAt = xFoundAt & ", " & xCell.Address
End If
End If
Else
Exit Do
End If
Loop
End If
If xFoundAt = "" Then
MsgBox "The Named Range was not found", , "Kutools for Excel"
Else
MsgBox "The Named Range has been found these locations: " & xFoundAt, , "Kutools for Excel"
End If
On Error Resume Next
xSht.Range(xFoundAt).Select
End If
End Sub
Private Function IsPresent(sFormula As String, sName As String) As Boolean
Dim xPos1 As Long
Dim xPos2 As Long
Dim xLen As Long
Dim I As Long
xLen = Len(sFormula)
xPos2 = 1
Do
xPos1 = InStr(xPos2, sFormula, sName) - 1
If xPos1 < 1 Then Exit Do
IsPresent = IsVaildChar(sFormula, xPos1)
xPos2 = xPos1 + Len(sName) + 1
If IsPresent Then
If xPos2 <= xLen Then
IsPresent = IsVaildChar(sFormula, xPos2)
End If
End If
Loop
End Function
Private Function IsVaildChar(sFormula As String, Pos As Long) As Boolean
Dim I As Long
IsVaildChar = True
For I = 65 To 90
If UCase(Mid(sFormula, Pos, 1)) = Chr(I) Then
IsVaildChar = False
Exit For
End If
Next I
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(34) Then
IsVaildChar = False
End If
End If
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(95) Then
IsVaildChar = False
End If
End If
End Function

4. الآن، في مربع حوار Kutools لـ Excel الأول المفتوح، اكتب اسم ورقة العمل ثم انقر على زرموافق؛ وبعد ذلك، في مربع الحوار الثاني المفتوح، اكتب اسم النطاق المسمّى المعيّن وانقر على زرموافق. راجع لقطات الشاشة:

5. الآن، يظهر مربع حوار Kutools لـ Excel الثالث، ويعرض الخلايا التي تستخدم النطاق المسمّى المعيّن، كما هو موضح في لقطة الشاشة أدناه.

بعد النقر على زرموافقلإغلاق مربع الحوار هذا، سيتم تحديد جميع الخلايا المكتشفة في ورقة العمل المحددة دفعة واحدة.

ملاحظة: يمكن لهذا الكود البرمجي VBA البحث عن الخلايا التي تستخدم النطاق المسمّى المعين في ورقة عمل واحدة في كل مرة فقط.

إذا كان لديك Kutools لـ Excel مثبّتًا، فإن أداةاستبدال اسم الخليةالخاصة به تساعدك على العثور بسهولة على جميع الخلايا والصيغ التي تستخدم النطاق المسمّى المعيّن في Excel وسردها.

1. انقر علىKutools > المزيد > استبدال اسم الخليةلفتح مربع حوار استبدال اسم الخلية.

2. في مربع حوار استبدال اسم الخلية المفتوح، انتقل إلى علامة التبويبالاسم، وانقر على القائمة المنسدلةبناءً على الاسم، ثم حدد النطاق المسمّى المطلوب منها كما هو موضح في لقطة الشاشة أدناه:

الآن، يتم عرض جميع الخلايا والصيغ المرتبطة بها التي تستخدم النطاق المسمّى المعيّن في مربع الحوار دفعة واحدة.

3. أغلق مربع حوار استبدال اسم الخلية.