ตั้งนาฬิกาปลุกใน Excel: 3 วิธีง่ายและน่าเชื่อถือ

บทความนี้จะสอนตั้ง นาฬิกาปลุก (Alarm Clock) ใน Excel ขณะทำงานอาจต้องการเตือนตัวเองเรื่องสำคัญเวลาใดเวลาหนึ่ง หากหาวิธีทำอยู่ ถูกที่แล้ว จะเสนอหลายวิธีตั้งนาฬิกาปลุกใน Excel เริ่มกันเลย

วิธีตั้งนาฬิกาปลุกใน Excel: 3 วิธีที่มีประโยชน์

จะสาธิต 3 วิธีมีประสิทธิภาพพร้อมภาพประกอบ: 1) นาฬิกาปลุกเสียงบี๊บ 3 ครั้ง 2) นาฬิกาปลุกเสียงเพลงกำหนดเอง 3) แสดงข้อความและอ่านข้อความออกเสียงเวลาปลุก

1. ตั้งนาฬิกาปลุกเสียงบี๊ป (Beep Sound) ใน Excel

วิธีแรก: รัน VBA Module ตั้งนาฬิกาปลุกเสียงบี๊ป 3 ครั้ง ตามขั้นตอน:

ขั้นตอน:

• เปิด Visual Basic Editor ด้วย Alt+F11 หรือแท็บ Developer > Visual Basic

• แทรกโมดูลใหม่: Insert >> Module

• วางโค้ดในโมดูล:

' Alarm with beep sound
Sub Beep_Alarm()
    Dim beepat As String
    beepat = InputBox("Give Alarm at", "hh:mm:ss " & _ Format(Now, "mm:hh"), "23:30")
    If beepat = "" Then MsgBox "terminated": Exit Sub
    Application.OnTime TimeValue(beepat), "Beep_Me"
End Sub

Sub beep_me()
    Beep
    Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beep_me2"
End Sub

Sub beep_me2()
    Beep
    Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beep_me3"
End Sub

Sub beep_me3()
    Beep
End Sub

🗝️ โค้ดทำงานอย่างไร?

ประกาศ Sub Beep_Alarm ตัวแปร beepat รับค่าจาก InputBox แสดงข้อความในเครื่องหมายคำพูด ใช้ TimeValue เรียก Sub Beep_Me ซึ่งจะเรียก beep_me2 และ beep_me3 ต่อเนื่อง ทำให้ได้เสียงบี๊ป 3 ครั้งเมื่อถึงเวลา

• กด Run หรือ F5 รันโค้ด

• หน้าต่างขึ้นขอเวลาปลุก ต้องใส่รูปแบบ 24 ชั่วโมง

• ตั้งเวลาแล้ว จะได้ยิน เสียงบี๊ป 3 ครั้ง ตรงเวลาที่ตั้ง

วิธีนี้ตั้งเสียงบี๊ปเป็นนาฬิกาปลุกใน Excel ได้

อ่านเพิ่มเติม: วิธีสร้างนาฬิกาดิจิทัลใน Excel

2. เล่นเสียงเพลงกำหนดเอง (Custom Sound) ในนาฬิกาปลุก Excel

วิธีนี้: ตั้งนาฬิกาปลุกพร้อม เสียงเพลงกำหนดเอง

ขั้นตอน:

• เปิด Module ใหม่ใน Visual Basic เหมือนวิธีแรก
• วางโค้ด:

' Alarm with Custom Sound
#If Win64 Then
    Private Declare PtrSafe Function Play_Sound Lib "winmm.dll" _
    Alias "PlaySoundA" (ByVal AA_lpszName As String, _
    ByVal AA_Module As LongPtr, ByVal AA_Flags As Long) As Boolean
#Else
    Private Declare Function Play_Sound Lib "winmm.dll" _
    Alias "PlaySoundA" (ByVal AA_lpszName As String, _
    ByVal AA_Module As Long, ByVal AA_Flags As Long) As Boolean
#End If
Const AA_SND_SYNC = &H0
Const AA_SND_ASYNC = &H1
Const AA_SND_FILENAME = &H20000

Sub CustomSound_Alarm()
    Dim beepat As String
    beepat = InputBox("Give Alarm at", "hh:mm:ss " & _ Format(Now, "mm:hh"), "11:30")
    If beepat = "" Then MsgBox "Terminated": Exit Sub
    Application.OnTime TimeValue(beepat), "AlarmSound2"
End Sub

Sub AlarmSound2()
    Call Play_Sound("F:\90_Aniruddah\90_57\alarm1.wav", _
    0, AA_SND_ASYNC Or AA_SND_FILENAME)
End Sub

🗝️ โค้ดทำงานอย่างไร?

ประกาศ Private Function 2 ตัวสำหรับ Windows 64-bit และอื่นๆ ประกาศ 3 Constants: SND_SYNC, SND_ASYNC, SND_FILENAME Sub CustomSound_Alarm รับเวลาจาก InputBox ใช้ TimeValue เรียก AlarmSound2 ซึ่งเล่นไฟล์เสียงจากพาธ F:\90_Aniruddah\90_57\alarm1.wav ต้องแก้พาธเป็นไฟล์เสียงของตัวเอง

• แก้พาธ F:\90_Aniruddah\90_57\alarm1.wav เป็นตำแหน่งไฟล์เสียง .wav ของคุณ (คัดลอกจาก Windows File Explorer)
• กด F5 รัน กล่องขอเวลาปลุก (รูปแบบ 24 ชม.) ใส่เวลา กด OK

• ถึงเวลา จะได้ยินเสียงเพลงที่ตั้งไว้

3. แสดงและอ่านข้อความออกเสียงในนาฬิกาปลุก Excel

บ่อยครั้งต้องการแสดงกล่องข้อความพร้อมอ่านออกเสียงเวลาปลุก วิธีนี้จะสาธิตทั้งสองอย่าง

ขั้นตอน:

• เปิด Visual Basic แทรก New Module เหมือนเดิม
• วางโค้ด:

' Alarm with Message
Sub Reading_Message_Alarm()
    Dim beepat As String
    beepat = InputBox("Give Alarm at", "hh:mm:ss " & _ Format(Now, "mm:hh"), "11:30")
    If beepat = "" Then MsgBox "Terminated": Exit Sub
    Application.OnTime TimeValue(beepat), "DisplayAlarm"
End Sub

Sub DisplayAlarm()
    Application.Speech.Speak ("This is the message that will be read out during alarm time.")
    MsgBox "This is the message that will be displayed in the messagebox"
End Sub

🗝️ โค้ดทำงานอย่างไร?

Sub Reading_Message_Alarm ตัวแปร beepat รับ InputBox ขอเวลา TimeValue เรียก DisplayAlarm ซึ่งจะ Speak ข้อความและ MsgBox แสดงข้อความ

• กด F5 รัน กล่องขอเวลาปลุก ใส่เวลา กด OK

• ถึงเวลา: ข้อความจะถูกอ่านออกเสียงก่อน แล้วค่อยแสดง MsgBox

อ่านเพิ่มเติม: วิธีสร้างนาฬิกาทำงานใน Excel

ข้อควรจำ

• สำหรับเสียงเพลงกำหนดเอง ต้องใช้ไฟล์ .wav ไฟล์ MP3 อาจไม่ทำงาน

ดาวน์โหลดสมุดงานฝึกหัด

สรุป

จบบทความตั้งนาฬิกาปลุกใน Excel หวังว่าจะมีประโยชน์ แชร์ให้เพื่อนๆ ได้ และถามเพิ่มได้ในความคิดเห็น เยี่ยมชม Exeldemy สำหรับบทความ Excel น่าสนใจอื่นๆ

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

• วิธีสร้าง Clock Chart ใน Excel
• วิธีใช้ VBA Code สร้างนาฬิกาดิจิทัลใน Excel
• วิธีสร้างนาฬิกาแบบอนาล็อกใน Excel
• Excel VBA Digital Clock on UserForm: คู่มือฉบับสมบูรณ์

รับแบบฝึกหัด Excel ขั้นสูงพร้อมเฉลยฟรี!