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

كيفية البحث باسم ورقة العمل في Excel؟

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


البحث عن طريق اسم ورقة العمل مع VBA

ستقدم هذه الطريقة ماكرو VBA للبحث في ورقة العمل في المصنف النشط بسهولة.

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

2. انقر إدراج > وحدة، ثم الصق رمز فبا التالي في نافذة الوحدة النمطية الافتتاحية الجديدة.

فبا: البحث باسم ورقة العمل

Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub

3. اضغط على F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا VBA.

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

سيظهر مربع حوار آخر ويحدد ما إذا تم العثور على ورقة العمل أم لا. فقط أغلقه.

ملحوظة: يتطلب VBA هذا اسم ورقة العمل المتطابق تمامًا. أنت فقط تقوم بإدخال اسم ورقة العمل الكامل تمامًا ، ويمكنك معرفة ورقة العمل هذه باستخدام VBA.


البحث حسب اسم ورقة العمل مع إنشاء قائمة بأسماء ورقة كوتولس ل إكسيل

قد لا يكون من السهل العثور على ورقة عمل VBA أعلاه إذا كنت لا تتذكر بالضبط وأدخل اسم ورقة العمل. ستقدم هذه الطريقة Kutools for Excel قم بإنشاء قائمة بأسماء الأوراق أداة للبحث والانتقال إلى ورقة العمل بسهولة.

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

1. انقر كوتولس بلس > ورقة العمل > قم بإنشاء قائمة بأسماء الأوراق لفتح مربع الحوار "إنشاء قائمة بأسماء الأوراق". انظر لقطات الشاشة:
بحث المستند بالورقة 01

2. في مربع الحوار فتح قائمة أسماء الأوراق ، يرجى تحديد الإعدادات: 1 افحص ال يحتوي على قائمة بالارتباطات التشعبية الخيار. 2 اكتب اسمًا لورقة الفهرس المنشأة الجديدة ؛ 3 تحديد مكان ورقة الفهرس الجديدة ؛ و 4 سرد كافة أسماء أوراق العمل في عمود واحد في فهرس الورقة.

3. انقر على Ok زر. الآن يتم إنشاء فهرس جديد ووضعه أمام جميع أوراق العمل.

4. انتقل إلى فهرس الصور ، واضغط CTRL + F في نفس الوقت لفتح مربع الحوار "بحث واستبدال" ، اكتب كلمة أساسية في ملف تجد ما مربع ، وانقر فوق جد كل زر. انظر لقطة الشاشة:

الآن تم العثور على جميع أسماء أوراق العمل التي تحتوي على الكلمات الأساسية وإدراجها في الجزء السفلي من مربع الحوار "بحث واستبدال". انظر مربع الحوار أعلاه.

5. انقر فوق اسم ورقة العمل التي تم العثور عليها في مربع الحوار "بحث واستبدال" لتحديد الخلية المقابلة ، ثم انقر فوق الخلية المحددة في ورقة الفهرس ، وسوف تنتقل إلى ورقة العمل المقابلة مرة واحدة.

العرض التوضيحي: البحث باسم ورقة العمل في Excel


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

البحث عن طريق اسم ورقة العمل مع جزء التنقل من كوتولس ل إكسيل

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

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

1. يتم فتح جزء التنقل افتراضيًا. إذا أغلقت ، الرجاء الضغط كوتولس > جزء التنقل لعرض جزء التنقل ، ثم انقر فوق  (المصنف والورقة) في أقصى الجانب الأيسر من جزء التنقل.

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

ملاحظات: سيؤدي النقر فوق نتائج البحث إلى الانتقال السريع وفتح ورقة العمل المقابلة مرة واحدة.

العرض التوضيحي: البحث باسم ورقة العمل باستخدام جزء التنقل في Kutools for Excel


كوتولس ل إكسيل: أكثر من 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you, it really helpful.
This comment was minimized by the moderator on the site
Note :- Formula Work only if you Sheet Name in Numeric="='E:\Contacts\"&"["&SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1&".csv"&"]"&SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1&"'!$B$1048576"Use this Formula To Get Value from other Excel Sheet________________
Define Path = "='E:\Contacts\"&"["Give Sheet Name [if Sheet Name in Numericl] = SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1&".csv"&"]"&SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1Cell No. = !$B$1048576
This comment was minimized by the moderator on the site
Note :- Formula Work only if you Sheet Name in Numeric="='E:\Contacts\"&"["&SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1&".csv"&"]"&SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1&"'!$B$1048576"Use this Formula To Get Value from other Excel Sheet________________
Define Path = "='E:\Contacts\"&"["Give Sheet Name [if Sheet Name in Numericl] = SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1&".csv"&"]"&SUM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))-1Cell No. = !$B$1048576
This comment was minimized by the moderator on the site
Muchas gracias por el consejo, me ayudo mucho!!
This comment was minimized by the moderator on the site
Dear sir, mujhe excel 2013 me worksheet search karne ki vba coding bata dijiye or search command bata dijiye
This comment was minimized by the moderator on the site
Please tell me about cell name search in all worksheet of excel 2007 shortcut or longterm
This comment was minimized by the moderator on the site
Thank you very much. The VBA code was very helpful for me :-) Thanks again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations