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

इस लेख में, मैं आपको दिखाऊंगा कि एक्सेल में अलार्म घड़ी कैसे सेट करें। एक्सेल में काम करते समय, हम किसी विशेष समय पर खुद को किसी महत्वपूर्ण चीज की याद दिलाना चाह सकते हैं। यदि आप इस कार्य को पूरा करना चाहते हैं, तो आप सही जगह पर आए हैं। यहां, मैं एक्सेल में अलार्म घड़ी सेट करने के कई तरीके विकसित करने की कोशिश करूंगा। तो, शुरू करते हैं।

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

इस खंड में, हम उचित उदाहरणों के साथ एक्सेल में अलार्म घड़ी सेट करने के 3 प्रभावी तरीकों का प्रदर्शन करेंगे। पहली विधि में, हम देखेंगे कि 3-बीप साउंड के साथ अलार्म घड़ी कैसे सेट करें। अगली, दूसरी विधि में, हम एक्सेल में कस्टम रिंगटोन के साथ अलार्म घड़ी सेट करेंगे। अंत में, तीसरी विधि सबसे आकर्षक है। यहां, हम अलार्म समय पर एक नोटिफिकेशन मैसेज प्रदर्शित करेंगे और मैसेज को पढ़ेंगे।

1. एक्सेल में बीप साउंड के साथ अलार्म घड़ी सेट करना

पहली विधि में, हम एक VBA मॉड्यूल चलाकर एक अलार्म घड़ी सेट करने की कोशिश करेंगे जो अलार्म के दौरान एक्सेल में तीन बीप साउंड बजाएगी। इस विधि के बारे में अधिक जानने के लिए, नीचे दिए गए चरणों को पढ़ें और फॉलो करें।

चरण:

1. सबसे पहले, Alt+F11 पर क्लिक करके विजुअल बेसिक एडिटर खोलें। वैकल्पिक रूप से, आप डेवलपर टैब पर जा सकते हैं और विजुअल बेसिक पर क्लिक कर सकते हैं।
2. अब, इंसर्ट >> मॉड्यूल पर जाकर एक नया मॉड्यूल डालें।
3. अब, मॉड्यूल में निम्नलिखित कोड लिखें।

'बीप साउंड के साथ अलार्म 
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 नामक एक और वेरिएबल घोषित करते हैं। हम beep_at वेरिएबल को एक इनपुटबॉक्स असाइन करते हैं। इनपुटबॉक्स इनवर्टेड कॉमा के अंदर के शब्दों को प्रदर्शित करेगा। फिर हम TimeValue नामक एक और एप्लिकेशन लेते हैं। इस एप्लिकेशन में, हम Beep_Me नामक एक और सबरूटीन को कॉल करते हैं। यह beep_me सबरूटीन अंततः beep_me2 और beep_me3 नामक दो अन्य सबरूटीन को कॉल करेगा। जब अलार्म समय आएगा तो ये तीन सबरूटीन तीन बीप साउंड का परिणाम देंगे।

4. अब, ऊपर रन बटन पर क्लिक करके या F5 दबाकर कोड चलाएं।
5. अब, एक विंडो खुलेगी जो अलार्म समय पूछेगी। यहां आपको समय 24 घंटे के फॉर्मेट में देना होगा।
6. समय सेट करने के बाद, क्या लगता है? अलार्म समय पर आपको ठीक 3 बीप्स सुनाई देंगे।

इस तरह, हम एक्सेल में अलार्म के रूप में बीप साउंड सेट कर सकते हैं।

और पढ़ें: एक्सेल में डिजिटल घड़ी कैसे बनाएं

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

इस विधि में, हम सीखेंगे कि कस्टम साउंड के साथ एक्सेल में अलार्म घड़ी कैसे सेट करें। अधिक जानने के लिए, नीचे दिए गए चरणों का पालन करें।

चरण:

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

'कस्टम साउंड के साथ अलार्म 
#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

🗝️ कोड कैसे काम करता है?

यहां, पहले, हमने विंडोज के दो अलग-अलग संस्करणों (विंडोज 64 और अन्य संस्करण) के लिए दो प्राइवेट फंक्शन्स घोषित किए हैं। फिर हमने 3 कॉन्स्टेंट्स घोषित किए हैं जिनके नाम SND_SYNC, SND_ASYNC और SND_FILENAME हैं। उसके बाद, हमने CustomSound_Alarm नामक एक और सबरूटीन लिया है। इस सबरूटीन के अंदर, हमने beepat इनपुट बॉक्स नामक एक वेरिएबल घोषित किया है। हमने TimeValue नामक एक और एप्लिकेशन लिया है जो AlarmSound2 नामक एक और सबरूटीन को कॉल करेगा। AlarmSound2 एक लोकल फाइल ऑडियो बजाएगा जिसका स्थान F:\90_Aniruddah\90_57\alarm1.wav सेट है। आपको इस स्थान पर अपनी फाइल का स्थान लिखना होगा।

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

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

कई बार अलार्म सेट करने के साथ, हमें अलार्म समय के दौरान एक मैसेज बॉक्स दिखाने की भी आवश्यकता होती है। इस विधि में, मैं आपको दिखाऊंगा कि अलार्म समय के दौरान एक कस्टमाइज्ड मैसेज वाले मैसेज बॉक्स को कैसे प्रदर्शित करें और पढ़ें। दिलचस्प लगता है? आइए नीचे दिए गए चरणों का पालन करें।

चरण:

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

'मैसेज के साथ अलार्म 
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 नामक एक वेरिएबल लिया है। इस वेरिएबल के साथ, हमने एक इनपुटबॉक्स असाइन किया है जो अलार्म समय पूछेगा। अलार्म समय के आधार पर, TimeValue नामक एक एप्लिकेशन DisplayAlarm नामक एक और सबरूटीन को कॉल करेगा। यह सबरूटीन मैसेज बोलेगा और मैसेज प्रदर्शित भी करेगा।

3. अब, F5 दबाकर कोड चलाएं। परिणामस्वरूप, एक विंडो खुलेगी और आपको अलार्म समय दर्ज करके ओके दबाना होगा।
4. नतीजतन, जब अलार्म समय आएगा, तो मैसेज पहले पढ़ा जाएगा और फिर नीचे दी गई तस्वीर की तरह मैसेज बॉक्स प्रदर्शित होगा।

और पढ़ें: एक्सेल में रनिंग घड़ी कैसे बनाएं

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

• कस्टमाइज्ड अलार्म साउंड बजाने के लिए, आपको .wav सेट करना होगा। कृपया ध्यान दें कि इस मामले में Mp3 फाइल फॉर्मेट काम नहीं कर सकता है।

प्रैक्टिस वर्कबुक डाउनलोड करें

निष्कर्ष

यह एक्सेल अलार्म घड़ी सेट करने के संबंध में इस लेख का अंत है। यदि आप इस लेख को उपयोगी पाते हैं, तो कृपया इसे अपने दोस्तों के साथ शेयर करें। इसके अलावा, यदि आपके कोई और प्रश्न हैं, तो हमें बताएं। अंत में, एक्सेल पर अधिक रोमांचक लेखों के लिए एक्सेलडेमी पर जाएं।

संबंधित लेख

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

मुफ्त एडवांस एक्सेल अभ्यास समाधान के साथ प्राप्त करें!