كيفية التحقق بسرعة مما إذا كان ملف (مصنف) مفتوحًا أو مغلقًا في Excel؟
في العمل اليومي على Excel، قد تفتح عدة مصنفات في نفس الوقت للعمل، ولكن أحيانًا قد تجعلك المئات من المصنفات في حيرة بشأن تذكر ما إذا كان مصنف معين مفتوحًا أم مغلقًا. توقف عن الطريقة التقليدية التي تعتمد على التحقق من الملفات واحدة تلو الأخرى، هنا سأقدم لك الحيل للعثور بسرعة على ما إذا كان المصنف مفتوحًا أم مغلقًا.
التحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام VBA
التحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام Kutools لـ Excel
التحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام VBA
إليك كود VBA يمكنك تشغيله للتحقق مما إذا كان مصنف معين مفتوحًا أم مغلقًا.
1. اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة ثم قم بنسخ ولصق كود VBA في نافذة الوحدة الجديدة.
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 Sub
3. واضغط F5 لتشغيل هذا الكود، ستظهر نافذة منبثقة لتذكيرك بما إذا كان المصنف المحدد مفتوحًا أم لا.
نصيحة: في الكود VBA أعلاه، “combine” هو اسم المصنف الذي تريد التحقق منه، ويمكنك تغييره حسب الحاجة.
التحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام Kutools لـ Excel
إذا لم تكن على دراية بـ VBA، يمكنك التحقق مما إذا كان المصنف مفتوحًا باستخدام Kutools لـ Excel، من خلال لوحة التنقل الخاصة به، والتي ستساعدك على رؤية جميع المصنفات المفتوحة بوضوح في قائمة المصنفات الموجودة في اللوحة.
بعد تثبيت Kutools لـ Excel مجانًا ، يرجى القيام بما يلي:
1. انقر Kutools > Navigation لتمكين لوحة التنقل. انظر الصورة:
2. ثم انقر Workbook & Sheet لتوسيع اللوحة والانتقال إلى Workbook & Sheet القسم. ويمكنك رؤية جميع المصنفات المفتوحة في القائمة العلوية. انظر الصورة:
مع لوحة التنقل، يمكنك أيضًا التبديل بسرعة بين المصنفات أو الأوراق في القائمة.
انقر هنا لمعرفة المزيد حول التنقل.
عرض توضيحي: كيفية إنشاء قائمة ديناميكية بأسماء الأوراق في Excel؟
أفضل أدوات زيادة الإنتاجية لمجموعة Office
عزز مهاراتك في Excel مع Kutools لـ Excel، وتمتع بكفاءة غير مسبوقة. يقدم Kutools لـ Excel أكثر من300 ميزة متقدمة لتعزيز الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب تجربة التبويبات إلى Office، ويجعل عملك أسهل بكثير
- فعّل تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint
- افتح وأنشئ مستندات متعددة في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ جديدة.
- يمنحك زيادة إنتاجية تصل إلى50% ويوفر عليك مئات النقرات يومياً!