วิธีตรวจสอบอย่างรวดเร็วว่าไฟล์ (สมุดงาน) เปิดหรือปิดใน Excel หรือไม่?

การทำงานประจำวันของ Excel คุณจะเปิดสมุดงานหลาย ๆ เล่มพร้อมกันเพื่อทำงาน แต่บางครั้งสมุดงานหลายร้อยเล่มอาจทำให้คุณจำไม่ได้ว่ามีการเปิดหรือปิดสมุดงานใด เลิกใช้วิธีการแบบเดิมในการตรวจสอบไฟล์ทีละไฟล์ที่นี่ฉันแนะนำเคล็ดลับในการค้นหาเวิร์กบุ๊กที่เปิดหรือปิดอย่างรวดเร็ว

ตรวจสอบว่าเวิร์กบุ๊กเปิดหรือปิดด้วย VBA

ตรวจสอบว่าเวิร์กบุ๊กเปิดหรือปิดด้วย Kutools for Excel

ตรวจสอบว่าเวิร์กบุ๊กเปิดหรือปิดด้วย VBA

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

1 กด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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 นี้และกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณทราบว่าสมุดงานนั้นเปิดอยู่หรือไม่
    

เคล็ดลับ: ใน VBA ข้างต้น“รวมกัน” คือชื่อสมุดงานที่คุณต้องการตรวจสอบคุณสามารถตรวจสอบได้ตามต้องการ

ตรวจสอบว่าเวิร์กบุ๊กเปิดหรือปิดด้วย Kutools for Excel

หากคุณไม่คุ้นเคยกับ VBA คุณสามารถตรวจสอบว่ามีการเปิดสมุดงานอยู่หรือไม่ Kutools สำหรับ Excelด้วยของ การเดินเรือ บานหน้าต่างซึ่งจะช่วยให้คุณสามารถดูสมุดงานที่เปิดอยู่ทั้งหมดในรายการสมุดงานของบานหน้าต่างได้อย่างชัดเจน

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1 คลิก Kutools > การเดินเรือ เพื่อเปิดใช้งานบานหน้าต่างนำทาง ดูภาพหน้าจอ:

2 จากนั้นคลิก สมุดงานและแผ่นงาน เพื่อขยายบานหน้าต่างเพื่อไปที่ สมุดงานและแผ่นงาน มาตรา. และคุณสามารถดูสมุดงานที่เปิดอยู่ทั้งหมดในรายการด้านบน ดูภาพหน้าจอ:

ด้วยระบบเส้นทาง การเดินเรือ บานหน้าต่างคุณยังสามารถสลับไปมาระหว่างสมุดงานหรือแผ่นงานในรายการได้อย่างรวดเร็ว

คลิกที่นี่เพื่อเรียนรู้เพิ่มเติมเกี่ยวกับการนำทาง

การสาธิต: วิธีการสร้างรายการชื่อแผ่นงานแบบไดนามิกใน Excel