วิธีสร้างตัวจับเวลากล่องข้อความเพื่อปิดกล่องข้อความโดยอัตโนมัติหลังจากเวลาที่กำหนดใน Excel

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

สร้างตัวจับเวลากล่องข้อความเพื่อปิดกล่องข้อความโดยอัตโนมัติหลังจากเวลาที่กำหนด

สร้างตัวจับเวลากล่องข้อความเพื่อปิดกล่องข้อความโดยอัตโนมัติหลังจากเวลาที่กำหนด

ที่นี่มีเทมเพลตสคริปต์ VBA เพื่อให้คุณสร้างตัวจับเวลากล่องข้อความ

สมมติว่าคุณกำลังเรียกใช้สคริปต์ VBA เพื่อย้ายแถวตามค่าของเซลล์ หลังจากย้ายเสร็จแล้ว คุณต้องมีกล่องข้อความปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่าการดำเนินการสำเร็จและกล่องข้อความนี้จะต้องปิดโดยอัตโนมัติหลังจาก 4 วินาที (ดูภาพหน้าจอด้านล่าง) โปรดทำตามขั้นตอนด้านล่าง

1 เปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลแล้วแทรกโค้ด VBA ที่คุณต้องการใช้เพื่อย้ายแถวโดยยึดตามค่าของเซลล์

2. คัดลอกโค้ด VBA 1 ต่อไปนี้ และวางไว้หน้าโค้ดที่คุณต้องการใช้งาน ดูภาพหน้าจอด้านล่าง:

รหัส VBA 1:

Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
            ByVal xHwnd As LongPtr, _
            ByVal xText As String, _
            ByVal xCaption As String, _
            ByVal xMsgBoxStyle As VbMsgBoxStyle, _
            ByVal xwlange As Long, _
            ByVal xTimeOut As Long) _
    As Long

3. คัดลอกโค้ด VBA 2 ด้านล่างและวางไว้หน้าบรรทัด "End Sub" ของโค้ดที่คุณต้องการใช้งาน

รหัส VBA 2:

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

หมายเหตุ: คุณสามารถเปลี่ยนเนื้อหาของกล่องข้อความ และเวลาที่แสดงของกล่องโต้ตอบได้ตามความต้องการของคุณ

4. หลังจากรันโค้ดเพื่อดำเนินการ กล่องข้อความจะปรากฏขึ้นและปิดโดยอัตโนมัติหลังจากเวลาที่กำหนด (ในกรณีนี้คือ 4 วินาที)

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

บทความที่เกี่ยวข้อง:

• จะปรากฏกล่องข้อความเมื่อคลิกที่เซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างไร?
• วิธีคัดลอกข้อความจากกล่องข้อความใน Excel
• จะปรากฏกล่องข้อความเมื่อเปิดใช้งาน / เปิดแผ่นงานที่ระบุใน Excel ได้อย่างไร?
• วิธีการแสดงกล่องข้อความเพื่อแสดงช่วงของเซลล์หรือค่าของเซลล์ใน Excel
• จะแสดงกล่องข้อความได้อย่างไรหากค่าของเซลล์เปลี่ยนแปลงภายในช่วงใน Excel