انتقل إلى المحتوى الرئيسي

كيف تجد مكان استخدام نطاق مسمى معين في Excel؟

المؤلف: كيلي آخر تعديل: 2017-03-29

بعد إنشاء نطاق مسمى ، يمكنك استخدام هذا النطاق المسمى في العديد من الخلايا والصيغ. ولكن كيف تكتشف هذه الخلايا والصيغ في المصنف الحالي؟ تقدم هذه المقالة ثلاث طرق صعبة لحلها بسهولة.

ابحث عن مكان استخدام نطاق مسمى معين مع ميزة البحث والاستبدال

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

ابحث عن مكان استخدام نطاق مسمى معين مع Kutools for Excel


السهم الأزرق الحق فقاعة ابحث عن مكان استخدام نطاق مسمى معين مع ميزة البحث والاستبدال

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

1. اضغط على CTRL + F في نفس الوقت لفتح مربع الحوار "بحث واستبدال".

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

2. في مربع الحوار "بحث واستبدال" ، يرجى القيام بما يلي:

doc حيث يتم استخدام النطاق المحدد 1

 

(1) اكتب اسم نطاق مسمى معين في تجد ما صندوق؛

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

(3) انقر فوق جد كل .

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

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

doc حيث يتم استخدام النطاق المحدد 2

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


السهم الأزرق الحق فقاعة ابحث عن مكان استخدام نطاق مسمى معين مع VBA

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

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

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

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

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
3. انقر فوق يجري زر أو اضغط F5 مفتاح لتشغيل VBA.

4. الآن في مربع حوار Kutools for Excel الافتتاحي الأول ، يرجى كتابة اسم ورقة العمل فيه والنقر فوق OK زر؛ ثم في مربع حوار الفتح الثاني ، يرجى كتابة اسم نطاق مسمى معين فيه ، والنقر فوق OK زر. انظر لقطات الشاشة:

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

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

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


السهم الأزرق الحق فقاعةابحث عن مكان استخدام نطاق مسمى معين مع Kutools for Excel

في لديك Kutools for Excel مثبتا ، الخاص به استبدال أسماء النطاقات يمكن أن تساعدك الأداة في العثور على جميع الخلايا والصيغ التي تستخدم النطاق المحدد المحدد في Excel وإدراجها في قائمة.

كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!

1. انقر فوق كوتولس > المزيد > استبدال أسماء النطاقات لفتح مربع الحوار "استبدال أسماء النطاقات".

doc استبدال أسماء النطاقات

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

doc حيث يتم استخدام النطاق المحدد 4

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

3. أغلق مربع الحوار "استبدال أسماء النطاقات".

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن


كوتولس ل إكسيل: أكثر من 300 أداة مفيدة في متناول يدك! ابدأ تجربتك المجانية لمدة 30 يومًا دون أي قيود على الميزات اليوم. تحميل الآن!

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In your VBA code, row 19 is in RED text before I even attempt to run it... I know there will be a problem. Once I run the code that line (#19) gives an error message:Compile error: syntax error
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations