Skip to main content

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

Author: Tech Support Last Modified: 2025-05-30

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

create a calendar

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

إنشاء تقويم شهري أو سنوي بسرعة مع Kutools لـ Excel

إنشاء تقويم شهري باستخدام كود VBA


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

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

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

click New button, and click Calendars

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

 select one of the calendar templates

النتيجة

the calendar is inserted


إنشاء تقويم شهري أو سنوي بسرعة مع Kutools لـ Excel

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

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

بعد تثبيت Kutools لـ Excel، يرجى النقر على Kutools Plus > ورقة العمل > التقويم الدائم. في مربع الحوار المنبثق التقويم الدائم، يرجى القيام بما يلي:

  • لإنشاء تقويم شهري، حدد الأشهر التي تريد إنشاء التقويم لها من خلال قائمة منسدلة من وإلى، ثم انقر على إنشاء.

specify the months to create a monthly calendar

  • لإنشاء تقويم سنوي، حدد السنة التي تريد إنشاء التقويم لها من خلال قائمة منسدلة من و إلى، ثم انقر على إنشاء.

 specify the year  create a yearly calendar

النتيجة
  • تقويم شهري:

 A monthly calendar is inserted

  • تقويم سنوي:

A yearly calendar is inserted

نصيحة: لاستخدام هذه الميزة، يجب أن تقوم بتثبيت Kutools لـ Excel أولاً، يرجى النقر لتنزيل نسخة تجريبية مجانية لمدة 30 يومًا الآن.

إنشاء تقويم شهري باستخدام كود VBA

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

1. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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 لتشغيل التطبيق. الآن سيظهر مربع موجه، يمكنك إدخال الشهر والسنة في المربع الفارغ.

 input the month and the year in the textbox

النتيجة

 a monthly calendar is inserted