วิธีสร้างตัวจับเวลากล่องข้อความเพื่อปิดกล่องข้อความโดยอัตโนมัติหลังจากเวลาที่กำหนดใน 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 ได้อย่างไร?
- วิธีคัดลอกข้อความจากกล่องข้อความใน Excel
- จะปรากฏกล่องข้อความเมื่อเปิดใช้งาน / เปิดแผ่นงานที่ระบุใน Excel ได้อย่างไร?
- วิธีการแสดงกล่องข้อความเพื่อแสดงช่วงของเซลล์หรือค่าของเซลล์ใน Excel
- จะแสดงกล่องข้อความได้อย่างไรหากค่าของเซลล์เปลี่ยนแปลงภายในช่วงใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
