Note: The other languages of the website are Google-translated. Back to English

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

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

أنشئ تقويمًا سنويًا عن طريق تنزيل قوالب تقويم Excel

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

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

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعةأنشئ تقويمًا سنويًا عن طريق تنزيل قوالب تقويم Excel

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

انتقل إلى (تحديث البرنامج) في MyCAD قم بتقديم، اضغط هنا جديد في الجزء الأيمن ، وانقر فوق من قوالب Office.com. انظر لقطة الشاشة:

doc-create-calendar1

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

بعد تنزيل قالب التقويم ، ستحصل على التقويم في مصنف جديد.


السهم الأزرق الحق فقاعة أنشئ تقويمًا شهريًا برمز VBA

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

انقر المطور > Visual Basic، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة، وأدخل الكود التالي في ملف وحدة:

VBA: إنشاء تقويم شهري في Excel

Sub CalendarMaker ()
ActiveSheet.Protect DrawingObjects: = False، Contents: = False، _
السيناريوهات: = خطأ
Application.ScreenUpdating = خطأ
عند الخطأ ، انتقل إلى MyErrorTrap
النطاق ("a1: g14"). مسح
MyInput = InputBox ("اكتب الشهر والسنة للتقويم")
إذا كان MyInput = "" ثم اخرج من Sub
StartDay = DateValue (MyInput)
إذا كان Day (StartDay) <> 1 ثم
StartDay = DateValue (شهر (تاريخ البدء) & "/ 1 /" & _
السنة (يوم البداية))
إنهاء حالة
النطاق ("a1"). NumberFormat = "mmmm yyyy"
مع النطاق ("a1: g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
الخط الحجم = 18
.Font.Bold = صحيح
.RowHeight = 35
انتهت ب
مع النطاق ("a2: g2")
عرض العمود = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = زلسنتر
.VerticalAlignment = xlCenter
الاتجاه = xl أفقي
الخط الحجم = 12
.Font.Bold = صحيح
.RowHeight = 20
انتهت ب
النطاق ("a2") = "الأحد"
النطاق ("b2") = "الاثنين"
النطاق ("c2") = "الثلاثاء"
النطاق ("d2") = "الأربعاء"
النطاق ("e2") = "الخميس"
النطاق ("f2") = "الجمعة"
النطاق ("g2") = "السبت"
مع النطاق ("a3: g8")
.HorizontalAlignment = زلرايت
.VerticalAlignment = xlTop
الخط الحجم = 18
.Font.Bold = صحيح
.RowHeight = 21
انتهت ب
النطاق ("a1"). القيمة = Application.Text (MyInput، "mmmm yyyy")
DayofWeek = يوم من أيام الأسبوع (StartDay)
CurYear = السنة (StartDay)
CurMonth = الشهر (StartDay)
FinalDay = DateSerial (CurYear، CurMonth + 1، 1)
حدد حالة DayofWeek
حالة 1
النطاق ("a3"). القيمة = 1
حالة 2
النطاق ("b3"). القيمة = 1
حالة 3
النطاق ("c3"). القيمة = 1
حالة 4
النطاق ("d3"). القيمة = 1
حالة 5
النطاق ("e3"). القيمة = 1
حالة 6
النطاق ("f3"). القيمة = 1
حالة 7
النطاق ("g3"). القيمة = 1
إنهاء اختر
لكل خلية في النطاق ("a3: g8")
RowCell = خلية
ColCell = خلية
إذا كانت cell.Column = 1 و cell.Row = 3 ثم
عدا ذلك ، إذا كانت الخلية ، العمود <> 1 ثم
إذا كانت الخلية إزاحة (0 ، -1). القيمة> = 1 ثم
cell.Value = cell.Offset (0، -1) .Value + 1
إذا كانت cell.Value> (FinalDay - StartDay) ثم
cell.Value = ""
خروج عن
إنهاء حالة
إنهاء حالة
عدا ذلك ، إذا كانت الخلية ، الصف> 3 والخلية ، العمود = 1 ثم
cell.Value = cell.Offset (-1، 6) .Value + 1
إذا كانت cell.Value> (FinalDay - StartDay) ثم
cell.Value = ""
خروج عن
إنهاء حالة
إنهاء حالة
التالى
ل x = شنومكس إلى شنومكس
النطاق ("A4"). الإزاحة (x * 2 ، 0). الصف الكامل
مع النطاق ("A4: G4"). الإزاحة (× * 2 ، 0)
.RowHeight = 65
.HorizontalAlignment = زلسنتر
.VerticalAlignment = xlTop
.WrapText = صحيح
الخط الحجم = 10
.Font.Bold = خطأ
. مغلق = خطأ
انتهت ب
مع النطاق ("A3"). الإزاحة (x * 2 ، 0). الحجم (2 ، _
7). الحدود (xlLeft)
الوزن = xlThick
.ColorIndex = زلاوتوماتيك
انتهت ب
مع النطاق ("A3"). الإزاحة (x * 2 ، 0). الحجم (2 ، _
7). الحدود (xlRight)
الوزن = xlThick
.ColorIndex = زلاوتوماتيك
انتهت ب
النطاق ("A3"). الإزاحة (x * 2 ، 0). الحجم (2 ، 7).
الوزن: = xlThick ، ​​ColorIndex: = xlAutomatic
التالى
إذا كان النطاق ("A13"). القيمة = "" ثم النطاق ("A13"). الإزاحة (0 ، 0) _
الحجم (2 ، 8). الصف بأكمله. حذف
ActiveWindow.DisplayGridlines = خطأ
ActiveSheet.Protect DrawingObjects: = صحيح ، المحتويات: = صحيح ، _
السيناريوهات: = صحيح
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = ترو
خروج الفرعية
MyErrorTrap:
MsgBox "ربما لم تدخل الشهر والسنة بشكل صحيح." _
& Chr (13) & "تهجئة الشهر بشكل صحيح" _
& "(أو استخدم اختصارًا مكونًا من 3 أحرف)" _
& Chr (13) & "وأربعة أرقام للسنة"
MyInput = InputBox ("اكتب الشهر والسنة للتقويم")
إذا كان MyInput = "" ثم اخرج من Sub
سيرة ذاتية
نهاية الفرعية

ثم اضغط doc-callendar-2 زر لتشغيل الكود ، وسيظهر مربع موجه ، يمكنك إدخال الشهر والسنة في المربع الفارغ. انظر لقطة الشاشة:

doc-create-calendar2

ثم انقر فوق OK. وتم إنشاء تقويم شهري جديد في ورقة العمل الحالية. انظر لقطة الشاشة:

doc-create-calendar3

يعد رمز VBA صعبًا بالنسبة لمعظمنا ، وباستخدام رمز VBA هذا ، يمكنك فقط إنشاء تقويم شهري ، إذا كنت ترغب في إنشاء تقويم سنوي بسرعة وسهولة ، فهل هناك أي طريقة أخرى بسيطة للقيام بذلك؟


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

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

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. احصل عليه الآن

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

doc-create-calendar4

وبعد ذلك تم إنشاء تقويم شهري حالي في مصنف جديد.

doc-create-calendar5

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

doc-create-calendar6

ثم اضغط إنشاء الزر ، سيتم إنشاء تقويم عام 2012 في مصنف جديد.

doc-create-calendar7


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل رائع. المليارات من الشكر على التصميم الرائع لقالب تقويم Excel. :الضحك بصوت مرتفع:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكنني أن أجعلها تبدأ يوم الاثنين بدلاً من ذلك؟ شكرا لك مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا يا رفاق على المساعدة. أرغب في الحصول على تقويم سنوي يمكنني فيه إدخال العناصر. إذا كنت تستطيع المساعدة فسيكون ذلك رائعا.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL