كيفية العثور على أو التحقق مما إذا كان مصنف معين مفتوحًا أم لا في Excel؟

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

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

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

يمكنك القيام بما يلي للتحقق مما إذا كان المصنف مفتوحًا أم لا في Excel.

1. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة.

2. بعد ذلك، قم بنسخ ولصق كود VBA أدناه في المحرر.

كود VBA: البحث عما إذا كان المصنف مفتوحًا

Sub TrimExcessSpaces()
	Dim xWBName As String
	Dim xWb As Workbook
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	xWBName = Application.InputBox("Workbook Name", xTitleId, "", Type: = 2)
	Set xWb = Application.Workbooks(xWBName)

	If xWb Is Nothing Then
		MsgBox "The Workbook is not open!"
	Else
		MsgBox "The Workbook is open!"
	End If

End Sub

3. الآن اضغط على مفتاح F5 لتشغيل الكود. في مربع الحوار المنبثق KutoolsforExcel، أدخل اسم المصنف الذي تريد التحقق منه، ثم انقر فوق زر موافق. شاهد لقطة الشاشة:

إذا كان المصنف المحدد مفتوحًا، سيظهر مربع حوار يخبرك بأن المصنف مفتوح؛

وإلا، ستحصل على مربع الحوار أدناه إذا لم يكن المصنف المحدد مفتوحًا.