एक्सेल में डिजिटल घड़ी बनाएं: VBA और फॉर्मूला के दो सरल तरीके

विधि 1 - एक्सेल VBA और TEXT फंक्शन के माध्यम से डिजिटल घड़ी बनाएं

चरण:

1. इंसर्ट > इलस्ट्रेशन्स > शेप्स पर जाएं।
2. शेप्स मेनू से राउंडेड रेक्टेंगुलर विकल्प चुनें।
3. वर्कबुक में एक राउंडेड रेक्टेंगुलर शेप डाला जाएगा।
4. डेवलपर टैब पर जाएं और विजुअल बेसिक पर क्लिक करें।
5. विजुअल बेसिक विंडो में, इंसर्ट टैब पर जाएं और मॉड्यूल बॉक्स बनाने के लिए मॉड्यूल विकल्प पर क्लिक करें।
6. मॉड्यूल बॉक्स में निम्नलिखित VBA कोड दर्ज करें:

Sub Digi_Clock() 
    Range("B5") = Not Range("B5") 
    Do While Range("B5") = True 
        DoEvents 
        Range("B6") = Now() 
    Loop 
End Sub

7. हरे रन बटन को दबाएं।
8. सेल B4 में TRUE दर्ज करें और एंटर या टैब दबाएं।
9. राउंडेड रेक्टेंगल पर राइट-क्लिक करें।
10. कॉन्टेक्स्ट मेनू में, कोड को रेक्टेंगल में शामिल करने के लिए असाइन मैक्रो विकल्प चुनें।
11. हमने रेक्टेंगल शेप में VBA डाला है। यह बाद में समय प्रदर्शित करेगा।
12. सेल C6 में निम्नलिखित TEXT फॉर्मूला दर्ज करें:

=TEXT(B6,"hh:mm:ss AM/PM")

12. यह सेल B6 में समय को परिवर्तित करता है और hh:mm:ss फॉर्मेट में समय फॉर्मेट लौटाता है।
13. एंटर दबाएं।
14. होम टैब पर जाएं फिर फॉन्ट ग्रुप में।
15. फॉन्ट कलर, साइज और स्टाइल को कस्टमाइज़ करें।
16. समय डिजिटल फॉर्मेट में प्रदर्शित होगा।

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

विधि 2 - शेप्स टूल और एक्सेल VBA का उपयोग करके डिजिटल घड़ी डिजाइन करें

चरण 1: घड़ी डिजाइन करें

1. इंसर्ट > इलस्ट्रेशन्स > शेप्स टैब पर जाएं।
2. शेप्स ऑप्शन बॉक्स में, ब्लॉक एरोज ग्रुप ढूंढें और पेंटागन एरो चुनें।
3. नतीजतन, वर्कबुक में एक पेंटागन एरो डाला जाएगा।
4. कॉपी-पेस्ट कमांड का उपयोग करके एक और एरो शेप डालें।
5. नए डाले गए एरो को चुनें और शेप फॉर्मेट > रोटेट टैब पर जाएं।
6. फ्लिप हॉरिजॉन्टल विकल्प चुनें।
7. प्रत्येक एरो को कॉपी करें और उन्हें गोल आकार बनाने के लिए एक साथ रखें।
8. आवश्यकतानुसार रोटेट विकल्पों का उपयोग करें।
9. सभी एरोज को आठ (8) आकार में पुनर्व्यवस्थित करें।
10. पहले अंक को कस्टमाइज़ करें, प्रत्येक एरो ग्रुप पर राइट-क्लिक करें और उन्हें क्रमिक रूप से 1 से नाम दें।
11. पूरे ग्रुप को कॉपी-पेस्ट करके उन्हें hh:mm:ss फॉर्मेट दें जैसा नीचे दिखाया गया है।
12. उन्हें 1 से 42 तक नाम दें।
13. 4 ओवल शेप्स जोड़ें और उन्हें पॉइंट नाम दें।
14. 3 राउंडेड रेक्टेंगल जोड़ें ताकि 3 कमांड विकल्प डालें: स्टार्ट, स्टॉप और रीसेट।
15. हमने अपनी घड़ी के लिए डिस्प्ले फॉर्मेट बना लिया है। अब हम फॉर्मेट में VBA कोड शामिल करेंगे।

चरण 2: एक्सेल VBA कोड डालें

1. ALT + F11 दबाकर बेसिक विजुअल विंडो खोलें।
2. निम्नलिखित VBA कोड जोड़ें:

Sub Digital_Clock_Autoshapes(FS As Integer, Digi As Integer) 
    Dim n As Integer 
    Dim Spe As Shape 
    Dim Shw As Worksheet 
    Set Shw = ActiveSheet 
    Dim i As Integer 
    
    For i = FS To FS + 6 
        Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
        Spe.Visible = msoCTrue 
    Next i 
    
    If Digi = 0 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS + 2 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 1 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i <> FS + 1 And i <> FS + 5 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 2 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS + 3 Or i = FS + 5 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 3 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS + 3 Or i = FS + 4 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 4 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS Or i = FS + 4 Or i = FS + 6 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 5 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS + 1 Or i = FS + 4 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 6 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS + 1 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 7 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS + 3 Or i = FS + 2 Or i = FS + 4 Or i = FS + 6 Then Spe.Visible = msoFalse 
        Next i 
    End If 
    
    If Digi = 9 Then 
        For i = FS To FS + 6 
            Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
            If i = FS + 4 Then Spe.Visible = msoFalse 
        Next i 
    End If 
End Sub

3. विंडो बंद करें और अपने एक्टिव वर्कबुक पर जाएं।
4. 3 अन्य VBA कोड निम्नानुसार जोड़ें।
5. स्टार्ट कमांड के लिए, दर्ज करें:

Sub Start_Clock() 
    Dim Shw As Worksheet 
    Set Shw = ActiveSheet 
    Shw.Range("B5").Value = "" 
    x: If Shw.Range("B5").Value = "Stop" Then Exit Sub 
    VBA.DoEvents 
    Call Digital_Clock_Autoshapes(1, VBA.CInt(VBA.Left(VBA.Format(Time, "HH"), 1))) 
    Call Digital_Clock_Autoshapes(8, VBA.CInt(VBA.Right(VBA.Format(Time, "HH"), 1))) 
    Call Digital_Clock_Autoshapes(15, VBA.CInt(VBA.Mid(VBA.Format(Time, "HHMM"), 3, 1))) 
    Call Digital_Clock_Autoshapes(22, VBA.CInt(VBA.Right(VBA.Format(Time, "HHMM"), 1))) 
    Call Digital_Clock_Autoshapes(29, VBA.CInt(VBA.Left(VBA.Format(Time, "SS"), 1))) 
    Call Digital_Clock_Autoshapes(36, VBA.CInt(VBA.Right(VBA.Format(Time, "SS"), 1))) 
    Dim Spe As Shape 
    Set Spe = Shw.Shapes("Point") 
    If Application.WorksheetFunction.IsEven(VBA.Second(VBA.Now)) Then 
        Spe.Visible = msoCTrue 
    Else 
        Spe.Visible = msoFalse 
    End If 
    GoTo x 
End Sub

6. स्टॉप कमांड के लिए कोड जोड़ें:

Sub Stop_Clock() 
    Dim Shw As Worksheet 
    Set Shw = ActiveSheet 
    Shw.Range("B5").Value = "Stop" 
End Sub

7. रीसेट कमांड के लिए VBA कोड जोड़ें:

Sub Reset_Clock() 
    Dim n As Integer 
    Dim Spe As Shape 
    Dim Shw As Worksheet 
    Set Shw = ActiveSheet 
    Dim i As Integer 
    For i = 1 To 42 
        Set Spe = Shw.Shapes(VBA.Format(i, "0")) 
        Spe.Visible = msoCTrue 
    Next i 
    Set Spe = Shw.Shapes("Point") 
    Spe.Visible = msoCTrue 
End Sub

8. स्टार्ट कमांड पर राइट-क्लिक करें और असाइन मैक्रो पर टैप करें।
9. स्टार्ट_क्लॉक मैक्रो को स्टार्ट कमांड के लिए असाइन करें।
10. रीसेट_क्लॉक और स्टॉप_क्लॉक को क्रमशः रीसेट और स्टॉप कमांड विकल्पों के लिए असाइन करें।
11. ओके दबाएं।
12. कमांड विकल्पों के साथ डिजिटल घड़ी दिखाई देगी।

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

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

संबंधित लेख

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

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