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

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

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

2. انقر فوق إدراج > وحدة، ثم ألصق الكود التالي لـ VBA في نافذة الوحدة الجديدة التي تم فتحها.

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

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سيظهر مربع حوار بحث الورقة، يرجى كتابة اسم ورقة العمل الذي تريد البحث عنه، ثم انقر فوق الزر موافق . انظر لقطة الشاشة:

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

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

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

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

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

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

إنشاء ارتباط تشعبي في خلية إلى ورقة أخرى في نفس المصنف