كيفية التحقق بسرعة مما إذا كان الملف (المصنف) مفتوحًا أو مغلقًا في Excel؟
يعمل Excel يوميًا ، فتفتح العديد من المصنفات في نفس الوقت للعمل ، ولكن في بعض الأحيان ، قد تعبث مئات المصنفات برأسك لتتذكر ما إذا كان مصنف معين مفتوحًا أم مغلقًا. تخلى عن الطريقة التقليدية لفحص الملفات واحدًا تلو الآخر ، هنا أقدم لك الحيل للعثور بسرعة على مصنف مفتوح أو مغلق.
تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام VBA
تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام Kutools for Excel 
تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام VBA
إليك رمز VBA الذي يمكنك تشغيله للتحقق مما إذا كان مصنف معين مفتوحًا أم مغلقًا.
1. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة ثم انسخ VBA والصقه في ملف وحدة نافذة.
فبا: تحقق مما إذا كان المصنف مفتوحًا أم مغلقًا
Function IsWorkBookOpen(Name As String) As Boolean
Dim xWb As Workbook
On Error Resume Next
Set xWb = Application.Workbooks.Item(Name)
IsWorkBookOpen = (Not xWb Is Nothing)
End Function
Sub Sample()
Dim xRet As Boolean
xRet = IsWorkBookOpen("combine.xlsx")
If xRet Then
MsgBox "The file is open", vbInformation, "Kutools for Excel"
Else
MsgBox "The file is not open", vbInformation, "Kutools for Excel"
End If
End Sub3. والصحافة F5 مفتاح لتشغيل هذا vba ، وينبثق مربع حوار لتذكيرك بأن المصنف المحدد مفتوح أم لا.
تلميح: في VBA أعلاه ، "دمج"هو اسم المصنف الذي تريد التحقق منه ، يمكنك القيام بذلك حسب حاجتك.
تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام Kutools for Excel
إذا لم تكن معتادًا على VBA ، فيمكنك التحقق مما إذا كان المصنف مفتوحًا بواسطة كوتولس ل إكسيل، بما في ذلك قائمة الإختيارات ، الذي سيساعدك في عرض جميع المصنفات المفتوحة بوضوح في قائمة المصنفات في الجزء.
| كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. انقر كوتولس > قائمة الإختيارات لتمكين جزء التنقل. انظر لقطة الشاشة:
2. ثم اضغط مصنف وورقة لتوسيع الجزء للانتقال إليه مصنف وورقة الجزء. ويمكنك عرض كافة المصنفات المفتوحة في القائمة العلوية. انظر لقطة الشاشة:
بإضافة إلى قائمة الإختيارات في الجزء ، يمكنك أيضًا التبديل بسرعة بين المصنفات أو الأوراق في القائمة.
انقر هنا لمعرفة المزيد عن التنقل.
تجربة
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
