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

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

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

ในส่วนนี้ เราจะสาธิตวิธีการตั้งนาฬิกาปลุกใน Excel ที่มีประสิทธิภาพ 3 วิธีพร้อมภาพประกอบที่เหมาะสม ในวิธีที่ 1 เราจะดูวิธีตั้งนาฬิกาปลุกด้วยเสียงบี๊บ 3 ครั้ง ต่อไปในวิธีที่ 2 เราจะตั้งนาฬิกาปลุกใน Excel ด้วยเสียงเรียกเข้าที่กำหนดเอง สุดท้ายวิธีที่ 3 เป็นวิธีที่น่าหลงใหลที่สุด ที่นี่ เราจะแสดงข้อความแจ้งเตือนและอ่านข้อความเมื่อถึงเวลาปลุก

1. การตั้งนาฬิกาปลุกด้วยเสียงบี๊บใน Excel

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

ขั้นตอน:

• ขั้นแรก เปิด Visual Basic Editor โดยคลิก Alt+F11 . หรือคุณสามารถไปที่ นักพัฒนาซอฟต์แวร์ แท็บแล้วคลิก Visual Basic

• ตอนนี้ แทรกโมดูลใหม่โดยไปที่ แทรก >> โมดูล .

• ตอนนี้ ให้เขียนโค้ดต่อไปนี้ในโมดูล

'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

🗝️ รหัสทำงานอย่างไร

ในตอนแรก เราจะประกาศชื่อรูทีนย่อย Beep_Alarm . จากนั้นเราจะประกาศตัวแปรอื่นชื่อ beep_at . เรากำหนด InputBox ไปที่เสียงบี๊บ_at ตัวแปร กล่องป้อนข้อมูล จะแสดงคำในเครื่องหมายจุลภาคคว่ำ จากนั้นเราจะนำแอปพลิเคชันอื่นชื่อ TimeValue . ในแอปพลิเคชันนี้ เราเรียกรูทีนย่อยอื่นชื่อ Beep_Me . เสียงบี๊บ_meนี้ รูทีนย่อยจะเรียกรูทีนย่อยอีกสองรูทีนในที่สุดชื่อ beep_me2 และ บี๊บ_me3 . รูทีนย่อยทั้งสามนี้จะส่งผลให้เกิดเสียงบี๊บสามครั้งเมื่อสัญญาณเตือน เวลามาถึง

• ตอนนี้ ให้เรียกใช้โค้ดโดยคลิกที่ เรียกใช้ ที่ด้านบนหรือโดยการกด F5 .

• ตอนนี้ หน้าต่างจะปรากฏขึ้นเพื่อขอเวลาปลุก ที่นี่คุณจะต้องระบุเวลาในรูปแบบ 24 ชั่วโมง .

• หลังจากตั้งเวลาแล้ว เดาอะไร? คุณจะได้ยินเสียงบี๊บ 3 ครั้ง อย่างแน่นอน ในเวลาปลุกเท่านั้น

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

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

2. การเล่นเสียงที่กำหนดเองในนาฬิกาปลุก Excel

ในวิธีนี้ เราจะได้เรียนรู้วิธีตั้ง นาฬิกาปลุก ใน Excel พร้อมเสียงที่กำหนดเอง . หากต้องการทราบข้อมูลเพิ่มเติม ให้ทำตามขั้นตอนด้านล่าง

ขั้นตอน:

• เช่นเดียวกับขั้นตอนที่ 1 เปิดโมดูลใหม่ ใน 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
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

🗝️ รหัสทำงานอย่างไร

อันดับแรก เราได้ประกาศฟังก์ชันส่วนตัวสองรายการ สำหรับ Windows สองเวอร์ชันที่แตกต่างกัน (Windows 64 และเวอร์ชันอื่นๆ) จากนั้นเราได้ประกาศ 3 ค่าคงที่ ชื่อ SND_SYNC , SND_ASYNC และ SND_FILENAME . หลังจากนั้น เราได้ดำเนินการ รูทีนย่อย อีกอันหนึ่ง ชื่อ CustomSound_Alarm .  ภายในรูทีนย่อยนี้ เราได้ประกาศ ตัวแปร ชื่อ กล่องป้อนข้อมูลบี๊บ . เราได้ใช้แอปพลิเคชันอื่นชื่อ TimeValue ที่จะเรียกรูทีนย่อยอื่นชื่อ AlarmSound2 . เสียงปลุก2 จะเล่นไฟล์เสียงในเครื่องซึ่งกำหนดตำแหน่งเป็น F:\90_Aniruddah\90_57\alarm1.wav . คุณต้องเขียนตำแหน่งของไฟล์ของคุณในตำแหน่งนี้

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

• หลังจากตั้งเวลา คุณควรได้ยินเสียงที่คุณกำหนดเองซึ่งคุณตั้งไว้ในเวลาที่น่าตกใจ

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

หลายครั้งนอกเหนือจากการตั้งเวลาปลุกแล้ว เรายังต้องแสดงกล่องข้อความในช่วงเวลาปลุกอีกด้วย ในวิธีนี้ ฉันจะแสดงวิธีแสดงและอ่านกล่องข้อความที่มีข้อความที่ปรับแต่งในช่วงเวลาปลุก ฟังดูน่าสนใจใช่ไหม? มาทำตามขั้นตอนด้านล่างกันเลย

ขั้นตอน:

• เช่นเดียวกับวิธีที่ 1 และ 2 ให้เปิด Visual Basic หน้าต่างและแทรก โมดูลใหม่ อื่น .
• จากนั้นจดโค้ดต่อไปนี้ลงในโมดูล

' 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

🗝️ รหัสทำงานอย่างไร

ในโค้ดนี้ ในตอนแรก เราได้ใช้รูทีนย่อยชื่อ Reading_Message_Alarm จากนั้นเราได้นำตัวแปรชื่อ beepat . ด้วยตัวแปรนี้ เราได้กำหนด InputBox ที่จะถามเวลาปลุก ตามเวลาปลุก แอปพลิเคชันชื่อ TimeValue จะเรียกรูทีนย่อยอื่นชื่อ DisplayAlarm . รูทีนย่อยนี้จะพูดข้อความและแสดงข้อความด้วย

• ตอนนี้ รันโค้ดโดยกด F5 ด้วยเหตุนี้ หน้าต่างจะเปิดขึ้น และคุณต้องป้อนเวลาปลุกแล้วกด ตกลง .

• ดังนั้น เมื่อถึงเวลาปลุก ข้อความจะถูกอ่านก่อน จากนั้นกล่องข้อความจะแสดงดังภาพด้านล่าง

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

สิ่งที่ต้องจดจำ

• สำหรับการเล่นเสียงปลุกที่กำหนดเอง คุณต้องตั้งค่า .wav โปรดทราบว่า Mp3 รูปแบบไฟล์อาจไม่ทำงานในกรณีนี้

ดาวน์โหลดหนังสือแบบฝึกหัด

บทสรุป

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

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

• วิธีสร้างแผนภูมินาฬิกาใน Excel
• วิธีใช้โค้ด VBA เพื่อสร้างนาฬิกาดิจิทัลใน Excel
• วิธีสร้างนาฬิกาอะนาล็อกใน Excel
• นาฬิกาดิจิทัล Excel VBA บนฟอร์มผู้ใช้:คู่มือฉบับสมบูรณ์