स्क्रैच से कस्टम एक्सेल कैलेंडर बनाएं: दो चरण-दर-चरण गाइड

यह ट्यूटोरियल दर्शाता है कि टेम्पलेट के बिना एक्सेल में कैलेंडर कैसे बनाया जाए। हमारे दैनिक जीवन में, हम सभी किसी निश्चित काम या प्रोजेक्ट के लिए समय सीमा का उपयोग करते हैं, इसलिए अपना खुद का कैलेंडर बनाए रखना बहुत महत्वपूर्ण है। यह आपकी कार्य समय सीमा याद दिलाने में मदद करता है। इसके अलावा, अपना खुद का एक्सेल कैलेंडर बनाने से आपको अतिरिक्त बढ़त मिल सकती है क्योंकि आप इसे अपनी इच्छानुसार संशोधित कर सकते हैं। इसलिए, टेम्पलेट के बिना एक्सेल में कैलेंडर बनाना बहुत महत्वपूर्ण है।

आप यहां से प्रैक्टिस वर्कबुक डाउनलोड कर सकते हैं।

टेम्पलेट के बिना एक्सेल में कैलेंडर बनाने के 2 आसान उदाहरण

हम टेम्पलेट के बिना एक्सेल में कैलेंडर बनाने के लिए 2 उदाहरणों का उपयोग करेंगे। यदि आप चरणों का सही ढंग से पालन करते हैं, तो आपको टेम्पलेट के बिना एक्सेल में कैलेंडर बनाना सीखना चाहिए। चरण इस प्रकार हैं:

1. एक्सेल में मासिक कैलेंडर बनाना

इस मामले में, हमारा लक्ष्य किसी भी टेम्पलेट का उपयोग किए बिना एक मासिक कैलेंडर बनाना है। हम नीचे दिए गए चरणों का पालन करके इसे आसानी से कर सकते हैं।

चरण:

• सबसे पहले, VBA विंडो खोलने के लिए Alt + F11 विकल्प दबाएं।
• फिर, इन्सर्ट > मॉड्यूल विकल्प पर जाएं।

• उसके बाद, विंडो में निम्न कोड डालें।

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 दबाएं।

• अंत में, रन या F5 बटन दबाने के बाद, आपको वांछित परिणाम मिलेगा।

और पढ़ें: एक्सेल में मासिक कैलेंडर कैसे बनाएं (3 प्रभावी तरीके)

2. एक्सेल में वार्षिक कैलेंडर बनाना

हम नीचे दिए गए चरणों का पालन करके एक्सेल में वार्षिक कैलेंडर बनाना चाहते हैं।

चरण:

• सबसे पहले, नीचे दी गई छवि की तरह एक डेटासेट व्यवस्थित करें।

• दूसरा, सेल 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 बटन दबाने के बाद, आपको उस महीने के लिए वांछित परिणाम मिलेगा।

• चौथा, यदि आप चरणों को दोहराते रहेंगे, तो आपको नीचे दी गई छवि की तरह वर्ष के हर महीने के लिए वांछित परिणाम मिलेगा।

• पांचवां, हम वर्तमान वार्षिक कैलेंडर में छुट्टियां डालना चाहते हैं। इसलिए, हमने नई वर्कशीट में नीचे दी गई छवि की तरह एक डेटासेट व्यवस्थित किया है।

• छठा, चयनित डेटा टेबल > होम > सशर्त फॉर्मेटिंग > नए नियम विकल्प पर जाएं।

• सातवां, नया फॉर्मेटिंग नियम डायलॉग बॉक्स में, नियम प्रकार चुनें विकल्प में सेल फॉर्मेट करने के लिए सूत्र का उपयोग करें चुनें और जहां यह सूत्र सत्य है मान फॉर्मेट करें विकल्प में निम्न नियम डालें और पूर्वावलोकन विकल्प में वांछित रंग चुनें और OK दबाएं।

🔎 सूत्र कैसे काम करता है?

• VLOOKUP(B8, Holidays!$C:$C,1,0): VLOOKUP फंक्शन एक तालिका के बाएं-most कॉलम में एक मान को देखता है, और फिर आपके द्वारा निर्दिष्ट कॉलम से उसी पंक्ति में एक मान लौटाता है। यहां, B6 ( lookup_value आर्गुमेंट) को Holidays!$C:$C (table_array आर्गुमेंट) सरणी से मैप किया गया है। अगला, 1 (col_index_num आर्गुमेंट) लुकअप मान के कॉलम नंबर को दर्शाता है। अंत में, 0 (range_lookup आर्गुमेंट) लुकअप मान के सटीक मिलान को संदर्भित करता है।
• ISNUMBER(VLOOKUP(B8, Holidays!$C:$C,1,0)): ISNUMBER फंक्शन जांचता है कि कोई मान संख्या है या नहीं और TRUE या FALSE लौटाता है।

• आठवां, Enter बटन दबाने के बाद, आपको उस महीने के लिए वांछित परिणाम मिलेगा।

• अंतिम, यदि आप चरणों को दोहराते रहेंगे, तो आपको नीचे दी गई छवि की तरह वर्ष के हर महीने के लिए वांछित परिणाम मिलेगा।

और पढ़ें: एक्सेल में वार्षिक कैलेंडर कैसे बनाएं (आसान चरणों के साथ)

निष्कर्ष

इस प्रकार, उपरोक्त वर्णित विधियों का पालन करें। उम्मीद है, ये विधियां आपको टेम्पलेट के बिना एक्सेल में कैलेंडर बनाने में मदद करेंगी। हमें खुशी होगी अगर आप किसी अन्य तरीके से इस कार्य को निष्पादित कर सकते हैं। ExcelDemy वेबसाइट को फॉलो करें ऐसे और लेखों के लिए। कृपया नीचे दिए गए अनुभाग में टिप्पणियां, सुझाव, या प्रश्न जोड़ने के लिए स्वतंत्र महसूस करें यदि आपके पास कोई भ्रम है या किसी समस्या का सामना करते हैं। हम समस्या को हल करने या आपके सुझावों के साथ काम करने की पूरी कोशिश करेंगे।

संबंधित लेख

• एक्सेल में इंटरैक्टिव कैलेंडर कैसे बनाएं (2 आसान तरीके)
• एक्सेल में ब्लैंक कैलेंडर बनाएं (मुफ्त टेम्पलेट डाउनलोड करें)
• एक्सेल में साप्ताहिक कैलेंडर कैसे बनाएं (3 उपयुक्त तरीके)