Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

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

يمكننا بسهولة تطبيق 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. أغلق مربع الحوار "استبدال أسماء النطاقات".

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن


كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel ، يمكن تجربتها مجانًا دون قيود في غضون 30 يومًا. تنزيل وتجربة مجانية الآن!

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (1)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في كود VBA الخاص بك ، الصف 19 موجود بالنص الأحمر قبل أن أحاول تشغيله ... أعلم أنه ستكون هناك مشكلة. بمجرد تشغيل الكود ، يعطي هذا السطر (# 19) رسالة خطأ: خطأ في التجميع: خطأ في بناء الجملة
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL