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

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

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

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

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

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

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

---

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

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

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

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

أنشئ تقويمًا شهريًا برمز 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
سيرة ذاتية
نهاية الفرعية

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

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

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

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

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

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

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

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

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

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

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...