كيفية التحقق بسرعة مما إذا كان الملف (المصنف) مفتوحًا أو مغلقًا في 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 Sub
3. والصحافة F5 مفتاح لتشغيل هذا vba ، وينبثق مربع حوار لتذكيرك بأن المصنف المحدد مفتوح أم لا.
تلميح: في VBA أعلاه ، "دمج"هو اسم المصنف الذي تريد التحقق منه ، يمكنك القيام بذلك حسب حاجتك.
تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام Kutools for Excel
إذا لم تكن معتادًا على VBA ، فيمكنك التحقق مما إذا كان المصنف مفتوحًا بواسطة كوتولس ل إكسيل، بما في ذلك قائمة الإختيارات ، الذي سيساعدك في عرض جميع المصنفات المفتوحة بوضوح في قائمة المصنفات في الجزء.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. انقر كوتولس > قائمة الإختيارات لتمكين جزء التنقل. انظر لقطة الشاشة:
2. ثم اضغط مصنف وورقة لتوسيع الجزء للانتقال إليه مصنف وورقة الجزء. ويمكنك عرض كافة المصنفات المفتوحة في القائمة العلوية. انظر لقطة الشاشة:
بدافع قائمة الإختيارات في الجزء ، يمكنك أيضًا التبديل بسرعة بين المصنفات أو الأوراق في القائمة.
انقر هنا لمعرفة المزيد عن التنقل.
تجربة
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!