এক্সেলে একটি ডিজিটাল ঘড়ি তৈরি করুন:দুটি সহজ VBA এবং সূত্র পদ্ধতি

পদ্ধতি 1 - এক্সেল VBA এবং টেক্সট ফাংশনের মাধ্যমে ডিজিটাল ঘড়ি তৈরি করুন

পদক্ষেপ:

• সন্নিবেশ> চিত্র> আকারে যান৷৷

• আকৃতি মেনু অপশন বক্স পপ আপ হবে।
• গোলাকার আয়তক্ষেত্রাকার  নির্বাচন করুন বিকল্প।

• ওয়ার্কবুকে একটি বৃত্তাকার আয়তক্ষেত্রাকার আকৃতি ঢোকানো হবে।

• ডেভেলপার -এ যান ট্যাব এবং ভিজ্যুয়াল বেসিক ক্লিক করুন .

• ভিজ্যুয়াল বেসিক-এ উইন্ডো, ঢোকান-এ যান ট্যাব এবং মডিউল ক্লিক করুন একটি মডিউল বক্স তৈরি করার বিকল্প।

• মডিউল বক্সে, নিম্নলিখিত VBA লিখুন কোড।

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

• সবুজ টিপুন চালান বোতাম।

• সেলে B4 , TRUE লিখুন এবং Enter টিপুন অথবা ট্যাব৷৷

• গোলাকার আয়তক্ষেত্রে ডান-ক্লিক করুন।
• প্রসঙ্গ মেনুতে, ম্যাক্রো বরাদ্দ করুন নির্বাচন করুন আয়তক্ষেত্রে কোড অন্তর্ভুক্ত করার বিকল্প।

• আমরা VBA সন্নিবেশ করেছি আয়তক্ষেত্র আকারে।
• এটি পরে সময় প্রদর্শন করবে।

• সেলে C6 , নিম্নলিখিত TEXT লিখুন সূত্র,

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

• এটি ঘরে B6 সময়কে রূপান্তরিত করে এবং hh:mm:ss -এ একটি সময় বিন্যাস প্রদান করে বিন্যাস।
• এন্টার টিপুন।
• হোম এ যান৷ ট্যাব তারপর ফন্ট  গ্রুপ।
• ফন্টের রঙ, আকার এবং শৈলী কাস্টমাইজ করুন।

• সময় ডিজিটাল ফরম্যাটে প্রদর্শিত হবে।

আরো পড়ুন: কিভাবে Excel এ একটি চলমান ঘড়ি তৈরি করবেন 

পদ্ধতি 2 - ডিজিটাল ঘড়ি ডিজাইন করতে আকার টুল এবং এক্সেল VBA ব্যবহার করুন

ধাপ 1৷ : ডিজাইন ঘড়ি

• এ যান সন্নিবেশ> চিত্র> আকার ট্যাব।

• আকৃতিতে বিকল্প বাক্সে, অবরুদ্ধ তীর সনাক্ত করুন গ্রুপ করুন এবং পেন্টাগন তীর নির্বাচন করুন
• ফলস্বরূপ, ওয়ার্কবুকে একটি পেন্টাগন তীর ঢোকানো হবে।

• কপি-পেস্ট কমান্ড ব্যবহার করে আরেকটি তীর আকৃতি প্রবেশ করান।
• নতুন সন্নিবেশিত তীর নির্বাচন করুন এবং শেপ ফরম্যাট> ঘোরান এ যান ট্যাব।
• ফ্লিপ অনুভূমিক নির্বাচন করুন বিকল্প।

• প্রতিটি তীর অনুলিপি করুন এবং একটি বৃত্তাকার আকৃতি তৈরি করতে তাদের একসাথে রাখুন।
• ঘোরান ব্যবহার করুন প্রয়োজনীয় বিকল্পগুলি।

• সমস্ত তীরগুলিকে একটি আট (8) এ পুনরায় সাজান ) আকৃতি।
• প্রথম সংখ্যাটি কাস্টমাইজ করুন, প্রতিটি তীর গোষ্ঠীতে ডান-ক্লিক করুন এবং 1 থেকে ক্রমানুসারে তাদের নাম দিন .

• পুরো গোষ্ঠীকে hh:mm:ss দিতে কপি-পেস্ট করুন ফর্ম্যাটগুলি নীচে দেখানো হয়েছে৷
• 1 থেকে তাদের নাম দিন প্রতি 42 .
• 4 ডিম্বাকার যোগ করুন আকার দিন এবং তাদের নাম দিন পয়েন্ট .
• 3 বৃত্তাকার আয়তক্ষেত্র যোগ করুন 3 সন্নিবেশ করতে কমান্ড বিকল্প:শুরু , থামুন এবং রিসেট করুন .

• আমরা আমাদের ঘড়ির জন্য আমাদের প্রদর্শন বিন্যাস তৈরি করেছি।
• আমরা এখন বিন্যাসে VBA কোড অন্তর্ভুক্ত করব।

ধাপ 2 : Excel 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

• স্টার্ট-এ ডান-ক্লিক করুন কমান্ড এবং আলতো চাপুন ম্যাক্রো বরাদ্দ করুন .

• স্টার্ট_ক্লক বরাদ্দ করুন শুরু -এর জন্য ম্যাক্রো আদেশ।
• রিসেট_ক্লক বরাদ্দ করুন এবং Stop_Clock কমান্ড বিকল্পের জন্য রিসেট এবং থামুন যথাক্রমে।
• ঠিক আছে টিপুন .

• কমান্ড অপশন সহ ডিজিটাল ঘড়ি প্রদর্শিত হবে।

আরো পড়ুন: কিভাবে Excel এ এনালগ ঘড়ি তৈরি করবেন 

অভ্যাস ওয়ার্কবুক ডাউনলোড করুন

সম্পর্কিত প্রবন্ধ

• কিভাবে এক্সেলে একটি ঘড়ির চার্ট তৈরি করবেন
• এক্সেলে ডিজিটাল ঘড়ি তৈরির জন্য কীভাবে VBA কোড ব্যবহার করবেন