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

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

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

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

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

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

चरण:

• सबसे पहले, 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

• अगला, कैलेंडर संवाद बॉक्स में वांछित माह और वर्ष डालें और ठीक press दबाएं ।

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

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

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

चरण:

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

• दूसरा, सेल 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)+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))=$ बी$6, दिनांक($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2),"") :यह भाग महीनों, तिथियों और कार्यदिवसों के साथ-साथ संपूर्ण स्थितियों का प्रतिनिधित्व करता है।

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

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

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

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

• सातवां, नए स्वरूपण नियम में संवाद बॉक्स में, यह निर्धारित करने के लिए कि कौन से कक्षों को प्रारूपित करना है, एक सूत्र का उपयोग करें . चुनें में एक नियम प्रकार चुनें विकल्प चुनें और निम्न नियम को फ़ॉर्मेट मानों में डालें जहां यह सूत्र सत्य है विकल्प चुनें और पूर्वावलोकन . में वांछित रंग चुनें विकल्प चुनें और ठीक press दबाएं ।

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

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

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

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

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

निष्कर्ष

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

संबंधित लेख

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