انتقل إلى المحتوى الرئيسي

كيفية إنشاء تقويم في Excel؟

يساعدك تقويم Excel على تتبع الأحداث المهمة، مثل عندما يبدأ شخص ما مهمة جديدة أو عندما يلزم تسليم شيء ما. يجعل رؤية هذه التواريخ سهلة وواضحة. سأوضح لك في هذا الدليل كيفية إنشاء تقويمات شهرية وسنوية في برنامج Excel. سننظر في استخدام القوالب للإعداد السريع وكذلك كيفية إنشاء واحدة من البداية لأولئك الذين يريدون مزيدًا من التحكم. بهذه الطريقة، يمكنك البقاء منظمًا، سواء كان ذلك للعمل أو لخططك الشخصية.

قم بإنشاء تقويم سنوي باستخدام قوالب تقويم Excel

أنشئ تقويمًا شهريًا أو سنويًا بسرعة باستخدام Kutools for Excel

أنشئ تقويمًا شهريًا برمز VBA


قم بإنشاء تقويم سنوي باستخدام قوالب تقويم Excel

باستخدام هذه الطريقة ، يجب أن تتأكد من اتصال جهاز الكمبيوتر الخاص بك بالشبكة ، بحيث يمكنك تنزيل ملف قوالب التقويم.

1. اذهب إلى قم بتقديم ، انقر فوق جديد في الجزء الأيسر، ثم انقر فوق التقويمات تبدأ من عمليات البحث المقترحة. انظر لقطة الشاشة:

2. حدد أحد قوالب التقويم التي تريدها، وانقر عليها نقرًا مزدوجًا لإنشاء التقويم السنوي.

نتيجة


أنشئ تقويمًا شهريًا أو سنويًا بسرعة باستخدام Kutools for Excel

تقويم دائم أداة kutools لبرنامج Excel يمكنك إنشاء تقويم شهر أو تقويم سنوي مخصص بسرعة في مصنف جديد ، وسيتم تضمين تقويم كل شهر في ورقة عمل جديدة.

ملحوظة: لتطبيق هذا تقويم دائم الميزة ، أولاً ، يجب عليك تنزيله وتثبيته كوتولس ل إكسيل.

بعد تثبيت كوتولس ل إكسيل ، الرجاء الضغط كوتولس بلس > ورقة العمل > تقويم دائم. في المنبثقة تقويم دائم مربع الحوار ، يرجى القيام بما يلي:

  • لإنشاء تقويم شهري، حدد الأشهر التي تريد إنشاء التقويم من خلالها من و إلى القائمة المنسدلة ، وانقر فوق إنشاء.
  • لإنشاء تقويم سنوي، حدد السنة التي تريد إنشاء التقويم من خلالها من و إلى القائمة المنسدلة ، وانقر فوق إنشاء.
نتيجة
  • التقويم الشهري:
  • تقويم سنوي:
معلومه- سرية: لاستخدام هذه الميزة، يجب عليك تثبيت كوتولس ل إكسيل أولا من فضلك انقر للتنزيل واحصل على نسخة تجريبية مجانية مدتها 30 يومًا الآن.

أنشئ تقويمًا شهريًا برمز VBA

باستخدام رمز VBA التالي ، يمكنك إنشاء تقويم شهري بسرعة. الرجاء القيام بما يلي:

1. صحافة قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. ستكون هناك نافذة جديدة معروضة. انقر إدراج > وحدة، ثم أدخل الرموز التالية في الوحدة:

 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 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 

3. ثم اضغط يجري زر أو اضغط F5 مفتاح تشغيل التطبيق. سيظهر الآن مربع مطالبة، يمكنك إدخال الشهر والسنة في المربع الفارغ.

نتيجة

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks guys for helping. Would like to be able to have a yearly Calendar in which I can enter items. If you can help that would be great.
This comment was minimized by the moderator on the site
Hi, How can I make it start on Monday instead? Thanks in advance
This comment was minimized by the moderator on the site
Excellent job. Billions thanks for your great design of the Excel calendar template. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations