পদ্ধতি ১ – এক্সেল VBA এবং TEXT ফাংশন দিয়ে ডিজিটাল ঘড়ি তৈরি
ধাপসমূহ:
- Insert > Illustrations > Shapes-এ যান।
- Shapes মেনু অপশন বক্সটি পপ আপ হবে।
- Rounded Rectangular অপশনটি বেছে নিন।
- ওয়ার্কবুকে একটি রাউন্ডেড রেক্ট্যাঙ্গুলার শেপ ইনসার্ট হবে।
- Developer ট্যাবে যান এবং Visual Basic ক্লিক করুন।
- Visual Basic উইন্ডোতে, Insert ট্যাবে যান এবং মডিউল বক্স তৈরি করতে Module অপশনে ক্লিক করুন।
- মডিউল বক্সে নিচের VBA কোড লিখুন।
Sub Digi_Clock() Range("B5") = Not Range("B5") Do While Range("B5") = True DoEvents Range("B6") = Now() Loop End Sub- হরিণ Run বাটন চাপুন।
- B4 সেলে TRUE লিখুন এবং Enter বা Tab চাপুন।
- রাউন্ডেড রেক্ট্যাঙ্গেলে রাইট-ক্লিক করুন।
- কনটেক্সট মেনুতে, রেক্ট্যাঙ্গেলে কোড ইনক্লুড করতে Assign Macro অপশন বেছে নিন।
- আমরা রেক্ট্যাঙ্গুলার শেপে VBA ইনসার্ট করেছি।
- এটি পরে টাইম প্রদর্শন করবে।
- C6 সেলে নিচের TEXT ফর্মুলা লিখুন,
=TEXT(B6,"hh:mm:ss AM/PM")
- এটি সেল B6-এ থাকা টাইমকে কনভার্ট করে hh:mm:ss ফরম্যাটে রিটার্ন করে।
- Enter চাপুন।
- Home ট্যাব তারপর Font গ্রুপে যান।
- ফন্ট কালার, সাইজ এবং স্টাইল কাস্টোমাইজ করুন।
- টাইম ডিজিটাল ফরম্যাটে প্রদর্শিত হবে।
আরও পড়ুন: এক্সেলে রানিং ক্লক তৈরির পদ্ধতি
পদ্ধতি ২ – শেপস টুল এবং এক্সেল VBA ব্যবহার করে ডিজিটাল ঘড়ি ডিজাইন করুন
Step 1: ঘড়ি ডিজাইন করুন
- Insert > Illustrations > Shapes ট্যাবে যান।
- Shapes অপশন বক্সে, Block Arrows গ্রুপে যান এবং Pentagon Arrow বেছে নিন।
- ফলস্বরূপ, ওয়ার্কবুকে একটি পেন্টাগন অ্যারো ইনসার্ট হবে।
- কপি-পেস্ট কমান্ড ব্যবহার করে আরেকটি অ্যারো শেপ ইনসার্ট করুন।
- নতুন ইনসার্ট করা অ্যারোটি সিলেক্ট করুন এবং Shape Format > Rotate ট্যাবে যান।
- Flip Horizontal অপশন বেছে নিন।
- প্রতিটি অ্যারো কপি করুন এবং সেগুলো একসাথে রাখে একটি রাউন্ড আকার তৈরি করুন।
- প্রয়োজনীয়তানুসার Rotate অপশনগুলো ব্যবহার করুন।
- সকল অ্যারোকে আট (8) আকারে রি-অ্যারেঞ্জ করুন।
- প্রথম ডিজিট কাস্টোমাইজ করুন, প্রতিটি অ্যারো গ্রুপে রাইট-ক্লিক করুন এবং সেকোয়েনশিয়ালি 1 থেকে নাম দিন।
- পুরো গ্রুপ কপি-পেস্ট করুন hh:mm:ss ফরম্যাট দেওয়ার জন্য নিচের ছবির মতো।
- সেগুলোকে 1 থেকে 42 পর্যন্ত নাম দিন।
- ৪টি Oval শেপ যোগ করুন এবং সেগুলোকে Point নামে নাম দিন।
- Start, Stop এবং Reset - এই ৩টি কমান্ড অপশন ইনসার্ট করতে ৩টি Rounded Rectangle যোগ করুন।
- আমাদের ক্লক এর ডিসপ্লে ফরম্যাট বানানো হয়েছে।
- এখন এই ফরম্যাটে VBA কোডগুলো ইনক্লুড করব।
Step 2: Excel VBA কোড ইনসার্ট করুন
- ALT+ F11 চাপা দিয়ে Basic Visual উইন্ডো খুলুন।
- নিচের 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- উইন্ডো বন্ধ করুন এবং আপনার এক্টিভ ওয়ার্কবুকে যান।
- ৩টি অন্যান্য VBA কোড নিচের মতো যোগ করুন।
- Start কমান্ডের জন্য, লিখুন:
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- Stop কমান্ডের জন্য কোড যোগ করুন।
Sub Stop_Clock() Dim Shw As Worksheet Set Shw = ActiveSheet Shw.Range("B5").Value = "Stop" End Sub- Reset কমান্ডের জন্য 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 কমান্ডে রাইট-ক্লিক করুন এবং Assign Macro চাপুন।
- Start কমান্ডের জন্য Start_Clock ম্যাক্রো অ্যাসাইন করুন।
- Reset এবং Stop কমান্ড অপশনগুলোতে যথাক্রমে Reset_Clock এবং Stop_Clock অ্যাসাইন করুন।
- OK চাপুন।
- কমান্ড অপশনসহ ডিজিটাল ঘড়িটি প্রদর্শিত হবে।
আরও পড়ুন: এক্সেলে অ্যানালগ ঘড়ি তৈরির পদ্ধতি
অনুশীলন ওয়ার্কবুক ডাউনলোড করুন
সম্পর্কিত আর্টিকেল
- এক্সেলে ক্লক চার্ট তৈরির পদ্ধতি
- ডিজিটাল ঘড়ি তৈরির জন্য VBA কোড ব্যবহার করার পদ্ধতি
নিখরচা এডভান্সড এক্সেল এক্সারসাইজ সমাধানসহ পান!
