วิธีค้นหาหรือตรวจสอบว่าเวิร์กบุ๊กเฉพาะเปิดอยู่หรือไม่ใน Excel

คุณสามารถเปิดเวิร์กบุ๊กหลายเล่มพร้อมกันได้ หากคุณต้องการตรวจสอบว่าเวิร์กบุ๊กใดเล่มหนึ่งเปิดอยู่หรือไม่ VBA มีวิธีแก้ปัญหาง่ายๆ ให้ คำแนะนำนี้จะแสดงวิธีใช้โค้ด VBA เพื่อตรวจสอบอย่างรวดเร็วว่าเวิร์กบุ๊กเปิดอยู่หรือไม่

ตรวจสอบว่าเวิร์กบุ๊กเปิดอยู่หรือไม่ใน Excel

ตรวจสอบว่าเวิร์กบุ๊กเปิดอยู่หรือไม่ใน Excel

คุณสามารถทำดังนี้เพื่อตรวจสอบว่าเวิร์กบุ๊กเปิดอยู่หรือไม่ใน Excel

1 กด อื่น ๆ + F11 เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล.

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 ให้ป้อนชื่อสมุดงานที่คุณต้องการตรวจสอบจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

หากเปิดสมุดงานที่ระบุไว้สมุดงานนั้นจะปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่าสมุดงานนั้นเปิดอยู่

มิฉะนั้น คุณจะได้รับกล่องโต้ตอบด้านล่าง ถ้าสมุดงานที่ระบุไม่ได้เปิดอยู่