Đặt đồng hồ báo thức trong Excel:3 phương pháp đơn giản, đáng tin cậy

Trong bài viết này tôi sẽ hướng dẫn các bạn cách đặt đồng hồ báo thức trong Excel. Trong khi làm việc trong Excel, chúng ta có thể muốn nhắc nhở bản thân về điều gì đó quan trọng tại một thời điểm cụ thể. Nếu bạn đang muốn đạt được nhiệm vụ này, bạn đã đến đúng nơi.  Ở đây, tôi sẽ cố gắng nghĩ ra nhiều cách đặt đồng hồ báo thức trong Excel. Vì vậy, hãy bắt đầu.

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

Trong phần này, chúng tôi sẽ trình bày 3 phương pháp hiệu quả để đặt đồng hồ báo thức trong Excel với hình ảnh minh họa phù hợp. Ở phương pháp đầu tiên, chúng ta sẽ xem cách đặt đồng hồ báo thức bằng âm thanh 3 tiếng bíp. Tiếp theo, ở cách thứ 2, chúng ta sẽ đặt đồng hồ báo thức trong Excel bằng nhạc chuông tùy chỉnh. Cuối cùng, phương pháp thứ 3 là phương pháp hấp dẫn nhất. Tại đây, chúng ta sẽ hiển thị tin nhắn thông báo và đọc to tin nhắn vào lúc báo thức.

1. Đặt đồng hồ báo thức bằng tiếng bíp trong Excel

Trong phương pháp đầu tiên, chúng tôi sẽ thử chạy mô-đun VBA để đặt đồng hồ báo thức sẽ phát ba tiếng bíp trong khi báo thức trong Excel. Để tìm hiểu thêm về phương pháp này, hãy đọc và làm theo các bước bên dưới.

Các bước:

• Đầu tiên, hãy mở Trình soạn thảo Visual Basic bằng cách nhấp vào Alt+F11 . Ngoài ra, bạn có thể truy cập Nhà phát triển và nhấp vào Visual Basic.

• Bây giờ, hãy chèn một mô-đun mới bằng cách đi tới Insert >> Mô-đun .

• Bây giờ, hãy viết đoạn mã sau vào mô-đun.

'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
 End If
 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

🗝️ Mã hoạt động như thế nào?

Đầu tiên chúng ta khai báo tên chương trình con Beep_Alarm . Sau đó chúng ta khai báo một biến khác có tên beep_at . Chúng tôi chỉ định một InputBox đến tiếng bíp biến. Hộp đầu vào sẽ hiển thị các từ bên trong dấu phẩy đảo ngược. Sau đó, chúng tôi lấy một ứng dụng khác có tên TimeValue . Trong ứng dụng này, chúng tôi gọi một chương trình con khác có tên Beep_Me . tiếng bíp này chương trình con cuối cùng sẽ gọi hai chương trình con khác có tên beep_me2 và tiếng bíp_me3 . Ba chương trình con này sẽ phát ra ba tiếng bíp khi báo thức thời gian đến.

• Bây giờ, hãy chạy mã bằng cách nhấp vào Chạy ở trên cùng hoặc bằng cách nhấn F5 .

• Bây giờ, một cửa sổ sẽ bật lên hỏi giờ báo thức. Ở đây bạn phải cung cấp thời gian ở định dạng 24 giờ .

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

Bằng cách này, chúng ta có thể đặt âm thanh bíp làm báo thức trong Excel.

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

2. Phát âm thanh tùy chỉnh trong đồng hồ báo thức Excel

Trong phương pháp này, chúng ta sẽ tìm hiểu cách đặt đồng hồ báo thức trong Excel với âm thanh tùy chỉnh . Để biết thêm, hãy làm theo các bước bên dưới.

Các bước:

• Giống như bước đầu tiên, hãy mở mô-đun mới trong Visual Basic Cửa sổ.
• Bây giờ, hãy viết đoạn mã sau vào mô-đun.

'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
End If
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

🗝️ Mã hoạt động như thế nào?

Ở đây, trước tiên, chúng ta đã khai báo hai hàm riêng tư cho hai phiên bản Windows khác nhau (Windows 64 và các phiên bản khác). Sau đó chúng ta đã khai báo 3 hằng số có tên là SND_SYNC , SND_ASYNC và SND_FILENAME . Sau đó, chúng tôi đã thực hiện một chương trình con khác có tên là CustomSound_Alarm .  Bên trong chương trình con này, chúng ta đã khai báo một biến có tên là hộp nhập tiếng bíp . Chúng tôi đã sử dụng một ứng dụng khác có tên TimeValue nó sẽ gọi một chương trình con khác có tên AlarmSound2 . AlarmSound2 sẽ phát âm thanh tệp cục bộ có vị trí được đặt là F:\90_Aniruddah\90_57\alarm1.wav . Bạn cần ghi vị trí Tệp của mình vào vị trí này.

• Ở đây thay cho F:\90_Aniruddah\90_57\alarm1.wav , ghi vị trí của tập tin âm thanh của bạn. Bạn có thể làm điều đó bằng cách sao chép địa chỉ tệp từ Windows File Explorer.
• Bây giờ nếu bạn chạy mã bằng cách nhấn F5 , một hộp thông báo sẽ xuất hiện yêu cầu Thời gian báo thức. Tại đây, nhập thời gian (ở định dạng 24 giờ) và nhấp vào OK .

• Sau khi cài đặt thời gian, bạn sẽ nghe thấy âm thanh tùy chỉnh mà bạn đã đặt vào thời điểm báo thức.

3. Hiển thị và đọc tin nhắn trong đồng hồ báo thức Excel

Nhiều khi cùng với việc đặt báo thức, chúng ta cũng cần hiển thị hộp thông báo trong thời gian báo thức. Trong phương pháp này, tôi sẽ hướng dẫn bạn cách hiển thị và đọc to hộp thông báo chứa thông báo tùy chỉnh trong thời gian báo thức. Nghe có vẻ thú vị? Hãy làm theo các bước dưới đây.

Các bước:

• Giống như phương pháp 1 và 2, hãy mở Visual Basic cửa sổ và chèn một Mô-đun mới khác .
• Sau đó viết đoạn mã sau vào mô-đun.

' 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
 End If
 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

🗝️ Mã hoạt động như thế nào?

Trong mã này, lúc đầu, chúng tôi sử dụng một chương trình con có tên Reading_Message_Alarm. Sau đó, chúng tôi đã lấy một biến có tên beepat . Với biến này, chúng tôi đã gán InputBox nó sẽ yêu cầu thời gian báo thức. Dựa trên thời gian báo thức, một ứng dụng có tên TimeValue sẽ gọi một chương trình con khác có tên DisplayAlarm . Chương trình con này sẽ đọc thông báo và hiển thị thông báo.

• Bây giờ, hãy chạy mã bằng cách nhấn F5. Kết quả là một cửa sổ sẽ mở ra và bạn cần nhập thời gian báo thức rồi nhấn OK .

• Do đó, khi đến giờ báo thức, tin nhắn sẽ được đọc trước và sau đó hộp thông báo sẽ hiển thị như hình bên dưới.

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

Những điều cần nhớ

• Để phát âm thanh báo thức tùy chỉnh, bạn cần đặt .wav Xin lưu ý rằng Mp3 định dạng tệp có thể không hoạt động trong trường hợp này.

Tải xuống sổ tay thực hành

Kết luận

Đó là phần cuối của bài viết về cách đặt đồng hồ báo thức trong Excel. Nếu bạn thấy bài viết này hữu ích, hãy chia sẻ nó với bạn bè của bạn. Hơn nữa, hãy cho chúng tôi biết nếu bạn có bất kỳ thắc mắc nào khác. Cuối cùng, vui lòng truy cập Exeldemy để xem thêm các bài viết thú vị về Excel.

Bài viết liên quan

• Cách tạo biểu đồ đồng hồ trong Excel
• Cách sử dụng mã VBA để tạo đồng hồ kỹ thuật số trong Excel
• Cách tạo đồng hồ kim trong Excel
• Đồng hồ kỹ thuật số Excel VBA trên UserForm:Hướng dẫn toàn diện