Đặt Báo thức (Alarm Clock) trong Excel: 3 phương pháp đơn giản, tin cậy

Trong bài viết này, tôi sẽ chỉ cho bạn cách đặt báo thức trong Excel. Khi làm việc trong Excel, chúng ta có thể muốn nhắc nhở bản thân về việc quan trọng vào một thời điểm cụ thể. Nếu bạn đang tìm cách làm điều này, bạn đã đến đúng nơi. Ở đây, tôi sẽ cố gắng đưa ra nhiều cách đặt báo thức trong Excel. Hãy bắt đầu.

Cách đặt Báo thức trong Excel: 3 Phương pháp hữu ích

Phần này trình bày 3 phương pháp hiệu quả đặt báo thức trong Excel với minh họa phù hợp. Phương pháp 1: báo thức có tiếng bíp (beep) 3 lần. Phương pháp 2: báo thức với âm thanh tùy chỉnh (custom ringtone). Phương pháp 3 (thú vị nhất): hiển thị hộp thoại thông báo và đọc to nội dung tin nhắn tại giờ báo thức.

1. Đặt báo thức với tiếng bíp (Beep Sound) trong Excel

Phương pháp 1: chạy mô-đun VBA để đặt báo thức phát 3 tiếng bíp tại giờ hẹn. Để biết thêm chi tiết, hãy đọc và làm theo các bước dưới đây.

Các bước:

• Mở Visual Basic Editor bằng cách nhấn Alt + F11. Hoặc vào thẻ Developer và nhấp Visual Basic.

• Chèn mô-đun mới: vào Insert >> Module.

• Viết mã sau vào mô-đun:

' Alarm with beep sound (Báo thức tiếng bíp)
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

🗝️ Giải thích mã:

Đầu tiên, khai báo thủ tục Beep_Alarm. Khai báo biến beepat. Gán InputBox cho beepat. InputBox hiển thị từ khóa trong ngoặc kép. Dùng TimeValue gọi thủ tục Beep_Me. Thủ tục Beep_Me sẽ gọi lần lượt Beep_Me2 và Beep_Me3. Ba thủ tục này tạo ra 3 tiếng bíp khi đến giờ báo thức.

• Chạy mã bằng nút Run (Chạy) trên thanh công cụ hoặc nhấn F5.

• Cửa sổ hiện ra hỏi giờ báo thức. Bạn bắt buộc nhập định dạng 24 giờ.

• Sau khi đặt giờ, bạn sẽ nghe chính xác 3 tiếng bíp đúng lúc báo thức.

Cách này cho phép đặt tiếng bíp làm báo thức trong Excel.

Đọc thêm: Cách tạo Đồng hồ số trong Excel

2. Phát âm thanh tùy chỉnh (Custom Sound) trong Báo thức Excel

Phương pháp này hướng dẫn đặt báo thức trong Excel với âm thanh tùy chỉnh. Làm theo các bước dưới đây.

Các bước:

• Giống bước 1, mở mô-đun mới trong cửa sổ Visual Basic.
• Viết mã sau vào mô-đun:

' Alarm with Custom Sound (Báo thức âm thanh tùy chỉnh)
#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

🗝️ Giải thích mã:

Đầu tiên, khai báo 2 hàm Private cho 2 phiên bản Windows (Win64 và các phiên bản khác). Sau đó khai báo 3 hằng số: SND_SYNC, SND_ASYNC, SND_FILENAME. Tiếp theo, thủ tục CustomSound_Alarm. Bên trong, khai báo biến beepat InputBox. Dùng TimeValue gọi thủ tục AlarmSound2. AlarmSound2 sẽ phát file âm thanh cục bộ tại đường dẫn F:\90_Aniruddah\90_57\alarm1.wav. Bạn phải thay đường dẫn này bằng đường dẫn file âm thanh của bạn.

• Ở vị trí F:\90_Aniruddah\90_57\alarm1.wav, hãy viết đường dẫn file âm thanh của bạn. Lấy được bằng cách copy đường dẫn từ Windows File Explorer.
• Chạy mã nhấn F5, hộp thoại hiện ra hỏi giờ báo thức. Nhập giờ (định dạng 24h) và nhấn OK.

• Đến giờ hẹn, bạn sẽ nghe âm thanh tùy chỉnh đã đặt.

3. Hiển thị và Đọc to tin nhắn (Message) trong Báo thức Excel

Nhiều khi bên cạnh báo thức, ta cũng cần hiển thị hộp thoại thông báo tại giờ hẹn. Phương pháp này chỉ cách hiển thị và đọc to hộp thoại chứa tin nhắn tùy chỉnh. Thú vị? Hãy làm theo.

Các bước:

• Giống phương pháp 1, 2: mở Visual Basic, chèn New Module.
• Viết mã sau vào mô-đun:

' Alarm with Message (Báo thức có tin nhắn)
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

🗝️ Giải thích mã:

Trong mã này, thủ tục Reading_Message_Alarm. Khai báo biến beepat. Gán InputBox hỏi giờ báo thức. Dựa trên giờ, TimeValue gọi thủ tục DisplayAlarm. Thủ tục này sẽ đọc to (Speak) tin nhắn và hiển thị MsgBox.

• Chạy mã nhấn F5. Cửa sổ mở ra, nhập giờ báo thức và nhấn OK.

• Khi đến giờ báo thức, tin nhắn sẽ được đọc to trước, sau đó hộp thoại hiển thị như hình dưới.

Đọc thêm: Cách tạo Đồng hồ chạy trong Excel

Lưu ý quan trọng

• Để phát âm thanh tùy chỉnh, file âm thanh phải định dạng .wav. Lưu ý định dạng Mp3 có thể không hoạt động trong trường hợp này.

Tải tệp thực hành

Kết luận

Đây là kết thúc bài viết về đặt báo thức Excel. Nếu thấy hữu ích, hãy chia sẻ với bạn bè. Hãy cho chúng tôi biết nếu còn thắc mắc. Cuối cùng, ghé thăm Exeldemy để đọc thêm bài viết hay về Excel.

Các bài viết liên quan

• Cách tạo Biểu đồ đồng hồ trong Excel
• Cách dùng mã VBA tạo Đồng hồ số trong Excel
• Cách tạo Đồng hồ kim (Analog Clock) trong Excel
• Excel VBA Digital Clock on UserForm: Hướng dẫn toàn diện

Nhận miễn phí Bài tập Excel nâng cao có lời giải!