كيفية التحقق مما إذا كان المصنف مفتوحًا عبر vba؟

للتحقق مما إذا كان المصنف مفتوحًا باستخدام أي كود VBA، تحتاج إلى استخدام حلقة FOR EACH التي يمكنها التكرار عبر جميع المصنفات المفتوحة في الوقت الحالي والتحقق من اسم كل مصنف بالاسم الذي ذكرته. يمكنك استخدام مربع رسالة للحصول على نتيجة الحلقة. أو يمكنك أيضًا عمل الكود لإدخال النتيجة في الخلية.

تحقق مما إذا كان المصنف مفتوحًا

  1. أولاً، عليك أن تعلن عن المتغيرات التي ستستخدمها في الكود لإنشاء حلقة.
    create a loop
  2. استخدم مربع الإدخال للحصول على اسم المصنف الذي تريد البحث عنه.
    use an input box
  3. ابدأ الحلقة لتصفح كافة المصنفات المفتوحة.
    start the loop to loop
  4. اكتب رمزًا باستخدام IF STATEMENT للتحقق من اسم المصنف بالاسم الذي أدخلته في مربع الإدخال، وبمجرد تطابق الاسم، قم بتنشيط المصنف، ويعرض مربع رسالة يفيد بالعثور على المصنف، ويخرج من الإجراء.
    code with if statement
  5. في النهاية، أكمل الحلقة واستخدم مربع الرسالة لعرض مربع رسالة إذا لم يتم العثور على أي شيء.
    end the loop and use a message box

روابط مفيدة: تشغيل ماكرو – مسجل الماكرو – محرر Visual Basic – دليل وحدات الماكرو الشخصية

هنا هو الرمز الكامل.

 Sub vba_check_workbook() Dim WB As Workbook Dim myWB As String myWB = InputBox(Prompt:="Enter the workbook name.") For Each WB In Workbooks If WB.Name = myWB Then WB.Activate MsgBox "Workbook Found!" Exit Sub End If Next WB MsgBox "Not Found" End Sub
ما هو فبا

الدروس ذات الصلة

اضف تعليق

لن يتم نشر عنوان بريدك الإلكتروني. الحقول الإلزامية مشار إليها بـ *