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

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

• सम्मिलित करें> चित्रण> आकृतियाँ पर जाएँ

• आकृतियाँ मेनू विकल्प बॉक्स पॉप अप हो जाएगा।
• गोल आयताकार का चयन करें विकल्प.

• कार्यपुस्तिका में एक गोल आयताकार आकार डाला जाएगा।

• डेवलपर पर जाएं टैब पर जाएँ और विज़ुअल बेसिक पर क्लिक करें .

• विज़ुअल बेसिक में विंडो, सम्मिलित करें पर जाएँ टैब और मॉड्यूल पर क्लिक करें मॉड्यूल बॉक्स बनाने का विकल्प।

• मॉड्यूल बॉक्स में, निम्नलिखित VBA दर्ज करें कोड.

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

• हरा दबाएं भागो बटन.

• सेल B4 में ,सत्यदर्ज करें और Enter दबाएँ या टैब.

• गोल आयत पर राइट-क्लिक करें।
• संदर्भ मेनू में, मैक्रो असाइन करें चुनें कोड को आयत में शामिल करने का विकल्प।

• हमने VBA डाला आयताकार आकार में.
• यह बाद में समय प्रदर्शित करेगा।

• सेल C6 में , निम्नलिखित पाठ दर्ज करें सूत्र,

• यह सेल B6 में समय परिवर्तित करता है और hh:mm:ss  में एक समय प्रारूप लौटाता है प्रारूप.
• Enter दबाएं.
• घर पर जाएं टैब फिर फ़ॉन्ट समूह.
• फ़ॉन्ट का रंग, आकार और शैली अनुकूलित करें।

• समय डिजिटल प्रारूप में प्रदर्शित किया जाएगा।

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

• सम्मिलित करें> चित्रण> आकृतियाँ पर जाएँ टैब.

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

• कॉपी-पेस्ट कमांड का उपयोग करके एक और तीर का आकार डालें।
• नए डाले गए तीर का चयन करें और आकार प्रारूप> घुमाएं पर जाएं टैब.
• फ्लिप क्षैतिज का चयन करें विकल्प.

• प्रत्येक तीर की प्रतिलिपि बनाएँ और उन्हें गोल आकार बनाने के लिए एक साथ रखें।
• घुमाएँ का उपयोग करें आवश्यकतानुसार विकल्प.

• सभी तीरों को आठ (8) में पुनर्व्यवस्थित करें ) आकार.
• पहले अंक को अनुकूलित करें, प्रत्येक तीर समूह पर राइट-क्लिक करें और उन्हें 1 से क्रमिक रूप से नाम दें .

• पूरे समूह को hh:mm:ss देने के लिए कॉपी-पेस्ट करें प्रारूप जैसा कि नीचे दिखाया गया है।
• उन्हें 1 से नाम दें से 42 .
• 4 अंडाकार जोड़ें आकृतियाँ और उन्हें बिंदु नाम दें .
• 3 गोलाकार आयत जोड़ें 3 डालने के लिए कमांड विकल्प:प्रारंभ , रुको और रीसेट करें .

• हमने अपनी घड़ी के लिए अपना डिस्प्ले फॉर्मेट तैयार कर लिया है।
• अब हम प्रारूप में VBA कोड शामिल करेंगे।

• ALT+ F11 दबाएँ बेसिक विज़ुअल खोलने के लिए खिड़की.
• निम्नलिखित 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
End If
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
End If
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
End If
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
End If
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
End If
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
End If
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
End If
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
End If
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
End If
Next i
End If
End Sub

• विंडो बंद करें और अपनी सक्रिय कार्यपुस्तिका पर जाएं।

• जोड़ें3 अन्य VBA कोड इस प्रकार हैं।
• शुरुआत के लिए आदेश दें, दर्ज करें:

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

• स्टॉप के लिए कोड जोड़ें आदेश.

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

• रीसेट के लिए 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

• प्रारंभ पर राइट-क्लिक करें कमांड करें और मैक्रो असाइन करें पर टैप करें .

• Start_Clock असाइन करें प्रारंभ के लिए मैक्रो आदेश.
• असाइन करें Reset_Clock और Stop_Clock कमांड विकल्प रीसेट के लिए और रुकें क्रमशः.
• ठीकदबाएं .

• कमांड विकल्पों के साथ डिजिटल घड़ी दिखाई देगी।

संबंधित लेख

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