স্ক্র্যাচ থেকে কাস্টম এক্সেল ক্যালেন্ডার তৈরি করুন: দুটি ধাপে ধাপে গাইড

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

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

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

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

১. এক্সেলে মাসিক ক্যালেন্ডার তৈরি করা

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

ধাপসমূহ:

• প্রথমে, Alt + F11 চাপুন VBA উইন্ডো খোলার জন্য।
• তারপর, Insert > Module অপশনে যান।

• उसके बाद, নিচের কোডটি উইন্ডোতে ইনসার্ট করুন।

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

• পরবর্তী, ক্যালেন্ডার ডায়ালগ বক্সে ইচ্ছিত মাস ও বছর ইনসার্ট করে OK চাপুন।

• শেষে, RUN বা F5 বাটন চাপলে আপনি কাঙ্ক্ষিত ফলাফল পাবেন।

আরও পড়ুন: এক্সেলে মাসিক ক্যালেন্ডার তৈরির পদ্ধতি (৩টি কার্যকর উপায়)

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

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

ধাপসমূহ:

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

• দूसরে, B8 সেলে নিচের ফর্মুলা ইনসার্ট করুন।

🔎 ফর্মুলা কীভাবে কাজ করে?

• (DATE($B$4,$B$6,1): এই অংশটি প্রতিনিধিত্ব করে那些 সেলগুলো যেগুলোর ওপর DATE ফাংশন প্রয়োগ করা হবে।
• WEEKDAY(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)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2): এই অংশটি প্রতিনিধিত্ব করে যে তারিখগুলো সপ্তাহের দিন ও তারিখ বিবেচনা করে অনুক্রমিকভাবে সংগঠিত।
• IF(MONTH(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)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2),””): এই অংশটি মাস, তারিখ ও সপ্তাহের দিন সহ পুরো শর্তগুলো প্রতিনিধিত্ব করে।

• তৃতীয়, Enter বাটন চাপলে আপনি সেই মাসের জন্য কাঙ্ক্ষিত ফলাফল পাবেন।

• চতুর্থ, আপনি যদি ধাপগুলো दुहरান, তবে আপনি বছরের প্রতিটি মাসের জন্য নিচের ছবির মত কাঙ্ক্ষিত ফলাফল পাবেন।

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

• ষষ্ঠ, নির্বাচিত ডেটা টেবিল > Home > Conditional Formatting > New Rules অপশনে যান।

• সপ্তম, New Formatting Rule ডায়ালগ বক্সে, Select a Rule Type অপশনে Use a formula to determine which cells to format বেছে নিন এবং Format values where this formula is a true অপশনে নিচের নিয়মটি ইনসার্ট করুন এবং Preview অপশনে ইচ্ছিত রঙ বেছে নিয়ে OK চাপুন।

🔎 ফর্মুলা কীভাবে কাজ করে?

• VLOOKUP(B8, Holidays!$C:$C,1,0): VLOOKUP ফাংশন একটি টেবিলের বাম-most কলামে একটি মান খুঁজে বের করে, এবং তারপর আপনি যেটি নির্দিষ্ট করবেন সেটি অনুযায়ী একই সারির একটি কলাম থেকে মান রিটার্ন করে। এখানে, B8 ( lookup_value আর্গুমেন্ট) Holidays!$C:$C (table_array আর্গুমেন্ট) অ্যারে থেকে ম্যাপ করা হয়েছে। পরবর্তী, 1 (col_index_num আর্গুমেন্ট) লুকআপ ভ্যালুর কলাম নম্বর প্রতিনিধিত্ব করে। শেষে, 0 (range_lookup আর্গুমেন্ট) লুকআপ ভ্যালুর Exact match রেফার করে।
• ISNUMBER(VLOOKUP(B8, Holidays!$C:$C,1,0)): ISNUMBER ফাংশন চেক করে কোনো মান সংখ্যা কিনা এবং TRUE বা FALSE রিটার্ন করে।

• আষ্ঠম, Enter বাটন চাপলে আপনি সেই মাসের জন্য কাঙ্ক্ষিত ফলাফল পাবেন।

• নবম, আপনি যদি ধাপগুলো दुहरান, তবে আপনি বছরের প্রতিটি মাসের জন্য নিচের ছবির মত কাঙ্ক্ষিত ফলাফল পাবেন।

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

উপসংহার

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

সম্পর্কিত আর্টিকেল

• এক্সেলে ইন্টারেক্টিভ ক্যালেন্ডার তৈরির পদ্ধতি (২টি সহজ উপায়)
• এক্সেলে খালি ক্যালেন্ডার তৈরির পদ্ধতি (ফ্রি টেমপ্লেট ডাউনলোড)
• এক্সেলে সাপ্তাহিক ক্যালেন্ডার তৈরির পদ্ধতি (৩টি উপযোগী উপায়)