টেমপ্লেট ছাড়াই এক্সেলে একটি ক্যালেন্ডার কীভাবে তৈরি করবেন (২টি উদাহরণ)

এই টিউটোরিয়ালটি প্রদর্শন করবে কিভাবে একটি টেমপ্লেট ছাড়াই এক্সেলে একটি ক্যালেন্ডার তৈরি করা যায়। আমাদের দৈনন্দিন জীবনে, আমরা সবাই নির্দিষ্ট কাজ বা প্রকল্পের জন্য একটি সময়সীমা ব্যবহার করি, তাই আমাদের নিজস্ব ক্যালেন্ডার বজায় রাখা খুবই গুরুত্বপূর্ণ। এটি আপনাকে আপনার কাজের সময়সীমা মনে করিয়ে দিতে সাহায্য করে। তাছাড়া, আপনার নিজের এক্সেল ক্যালেন্ডার তৈরি করা আপনাকে একটি অতিরিক্ত প্রান্ত দিতে পারে কারণ আপনি এটিকে আপনার ইচ্ছামতো পরিবর্তন করতে পারেন। তাই, টেমপ্লেট ছাড়াই এক্সেলে ক্যালেন্ডার তৈরি করা খুবই গুরুত্বপূর্ণ।

আপনি এখান থেকে অনুশীলন ওয়ার্কবুক ডাউনলোড করতে পারেন।

টেমপ্লেট ছাড়াই এক্সেলে ক্যালেন্ডার বানানোর ২টি সহজ উদাহরণ

টেমপ্লেট ছাড়াই এক্সেলে ক্যালেন্ডার তৈরি করতে আমরা 2টি উদাহরণ ব্যবহার করব। আপনি যদি সঠিকভাবে পদক্ষেপগুলি অনুসরণ করেন, তাহলে আপনার নিজের টেমপ্লেট ছাড়াই এক্সেলে কীভাবে একটি ক্যালেন্ডার তৈরি করবেন তা শিখতে হবে। ধাপগুলো হল:

1. Excel এ মাসিক ক্যালেন্ডার তৈরি করা হচ্ছে

এই ক্ষেত্রে, আমাদের লক্ষ্য কোন টেমপ্লেট ব্যবহার না করে একটি মাসিক ক্যালেন্ডার তৈরি করা। নিচের ধাপগুলো অনুসরণ করে আমরা সহজেই তা করতে পারি।

পদক্ষেপ:

• প্রথমে, Alt + F11 টিপুন VBA  খোলার বিকল্প উইন্ডো।
• তারপর, ঢোকান> মডিউল -এ যান৷ বিকল্প।

• তার পর, উইন্ডোতে নিম্নলিখিত কোডটি প্রবেশ করান।

Sub CalendarMaker()
'This code was taken from extendoffice.com
       ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
          Scenarios:=False
       Application.ScreenUpdating = False
       On Error GoTo MyErrorTrap
       Range("a1:g14").Clear
       MyInput = InputBox("Type in Month and year for Calendar ")
       If MyInput = "" Then Exit Sub
       StartDay = DateValue(MyInput)
       If Day(StartDay) <> 1 Then
           StartDay = DateValue(Month(StartDay) & "/1/" & _
               Year(StartDay))
       End If
       Range("a1").NumberFormat = "mmmm yyyy"
       With Range("a1:g1")
           .HorizontalAlignment = xlCenterAcrossSelection
           .VerticalAlignment = xlCenter
           .Font.Size = 18
           .Font.Bold = True
           .RowHeight = 35
       End With
       With Range("a2:g2")
           .ColumnWidth = 11
           .VerticalAlignment = xlCenter
           .HorizontalAlignment = xlCenter
           .VerticalAlignment = xlCenter
           .Orientation = xlHorizontal
           .Font.Size = 12
           .Font.Bold = True
           .RowHeight = 20
       End With
       Range("a2") = "Sunday"
       Range("b2") = "Monday"
       Range("c2") = "Tuesday"
       Range("d2") = "Wednesday"
       Range("e2") = "Thursday"
       Range("f2") = "Friday"
       Range("g2") = "Saturday"
       With Range("a3:g8")
           .HorizontalAlignment = xlRight
           .VerticalAlignment = xlTop
           .Font.Size = 18
           .Font.Bold = True
           .RowHeight = 21
       End With
       Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
       DayofWeek = Weekday(StartDay)
       CurYear = Year(StartDay)
       CurMonth = Month(StartDay)
       FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
       Select Case DayofWeek
           Case 1
               Range("a3").Value = 1
           Case 2
               Range("b3").Value = 1
           Case 3
               Range("c3").Value = 1
           Case 4
               Range("d3").Value = 1
           Case 5
               Range("e3").Value = 1
           Case 6
               Range("f3").Value = 1
           Case 7
               Range("g3").Value = 1
       End Select
       For Each cell In Range("a3:g8")
           RowCell = cell.Row
           ColCell = cell.Column
           If cell.Column = 1 And cell.Row = 3 Then
           ElseIf cell.Column <> 1 Then
               If cell.Offset(0, -1).Value >= 1 Then
                   cell.Value = cell.Offset(0, -1).Value + 1
                   If cell.Value > (FinalDay - StartDay) Then
                       cell.Value = ""
                       Exit For
                   End If
               End If
           ElseIf cell.Row > 3 And cell.Column = 1 Then
               cell.Value = cell.Offset(-1, 6).Value + 1
               If cell.Value > (FinalDay - StartDay) Then
                   cell.Value = ""
                   Exit For
               End If
           End If
       Next
       For x = 0 To 5
           Range("A4").Offset(x * 2, 0).EntireRow.Insert
           With Range("A4:G4").Offset(x * 2, 0)
               .RowHeight = 65
               .HorizontalAlignment = xlCenter
               .VerticalAlignment = xlTop
               .WrapText = True
               .Font.Size = 10
               .Font.Bold = False
               .Locked = False
           End With
           With Range("A3").Offset(x * 2, 0).Resize(2, _
           7).Borders(xlLeft)
               .Weight = xlThick
               .ColorIndex = xlAutomatic
           End With
           With Range("A3").Offset(x * 2, 0).Resize(2, _
           7).Borders(xlRight)
               .Weight = xlThick
               .ColorIndex = xlAutomatic
           End With
           Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
              Weight:=xlThick, ColorIndex:=xlAutomatic
       Next
       If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
          .Resize(2, 8).EntireRow.Delete
       ActiveWindow.DisplayGridlines = False
       ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
          Scenarios:=True
       ActiveWindow.WindowState = xlMaximized
       ActiveWindow.ScrollRow = 1
       Application.ScreenUpdating = True
       Exit Sub
MyErrorTrap:
       MsgBox "You may not have entered your Month and Year correctly." _
           & Chr(13) & "Spell the Month correctly" _
           & " (or use 3 letter abbreviation)" _
           & Chr(13) & "and 4 digits for the Year"
       MyInput = InputBox("Type in Month and year for Calendar")
       If MyInput = "" Then Exit Sub
       Resume
   End Sub

• এরপর, ক্যালেন্ডার ডায়ালগ বক্সে কাঙ্খিত মাস এবং বছর সন্নিবেশ করুন এবং ঠিক আছে টিপুন .

• অবশেষে, RUN চাপার পর অথবা F5 বোতাম, আপনি পছন্দসই ফলাফল পাবেন।

আরো পড়ুন: কিভাবে এক্সেলে একটি মাসিক ক্যালেন্ডার তৈরি করবেন (3টি কার্যকর উপায়)

2. এক্সেলে বার্ষিক ক্যালেন্ডার তৈরি করা

আমরা নিচের ধাপগুলো অনুসরণ করে এক্সেলে একটি বার্ষিক ক্যালেন্ডার তৈরি করতে চাই।

পদক্ষেপ:

• প্রথমে, নিচের ছবির মত একটি ডেটাসেট সাজান।

• দ্বিতীয়, সেল B8-এ নিম্নলিখিত সূত্রটি ঢোকান .

🔎 সূত্রটি কীভাবে কাজ করে?

• (DATE($B$4,$B$6,1) :এই অংশটি নির্বাচিত কক্ষগুলিকে প্রতিনিধিত্ব করে যেখানে DATE ফাংশন প্রয়োগ করা হবে।
• সাপ্তাহিক(তারিখ($B$4,$B$6,1),2) :এই অংশটি তারিখ এবং সপ্তাহের দিন উভয়ই একসাথে বিবেচনা করে।
• (DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2))=$B$6, DATE($B$4,$B$6,1)+সিকুয়েন্স(6,7)-সপ্তাহের দিন(তারিখ($B$4,$B$6,1),2) :এই অংশটি প্রতিনিধিত্ব করে যে তারিখগুলি তারিখ এবং সপ্তাহের দিনের বিবেচনায় ক্রমানুসারে সংগঠিত হয়৷
• IF(MONTH(DATE($B$4,$B$6,1)+SEQUENCE(6,7)-SEEKDAY(DATE($B$4,$B$6,1),2))=$ B$6,DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2),"") :এই অংশটি মাস, তারিখ এবং সপ্তাহের দিন সহ সমগ্র অবস্থার প্রতিনিধিত্ব করে।

• তৃতীয়, এন্টার চাপার পর বোতাম, আপনি সেই মাসের জন্য পছন্দসই ফলাফল পাবেন।

• আগে, আপনি যদি ধাপগুলি পুনরাবৃত্তি করতে থাকেন, তাহলে নিচের ছবির মত বছরের প্রতিটি মাসের জন্য আপনি পছন্দসই ফলাফল পাবেন।

• পঞ্চম, আমরা বর্তমান বার্ষিক ক্যালেন্ডারে ছুটির দিনগুলি সন্নিবেশ করতে চাই। তাই, আমরা নতুন ওয়ার্কশীটে নিচের ছবির মতো একটি ডেটাসেট সাজিয়েছি।

• ষষ্ঠ, নির্বাচিত ডেটা টেবিল> হোম> শর্তগত বিন্যাস> নতুন নিয়মে যান বিকল্প।

• সপ্তম, নতুন ফর্ম্যাটিং নিয়মে ডায়ালগ বক্সে, কোন কক্ষগুলি ফর্ম্যাট করতে হবে তা নির্ধারণ করতে একটি সূত্র ব্যবহার করুন নির্বাচন করুন৷ একটি নিয়মের প্রকার নির্বাচন করুন-এ বিকল্পটি এবং ফরম্যাট মান যেখানে এই সূত্রটি সত্য-এ নিম্নলিখিত নিয়মটি সন্নিবেশ করুন বিকল্প এবং প্রিভিউ-এ পছন্দসই রঙ নির্বাচন করুন বিকল্প এবং ঠিক আছে টিপুন .

🔎 সূত্রটি কীভাবে কাজ করে?

• VLOOKUP(B8, ছুটির দিন!$C:$C,1,0) :দি VLOOKUP ফাংশন একটি টেবিলের বাম-সবচেয়ে কলামে একটি মান খোঁজে এবং তারপর আপনার নির্দিষ্ট করা একটি কলাম থেকে একই সারিতে একটি মান প্রদান করে। এখানে, B6 ( lookup_value যুক্তি) ছুটির দিন!$C:$C থেকে ম্যাপ করা হয়েছে (টেবিল_অ্যারে যুক্তি) অ্যারে। পরবর্তী, 1 (col_index_num আর্গুমেন্ট) লুকআপ মানের কলাম সংখ্যা উপস্থাপন করে। অবশেষে, 0 (রেঞ্জ_লুকআপ যুক্তি) বোঝায় সঠিক মিল লুকআপ মান।
• ISNUMBER(VLOOKUP(B8, ছুটির দিন!$C:$C,1,0)): ISNUMBER ফাংশন একটি মান একটি সংখ্যা কিনা তা পরীক্ষা করে এবং সত্য বা মিথ্যা প্রদান করে।

• অষ্টম, এন্টার চাপার পর বোতাম, আপনি সেই মাসের জন্য পছন্দসই ফলাফল পাবেন।

• অবশেষে, আপনি যদি ধাপগুলি পুনরাবৃত্তি করতে থাকেন, তাহলে আপনি নীচের ছবির মতো বছরের প্রতিটি মাসের জন্য কাঙ্ক্ষিত ফলাফল পাবেন।

আরো পড়ুন: কিভাবে এক্সেলে একটি বার্ষিক ক্যালেন্ডার তৈরি করবেন (সহজ পদক্ষেপ সহ)

উপসংহার

এখন থেকে, উপরে বর্ণিত পদ্ধতি অনুসরণ করুন। আশা করি, এই পদ্ধতিগুলি আপনাকে টেমপ্লেট ছাড়াই এক্সেলে একটি ক্যালেন্ডার তৈরি করতে সহায়তা করবে। আপনি অন্য কোনো উপায়ে কাজটি সম্পাদন করতে পারেন কিনা তা জেনে আমরা খুশি হব। ExcelDemy অনুসরণ করুন এই মত আরো নিবন্ধের জন্য ওয়েবসাইট. আপনার যদি কোনো বিভ্রান্তি থাকে বা কোনো সমস্যার সম্মুখীন হয় তাহলে অনুগ্রহ করে নিচের বিভাগে মন্তব্য, পরামর্শ বা প্রশ্ন যোগ করুন। আমরা সমস্যাটি সমাধান করার জন্য বা আপনার পরামর্শ নিয়ে কাজ করার জন্য আমাদের স্তরের যথাসাধ্য চেষ্টা করব।

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

• এক্সেলে কীভাবে একটি ইন্টারেক্টিভ ক্যালেন্ডার তৈরি করবেন (2টি সহজ উপায়)
• এক্সেলে একটি ফাঁকা ক্যালেন্ডার তৈরি করুন (ফ্রি টেমপ্লেট ডাউনলোড করুন)
• এক্সেলে কীভাবে একটি সাপ্তাহিক ক্যালেন্ডার তৈরি করবেন (3টি উপযুক্ত উপায়)