एक्सेल में अलार्म घड़ी सेट करें:3 सरल, विश्वसनीय तरीके

एक्सेल में अलार्म घड़ी कैसे सेट करें:3 उपयोगी तरीके

1. Excel में बीप ध्वनि के साथ अलार्म घड़ी सेट करना

• सबसे पहले, विज़ुअल बेसिक एडिटर खोलें Alt+F11 क्लिक करके . वैकल्पिक रूप से, आप डेवलपर के पास जा सकते हैं टैब पर जाएं और विजुअल बेसिक पर क्लिक करें।

• अब, Insert पर जाकर एक नया मॉड्यूल डालें>>मॉड्यूल .

• अब, मॉड्यूल में निम्नलिखित कोड लिखें।

'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

• अब, Run पर क्लिक करके कोड चलाएं शीर्ष पर बटन या F5 दबाकर .

• अब, एक विंडो पॉप अप होगी जिसमें अलार्म का समय पूछा जाएगा। यहां आपको 24 घंटे फॉर्मेट में समय देना होगा .

• समय निर्धारित करने के बाद, अनुमान लगाएं क्या? आपको ठीक 3 बीप सुनाई देंगी बस अलार्म के समय पर।

2. एक्सेल अलार्म घड़ी में कस्टम ध्वनि बजाना

• पहले चरण की तरह, एक नया मॉड्यूल खोलें विजुअल बेसिक में विंडो.
• अब, मॉड्यूल में निम्नलिखित कोड लिखें।

'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

• यहां F:\90_अनिरुद्ध\90_57\alarm1.wav के स्थान पर , अपनी ध्वनि फ़ाइल का स्थान लिखें। आप Windows फ़ाइल एक्सप्लोरर से फ़ाइल पता कॉपी करके ऐसा कर सकते हैं
• अब यदि आप F5 दबाकर कोड चलाते हैं , एकसंदेश बॉक्स अलार्म समय पूछते हुए दिखाई देगा। यहां, समय इनपुट करें (24 घंटे के प्रारूप में) और ओके पर क्लिक करें .

• समय निर्धारित करने के बाद, आपको अपनी स्वयं की कस्टम ध्वनि सुननी चाहिए जिसे आपने खतरनाक समय पर सेट किया है।

3. एक्सेल अलार्म घड़ी में संदेशों को प्रदर्शित करना और पढ़ना

• पहली और दूसरी विधि की तरह, विज़ुअल बेसिक खोलें विंडो खोलें और दूसरा नया मॉड्यूल डालें .
• फिर मॉड्यूल में निम्नलिखित कोड लिखें।

' 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

• अब, F5 दबाकर कोड चलाएं। परिणामस्वरूप, एक विंडो खुलेगी और आपको अलार्म समय इनपुट करना होगा और ओके दबाना होगा .

• नतीजतन, जब अलार्म समय आएगा, तो संदेश पहले पढ़ा जाएगा और फिर संदेश बॉक्स नीचे चित्र की तरह प्रदर्शित होगा।

याद रखने योग्य बातें

• अनुकूलित अलार्म ध्वनि बजाने के लिए, आपको .wav सेट करना होगा कृपया ध्यान रखें कि Mp3 इस मामले में फ़ाइल स्वरूप काम नहीं कर सकता है।

निष्कर्ष

संबंधित लेख

• एक्सेल में क्लॉक चार्ट कैसे बनाएं
• एक्सेल में डिजिटल घड़ी बनाने के लिए VBA कोड का उपयोग कैसे करें
• एक्सेल में एनालॉग घड़ी कैसे बनाएं
• यूजरफॉर्म पर एक्सेल वीबीए डिजिटल क्लॉक:एक व्यापक गाइड