كيف تتحقق من وجود ورقة في مصنف؟
عندما يكون لديك العشرات من أوراق العمل أو حتى المئات من أوراق العمل في مصنف ، وتريد البحث عن ورقة موجودة في هذا المصنف أو التحقق منها ، بشكل عام ، فقد يكون هذا عملاً ضخمًا. الآن أقدم رمز VBA وأداة مفيدة لك للتحقق بسرعة من وجود ورقة في مصنف.
تحقق مما إذا كانت الورقة موجودة في مصنف باستخدام VBA
تحقق مما إذا كانت هناك ورقة موجودة وانتقل إليها باستخدام Kutools for Excel
تحقق مما إذا كانت الورقة موجودة في مصنف
يرجى اتباع الخطوات التالية لنسخ كود VBA وتشغيله للتحقق من وجود ورقة في المصنف الحالي.
1. صحافة ALT + F11 لعرض ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في النافذة ، انقر فوق إدراج > وحدة لإظهار نافذة وحدة جديدة ، ثم انسخ رمز فبا التالي في نافذة الوحدة النمطية.
فبا: تحقق مما إذا كانت الورقة موجودة في مصنف.
Function CheckSheet(pName As String) As Boolean
'Updateby20140617
Dim IsExist As Boolean
IsExist = False
For i = 1 To Application.ActiveWorkbook.Sheets.Count
If Application.ActiveWorkbook.Sheets(i).Name = pName Then
IsExist = True
Exit For
End If
Next
CheckSheet = IsExist
End Function
3. احفظ هذا الرمز ، وارجع إلى الورقة وحدد خلية فارغة لكتابة هذه الصيغة = CheckSheet ("Shee1") (تشير الورقة 1 إلى اسم الورقة التي تريد التحقق من وجودها) ، اضغط على أدخل ومن ثم زر خاطئة يشير إلى عدم وجود هذه الورقة ، و TURE يشير إلى أنه موجود في المصنف الحالي.
تحقق مما إذا كانت هناك ورقة موجودة وانتقل إليها باستخدام Kutools for Excel مع VBA
باستخدام الوظيفة المحددة أعلاه ، يمكنك فقط التحقق مما إذا كانت الورقة موجودة وأيها صعبة بعض الشيء. ومع ذلك ، مع كوتولس ل إكسيل، يسرد جزء التنقل اسم جميع الأوراق نيابة عنك ، والذي يدعم التمرير للعثور على الورقة ، أو تصفية اسم الورقة للعثور على الورقة ، وإذا كنت بحاجة ، يمكنك النقر فوق اسم الورقة للتبديل بسرعة إلى الورقة بعد البحث.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. قم بتمكين المصنف الذي تريد التحقق من اسم الورقة إذا كان موجودًا فيه ، ثم انقر فوق كوتولس > قائمة الإختيارات. انظر لقطة الشاشة
:
2. ثم في جزء ظهرت ، انقر فوق مصنف وورقة لتوسيع الجزء ، يمكنك رؤية جميع قائمة أسماء الأوراق في الجزء ، يمكنك التمرير للعثور على أسماء الأوراق.
3. أو يمكنك التحقق منقي زر ، ثم اكتب الكلمات الرئيسية لاسم الورقة التي تريد التحقق منها ، ثم سيتم إدراج اسم الورقة المحدد ، انقر فوق اسم الورقة ، ثم انتقل إلى الورقة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!