एक्सेल कई गणनाओं और टेम्पलेट्स को स्वचालित करने के लिए एक महान उपकरण है। आप एक्सेल के माध्यम से कई तरह के मासिक कैलेंडर बना सकते हैं। यदि आप ऐसा करने के तरीकों की तलाश कर रहे हैं, तो आप एकदम सही जगह पर आ गए हैं। इस लेख में, मैं आपको 3 . दिखाऊंगा मासिक कैलेंडर create बनाने के प्रभावी तरीके एक्सेल में।
आप हमारी अभ्यास कार्यपुस्तिका यहाँ से निःशुल्क डाउनलोड कर सकते हैं!
Excel में मासिक कैलेंडर बनाने के 3 प्रभावी तरीके
<एच3>1. एक्सेल टेम्प्लेट से मासिक कैलेंडर बनाएंएक्सेल में ही कैलेंडर के लिए कुछ पूर्व-निर्मित टेम्पलेट हैं। आप नीचे दिए गए तरीकों का पालन करके इनमें से किसी भी टेम्पलेट से मासिक कैलेंडर बना सकते हैं।
📌 चरण:
- सबसे पहले और सबसे महत्वपूर्ण, फ़ाइल पर जाएं टैब।
- बाद में, नया . चुनें विस्तृत फ़ाइल . से विकल्प टैब।
- बाद में, एक नया विंडो दिखाई देगी।
- निम्नलिखित में, कैलेंडर टाइप करें खोज बॉक्स . में और खोज प्रारंभ करें . पर क्लिक करें आइकन।
- परिणामस्वरूप, उपलब्ध टेम्पलेट सुझाव के रूप में आपके पास आएंगे।
- अब, अपनी पसंद का कोई भी टेम्प्लेट चुनें और बनाएं . पर क्लिक करें बटन।
नतीजतन, आप देखेंगे कि टेम्पलेट के अनुसार एक कैलेंडर एक नई एक्सेल विंडो में दिखाई देगा। हमारे चुने हुए टेम्पलेट के लिए, परिणाम इस प्रकार होगा।
और पढ़ें: बिना टेम्पलेट के एक्सेल में कैलेंडर कैसे बनाएं (2 उदाहरण)
<एच3>2. एक्सेल 2003 में एक कस्टम मासिक कैलेंडर बनाएं | 2007 | 2010 | 2013 | 2016 और बाद के संस्करणअब, ऐसा हो सकता है कि आपको कोई पूर्व-निर्मित टेम्प्लेट पसंद न हो, बल्कि आप अपनी पसंद के अनुसार अपना मासिक कैलेंडर बनाना चाहते हैं। इस संबंध में, आप नीचे दिए गए चरणों के माध्यम से एक्सेल में एक मासिक कैलेंडर बना सकते हैं।
📌 चरण:
- सबसे पहले, अपने महीने के लिए हेडर बनाएं और 7 पंक्तियों और 7 कॉलम का चयन करें।
- बाद में, चयन पर सभी सीमाओं . पर क्लिक करें होम . से आइकन टैब।
- परिणामस्वरूप, सभी कक्षों की सभी सीमाएं होंगी।
- निम्नलिखित पहली चयनित पंक्ति में, सप्ताह के दिनों के नाम लिखें और उन्हें अपनी इच्छा के अनुसार प्रारूपित करें।
- अब, अन्य 6 पंक्तियों और 7 स्तंभों का चयन करें>> होम . पर जाएं टैब>> सेल समूह>> प्रारूप टूल>> पंक्ति की ऊंचाई… विकल्प।
- परिणामस्वरूप, पंक्ति ऊंचाई विंडो दिखाई देगी।
- मान रखें 40 पंक्ति की ऊंचाई पर: टेक्स्ट बॉक्स और ठीक . पर क्लिक करें बटन।
- बाद में, पिछले चयन पर, होम . पर जाएं टैब>> सेल समूह>> प्रारूप टूल>> कॉलम की चौड़ाई… विकल्प।
- परिणामस्वरूप, कॉलम की चौड़ाई विंडो दिखाई देगी।
- बाद में, मान को 12 . के रूप में रखें कॉलम की चौड़ाई में: टेक्स्ट बॉक्स और ठीक . पर क्लिक करें बटन।
- अब, पिछले चयन पर, राइट-क्लिक करें अपने माउस पर और कोशिकाओं को प्रारूपित करें… . चुनें संदर्भ मेनू से विकल्प।
- इस समय, प्रारूप कक्ष विंडो दिखाई देगी।
- बाद में, संरेखण . पर जाएं टैब>> राइट (इंडेंट) चुनें क्षैतिज: . में विकल्प विकल्प सूची>> शीर्ष चुनें ऊर्ध्वाधर: . में विकल्प विकल्प सूची>> ठीक . पर क्लिक करें बटन।
इस प्रकार, आपका कैलेंडर स्वरूपण पूरी तरह से तैयार है। अब, अगले वर्ष के अगले महीने के पहले दिन गूगल करें और सप्ताह के दिनों के अनुसार मान डालें। अंत में, मासिक कैलेंडर इस तरह दिखना चाहिए।
और पढ़ें:Excel में एक इंटरैक्टिव कैलेंडर कैसे बनाएं (2 आसान तरीके)
<एच3>3. VBA का उपयोग करके मासिक कैलेंडर बनाएंमासिक कैलेंडर बनाने का दूसरा तरीका VBA कोड का उपयोग करना है। इसे पूरा करने के लिए आप नीचे दिए गए चरणों का पालन कर सकते हैं।
📌 चरण:
- शुरुआत में, एक नई वर्कशीट बनाएं और डेवलपर . पर जाएं टैब>> विजुअल बेसिक उपकरण।
- परिणामस्वरूप, अनुप्रयोगों के लिए Microsoft Visual Basic विंडो दिखाई देगी।
- इसके बाद, सम्मिलित करें . पर जाएं टैब>> मॉड्यूल . चुनें विकल्प।
- परिणामस्वरूप, मॉड्यूल1 . नामक एक नया मॉड्यूल बनाया गया है।
- बाद में, डबल-क्लिक करें मॉड्यूल1 . पर और नीचे दिए गए कोड विंडो में VBA कोड लिखें।
यह वीबीए कोड इस docs.microsoft.com . से लिया गया है ।
Sub CalendarMaker()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
Application.ScreenUpdating = False
On Error GoTo MyErrorTrap
Range("a1:g14").Clear
MyInput = InputBox("Type in months and years")
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
- बाद में, Ctrl+S दबाएं ।
- इस समय, एक माइक्रोसॉफ्ट एक्सेल डायलॉग बॉक्स दिखाई देगा। नहीं . पर क्लिक करें यहाँ बटन।
- परिणामस्वरूप, इस रूप में सहेजें डायलॉग बॉक्स दिखाई देगा।
- बाद में, इस प्रकार सहेजें: . चुनें .xlsm . के रूप में विकल्प और सहेजें . पर क्लिक करें बटन।
- अब, कोड विंडो बंद करें और डेवलपर . पर जाएं टैब>> मैक्रोज़ उपकरण।
- परिणामस्वरूप, मैक्रो विंडो दिखाई देगी।
- निम्नलिखित के बाद, कैलेंडर निर्माता चुनें मैक्रो और चलाएं . पर क्लिक करें बटन।
- परिणामस्वरूप, एक माइक्रोसॉफ्ट एक्सेल डायलॉग बॉक्स दिखाई देगा।
- यहां महीने के पहले 3 अक्षर और साल के 4 अंक लिखें।
- आखिरकार, ठीक . पर क्लिक करें बटन।
इस प्रकार, आप देखेंगे कि आपकी वर्कशीट में अगले महीने का कैलेंडर बन जाएगा और परिणाम इस तरह दिखेगा।
फॉर्मूला के साथ एक्सेल में इंटरएक्टिव/डायनेमिक कैलेंडर बनाएं
अब, यदि आप एक्सेल में फॉर्मूला के साथ एक इंटरैक्टिव/डायनेमिक कैलेंडर बनाना चाहते हैं, तो आपको कई अतिरिक्त काम करने होंगे। इसे प्राप्त करने के लिए नीचे दिए गए चरणों को ध्यान से देखें।
📌 चरण:
- सबसे पहले, दो सहायक टेबल बनाएं, एक छुट्टियों की सूची के साथ और दूसरी महीने के नाम सूची के साथ।
- अब, अपनी पसंद के अनुसार एक कस्टम मासिक कैलेंडर टेम्पलेट बनाएं।
- अगला, गतिशील उद्देश्यों के लिए, हम अभी महीने के नाम को स्वचालित करना चाहते हैं।
- ऐसा करने के लिए, H4 . चुनें सेल>> डेटा . पर जाएं टैब>> डेटा टूल समूह>> डेटा सत्यापन टूल>> डेटा सत्यापन… विकल्प।
- बाद में, डेटा सत्यापन विंडो दिखाई देगी।
- बाद में, सेटिंग पर जाएं यहां टैब>> सूची choose चुनें अनुमति दें: . से विकल्प विकल्प सूची>> E5:E16 . देखें स्रोत: . पर सेल टेक्स्ट बॉक्स>> ठीक . पर क्लिक करें बटन।
- परिणामस्वरूप, आप देखेंगे कि H4 में एक ड्रॉपडाउन सूची होगी सेल और आप क्लिक करके महीने का चयन कर सकते हैं।
- माह को जनवरी चुनने के बाद, B6 . पर क्लिक करें सेल और निम्न सूत्र सम्मिलित करें।
=IF(MONTH(DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1),2))=MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1),2),"")
- बाद में, दर्ज करें . दबाएं बटन।
- इस प्रकार, आप अगले महीने के लिए सप्ताह के दिनों के अनुसार सभी तिथियां सही ढंग से प्राप्त कर सकते हैं।
- लेकिन, मान उचित प्रारूप में नहीं हैं।
- इसे ठीक करने के लिए, राइट-क्लिक करें कुल मिलाकर B6:H11 चयन करें और प्रकोष्ठों को प्रारूपित करें… . चुनें संदर्भ मेनू से विकल्प।
- परिणामस्वरूप, प्रकोष्ठों को प्रारूपित करें डायलॉग बॉक्स दिखाई देगा।
- नंबर पर जाएं यहां टैब>> कस्टम . चुनें श्रेणी: . से विकल्प फलक>> लिखें dd प्रकार: . में टेक्स्ट बॉक्स>> ठीक . पर क्लिक करें बटन।
- इस प्रकार, आपकी कैलेंडर तिथियां ठीक से स्वरूपित हैं और आप अगले महीने के लिए पूरा कैलेंडर देख सकते हैं।
- अब, सप्ताहांत को अलग तरीके से चिह्नित करने के लिए, सप्ताहांत के सेल चुनें>> होम पर जाएं टैब>> फ़ॉन्ट समूह>> रंग भरें आइकन>> ऑरेंज, एक्सेंट 2, लाइटर 40% चुनें रंग।
- अब, छुट्टियों को चिह्नित करने के लिए, B6:H11 सेल चुनें>> होम टैब पर जाएं>> सशर्त स्वरूपण टूल>> नया नियम… विकल्प।
- परिणामस्वरूप, स्वरूपण नियम संपादित करें विंडो दिखाई देगी।
- निम्नलिखित में, नियम प्रकार चुनें: . में से अंतिम विकल्प चुनें विकल्प सूची>> नीचे दिए गए सूत्र को फ़ॉर्मेट मानों में लिखें जहां यह सूत्र सत्य है: फॉर्मूला बार>> फॉर्मेट… . पर क्लिक करें विकल्प।
=ISNUMBER(VLOOKUP('Dynamic Monthly Calender'!B6,'Helper Columns'!$C$5:$C$15,1,0))
- बाद में, भरें . पर जाएं दिखाई देने वाली विंडो से टैब>> लाल choose चुनें रंग>> ठीक . पर क्लिक करें बटन।
- परिणामस्वरूप, स्वरूपण नियम संपादित करें एक पूर्वावलोकन के साथ विंडो फिर से दिखाई देगी। ठीक . पर क्लिक करें बटन।
इस प्रकार, आपको अपना इंटरैक्टिव मासिक कैलेंडर मिलेगा जहां सप्ताहांत अलग-अलग रंगों में प्रदर्शित होते हैं और छुट्टियों को भी अलग-अलग रंगों में प्रदर्शित किया जाता है। आप H4 . में ड्रॉपडाउन द्वारा माह बदल सकते हैं सेल और इस प्रकार, कार्यदिवस, सप्ताहांत और छुट्टियां भी गतिशील रूप से बदल जाएंगी।
Excel में एक वार्षिक कैलेंडर बनाएं
अब, यदि आप एक्सेल में एक वार्षिक कैलेंडर बनाना चाहते हैं, आप नीचे दिए गए चरणों का पालन कर सकते हैं।
📌 चरण:
- शुरुआत में, अपनी पसंद के अनुसार दिनों और महीनों के लिए एक टेम्प्लेट बनाएं।
- बाद में, B6 . पर क्लिक करें सेल और निम्न सूत्र सम्मिलित करें।
=IF(MONTH(DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1),2))=MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1),2),"")
- बाद में, Ente दबाएं आर बटन।
- परिणामस्वरूप, आप देखेंगे कि तिथियां अगले महीने के विशेष दिनों के अनुसार निर्धारित की जाएंगी।
- लेकिन, कम स्थान और स्वरूपण संबंधी समस्याओं के लिए, यह कभी-कभी ### दिखा सकता है।
- इसे पुनर्प्राप्त करने के लिए, पूरे महीने का डेटासेट चुनें और राइट-क्लिक करें कोशिकाओं पर।
- निम्नलिखित में, प्रकोष्ठों को प्रारूपित करें… . चुनें विकल्प।
- परिणामस्वरूप, प्रारूप कक्ष विंडो दिखाई देगी।
- अब, नंबर पर जाएं टैब>> कस्टम . चुनें श्रेणी: . से विकल्प फलक>> लिखें dd प्रकार: . में टेक्स्ट बॉक्स>> ठीक . पर क्लिक करें बटन।
- इन प्रक्रियाओं को अगले वर्ष के प्रत्येक महीने के लिए दोहराएं।
- इस प्रकार, आपको पूरे वर्ष के लिए कार्यदिवसों के अनुसार तिथियां मिलेंगी।
- अब, सप्ताहांत चिह्नित करने के लिए, सप्ताहांत सेल चुनें>> होम . पर जाएं टैब>> फ़ॉन्ट समूह>> रंग भरें आइकन>> रंग चुनें नारंगी, एक्सेंट 2, हल्का 40% ।
- बाद में, जनवरी की छुट्टियों को चिह्नित करने के लिए, महीने के सभी दिनों का चयन करें>> होम पर जाएं टैब>> सशर्त स्वरूपण टूल>> चुनें नया नियम… विकल्प।
- परिणामस्वरूप, स्वरूपण नियम संपादित करें विंडो दिखाई देगी।
- निम्नलिखित में, नियम प्रकार चुनें: . में से अंतिम विकल्प चुनें विकल्प>> उन मानों को प्रारूपित करें जहां यह सूत्र सत्य है, निम्न सूत्र सम्मिलित करें: टेक्स्ट बॉक्स>> फ़ॉर्मेट… . पर क्लिक करें बटन।
=ISNUMBER(VLOOKUP(B6,'Helper Columns'!$C$5:$C$15,1,0))
- बाद में, भरें . पर जाएं टैब>> लाल . चुनें रंग>> ठीक . पर क्लिक करें बटन।
- परिणामस्वरूप, स्वरूपण नियम संपादित करें एक पूर्वावलोकन के साथ विंडो फिर से दिखाई देगी। ठीक . पर क्लिक करें बटन।
इन प्रक्रियाओं को अन्य सभी महीनों के लिए समान सूत्र और प्रारूप का गतिशील रूप से उपयोग करके दोहराएं और इस प्रकार आपको अपना गतिशील वार्षिक कैलेंडर प्राप्त होगा।
और पढ़ें: एक्सेल में साप्ताहिक कैलेंडर कैसे बनाएं (3 उपयुक्त तरीके)
Excel में मासिक शेड्यूल कैसे बनाएं
आप एक्सेल में आसानी से मासिक शेड्यूल भी बना सकते हैं। ऐसा करने के लिए, नीचे दिए गए चरणों का ध्यानपूर्वक पालन करें।
📌 चरण:
- प्रारंभ में, फ़ाइल पर जाएं टैब।
- बाद में, नया . चुनें विस्तृत फ़ाइल . से विकल्प टैब>> लिखें मासिक शेड्यूल खोज बॉक्स में>> खोज प्रारंभ करें . पर क्लिक करें आइकन।
- परिणामस्वरूप, कई टेम्पलेट दिखाई देंगे।
- इसके बाद, 12-माह के कैलेंडर पर क्लिक करें टेम्पलेट।
- बाद में, बनाएं . पर क्लिक करें बटन।
नतीजतन, एक नई एक्सेल फाइल बन जाएगी, और इस तरह आपको एक्सेल में अपना वांछित मासिक शेड्यूल मिल जाएगा।
निष्कर्ष
इसलिए, इस लेख में, मैंने आपको एक्सेल में मासिक कैलेंडर बनाने का तरीका दिखाया है। मेरा सुझाव है कि आप पूरा लेख ध्यान से पढ़ें और ज्ञान को अपनी आवश्यकताओं के अनुसार लागू करें। अभ्यास करने के लिए आप हमारी मुफ्त कार्यपुस्तिका भी डाउनलोड कर सकते हैं। मुझे उम्मीद है कि आपको यह लेख मददगार और जानकारीपूर्ण लगा होगा। यदि आपके कोई और प्रश्न या सुझाव हैं, तो कृपया बेझिझक यहां टिप्पणी करें।
और, ExcelDemy . पर जाएं एक्सेल के बारे में अधिक जानने के लिए! आपका दिन शुभ हो!
संबंधित लेख
- एक्सेल में एक खाली कैलेंडर कैसे बनाएं (मुफ्त टेम्पलेट डाउनलोड करें)