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

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

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

Excel এ একটি বার্ষিক ক্যালেন্ডার তৈরি করার 4 ধাপ

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

এখানে, আমরা Microsoft Excel 365 ব্যবহার করেছি সংস্করণ, আপনি আপনার সুবিধা অনুযায়ী অন্য কোনো সংস্করণ ব্যবহার করতে পারেন।

📌 ধাপ 01:প্রাথমিক রূপরেখা তৈরি করুন

• প্রথম ধাপে, আমরা মাস ভাগ করে ক্যালেন্ডারের একটি রূপরেখা তৈরি করব 3টি কলাম এবং 4টি সারি জুড়ে৷
• এরপর, সপ্তাহে 7 দিন দিন এবং উইকএন্ড হাইলাইট করুন , এই ক্ষেত্রে, শনিবার এবং রবিবার .

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

📌 ধাপ 02:মাসের নাম লিখুন :

• দ্বিতীয়, B4 -এ যান সেল>> 1 নম্বর টাইপ করুন>> CTRL + 1 টিপুন আপনার কীবোর্ডের কীগুলি৷
৷

এখন, এটি ফরম্যাট সেল খোলে ডায়ালগ বক্স।

• শুরুতে, নম্বরে যান ট্যাব>> কাস্টম বেছে নিন বিকল্প>> টাইপ-এ ক্ষেত্রে, “জানুয়ারি” লিখুন (উল্টানো কমাগুলির মধ্যে)>> সবশেষে, ফন্টে যান ট্যাব।

• এরপর, বোল্ড-ইটালিক বেছে নিন ফন্ট শৈলী >> একটি রঙ নির্বাচন করুন , এখানে আমরা বেগুনি বেছে নিয়েছি>> ঠিক আছে টিপুন বোতাম।

• পাল্টে, B4:H4 নির্বাচন করুন কক্ষের পরিসর>> CTRL + 1 টিপুন ফরম্যাট সেল-এ নেভিগেট করার জন্য কী উইন্ডো।
• এটি অনুসরণ করে, সারিবদ্ধকরণ-এ এগিয়ে যান ট্যাব>> অনুভূমিক -এ বিভাগে, সেন্টার ক্রস সিলেকশন বেছে নিন বিকল্প>> ঠিক আছে টিপুন বোতাম।

অবশেষে, এটি মাসের নাম জানুয়ারি প্রদর্শন করবে৷ নীচের ছবিতে দেখানো হয়েছে৷

• একইভাবে, অন্যান্য মাসের জন্য একই পদ্ধতি পুনরাবৃত্তি করুন এবং আপনার আউটপুট নিম্নলিখিত ছবির মত হওয়া উচিত।

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

📌 ধাপ 03:ডায়নামিক ক্যালেন্ডার তৈরি করতে এক্সেল ফাংশন ব্যবহার করুন

• তৃতীয়ত, B6 ঘরে যান এবং নিচের সূত্রটি লিখুন।

=IF(MONTH(DATE($B$2,$B$4,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$2,$B$4,1),2))=$B$4,DATE($B$2,$B$4,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$2,$B$4,1),2),"")

এখানে, B2 এবং B4 কোষগুলি 2022 সালকে নির্দেশ করে৷ এবং মাস জানুয়ারি এর যথাক্রমে।

📃 দ্রষ্টব্য: দি SEQUENCE ফাংশন এক্সেল 365, এক্সেল 2021, এবং ওয়েবের জন্য এক্সেলে উপলব্ধ, তাই অনুগ্রহ করে নিশ্চিত করুন যে এটির সামঞ্জস্যপূর্ণ সংস্করণ আছে।

• এখন, ENTER টিপুন কী এবং সূত্রটি মাস-এর জন্য সমস্ত দিন পূরণ করবে জানুয়ারি এর .

📃 দ্রষ্টব্য: অনুগ্রহ করে তারিখ পরিবর্তন করা নিশ্চিত করুন বিন্যাস শুধুমাত্র dd কক্ষ বিন্যাসে উইন্ডোতে CTRL + 1 টিপে আপনার কীবোর্ডের কীগুলি৷৷

অবশেষে, ফলাফলগুলি নীচে দেওয়া চিত্রের মতো হওয়া উচিত৷

📌 ধাপ ০৪:ক্যালেন্ডারে ছুটির দিনগুলি নির্দেশ করুন :

• চতুর্থ এবং শেষ ধাপে, একটি ছুটির তালিকা তৈরি করুন নীচে দেখানো হিসাবে একটি নতুন শীটে৷

• তারপর, B6:H11 নির্বাচন করুন কোষ>> শর্তাধীন বিন্যাস-এ যান ড্রপ-ডাউন>> নতুন নিয়ম বেছে নিন বিকল্প।

এক মুহূর্তের মধ্যে, নতুন বিন্যাস নিয়ম উইজার্ড পপ আপ।

• এরপর, কোন কক্ষকে ফর্ম্যাট করতে হবে তা নির্ধারণ করতে একটি সূত্র ব্যবহার করুন বেছে নিন বিকল্প।
• তারপর, নিয়মের বিবরণে নিম্নলিখিত সূত্র লিখুন।

=ISNUMBER(VLOOKUP(B6,Holidays!$C:$C,1,0))

এখানে, B6 সেল সোমবার-এর দিকে নির্দেশ করে মাসে জানুয়ারি এর যখন ছুটির দিন!$C:$C তারিখ প্রতিনিধিত্ব করে ছুটির দিনগুলিতে পত্রক৷

সূত্র ব্রেকডাউন:

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

এখন, এটি 1লা জানুয়ারী-এ ছুটির দিনটিকে হাইলাইট করা উচিত৷ উজ্জ্বল কমলা রঙে।

অনুরূপ শৈলীতে, অন্যান্য মাসের জন্য একই প্রক্রিয়া পুনরাবৃত্তি করুন এবং আপনার আউটপুট নীচে দেখানো স্ক্রিনশটের মতো হওয়া উচিত।

কিভাবে একটি মাসিক ক্যালেন্ডার তৈরি করবেন

আপনি যদি একটি মাসিক ক্যালেন্ডার তৈরি করতে চান তাহলে কী হবে ? আমাদের পরবর্তী পদ্ধতি আপনি আচ্ছাদিত! এখানে, আমরা 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

• পাল্টে, VBA বন্ধ করুন উইন্ডো>> ম্যাক্রো ক্লিক করুন বোতাম।

এটি ম্যাক্রো খোলে ডায়ালগ বক্স।

• এটি অনুসরণ করে, ক্যালেন্ডার মেকার নির্বাচন করুন ম্যাক্রো>> রান টিপুন বোতাম।

এখন, এটি একটি ইনপুট বক্স খোলে৷>> মাসের নাম লিখুন এবং বছর নীচে দেখানো হিসাবে।

পরবর্তীকালে, ফলাফলগুলি নীচের ছবির মতো দেখতে হবে৷

উপসংহার

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

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

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