كيفية التحقق مما إذا كان المصنف مفتوحًا عبر vba؟
للتحقق مما إذا كان المصنف مفتوحًا باستخدام أي كود VBA، تحتاج إلى استخدام حلقة FOR EACH التي يمكنها التكرار عبر جميع المصنفات المفتوحة في الوقت الحالي والتحقق من اسم كل مصنف بالاسم الذي ذكرته. يمكنك استخدام مربع رسالة للحصول على نتيجة الحلقة. أو يمكنك أيضًا عمل الكود لإدخال النتيجة في الخلية.
تحقق مما إذا كان المصنف مفتوحًا
- أولاً، عليك أن تعلن عن المتغيرات التي ستستخدمها في الكود لإنشاء حلقة.
- استخدم مربع الإدخال للحصول على اسم المصنف الذي تريد البحث عنه.
- ابدأ الحلقة لتصفح كافة المصنفات المفتوحة.
- اكتب رمزًا باستخدام IF STATEMENT للتحقق من اسم المصنف بالاسم الذي أدخلته في مربع الإدخال، وبمجرد تطابق الاسم، قم بتنشيط المصنف، ويعرض مربع رسالة يفيد بالعثور على المصنف، ويخرج من الإجراء.
- في النهاية، أكمل الحلقة واستخدم مربع الرسالة لعرض مربع رسالة إذا لم يتم العثور على أي شيء.
روابط مفيدة: تشغيل ماكرو – مسجل الماكرو – محرر 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
ما هو فبا
الدروس ذات الصلة
- انسخ ملف Excel (المصنف) باستخدام VBA
- مصنف تنشيط VBA (ملف Excel)
- مصنف إغلاق VBA (ملف Excel)
- VBA الجمع بين المصنفات (ملفات Excel)
- VBA إنشاء مصنف جديد (ملف Excel)