كيف يمكن عرض تقويم تفاعلي عند النقر على خلية معيّنة في Excel؟
افترض أن هناك نطاق أعمدة في ورقة عمل تحتاج إلى إدخال تواريخ فيه وتغييرها بشكل متكرر، لكن من الممل إدخال أو تغيير التاريخ يدويًا في كل مرة. كيف يمكنك إدخال التواريخ بسرعة دون كتابتها يدويًا في نطاق الأعمدة هذا؟ تتناول هذه المقالة عرض تقويم عند النقر على خلايا ضمن نطاق معيّن، ثم يتم إدراج التاريخ في الخلية المحددة تلقائيًا بعد اختيار التاريخ من التقويم.
عرض تقويم عند النقر على خلية معيّنة باستخدام كود VBA
يرجى حل هذه المشكلة باتباع الخطوات التالية خطوةً فخطوة.
ملاحظة: هذه الطريقة مدعومة فقط في Microsoft Excel إصدار 32 بت.
الخطوة 1: إنشاء نموذج مستخدم (UserForm) يحتوي على تقويم
يرجى إنشاء نموذج مستخدم (UserForm) يتضمّن تقويمًا يظهر تلقائيًا عند النقر على الخلية.
1. اضغط على مفاتيحAlt + F11 في آنٍ واحد لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر علىإدراج > نموذج مستخدم (UserForm).
3. بعد ذلك، ستظهر نافذةنموذج المستخدم (UserForm)ونافذةشريط الأدوات (Toolbox). في نافذةشريط الأدوات (Toolbox)، انقر على أي عنصر تحكم، ثم انقر بزر الماوس الأيمن واخترعناصر تحكم إضافية (Additional Controls)من قائمة النقر بزر الماوس الأيمن. راجع لقطة الشاشة:
4. في مربع حوارعناصر التحكم الإضافية (Additional Controls)، مرّر لأسفل حتى تجد خيارعنصر تحكم Microsoft MonthViewفي مربععناصر التحكم المتاحة (Available Controls)، ثم انقر على زرموافق (OK).
5. بعد ذلك، سترى أن زرMonthView قد تمت إضافته إلى نافذةشريط الأدوات (Toolbox). انقر على زر MonthView هذا، ثم انقر داخل نافذة UserForm1 لإنشاء تقويم في النموذج.
ملاحظة: يمكنك ضبط حجم نافذة نموذج المستخدم (UserForm) لتتناسب مع التقويم المُدرج ببساطة عن طريق سحب حدود النموذج.
6. انقر مرتين على التقويم المُدرج في UserForm1، ثم في نافذةالكود (Code)، استبدل الكود الأصلي بالنص البرمجي التالي لـ VBA.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End Subملاحظة: يُسهّل عليك هذا الكود إدراج التاريخ في الخلية المحددة فور اختيارك للتاريخ من التقويم.
الخطوة 2: تفعيل التقويم عند النقر على الخلية
الآن، لعرض التقويم عند النقر، يُرجى تحديد الخلايا المطلوبة باتباع الخطوات التالية:
7. انقر نقرًا مزدوجًا على اسم الورقة التي تحتوي على الخلايا التي ستضغط عليها لعرض التقويم في جزءالمشروع (Project)الأيسر، ثم انسخ والصق كود VBA أدناه في نافذة الكود. راجع لقطة الشاشة:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End Subملاحظة: في الكود، تمثّل الخلايا A2:A10 النطاق الذي ستضغط عليه لعرض التقويم. يُرجى تعديل نطاق الخلايا حسب احتياجاتك.
8. اضغط على مفاتيحAlt + Q في آنٍ واحد لإغلاق نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
ابتداءً من الآن، عند النقر على أي خلية ضمن النطاق المحدد في ورقة العمل الحالية، سيظهر تقويم كما في لقطة الشاشة أدناه، ويُدرج التاريخ تلقائيًا في الخلية المحددة فور اختياره من التقويم.
عرض تقويم عند النقر على خلية معيّنة باستخدام كود VBA
يقدّم هذا القسمأداة اختيار التاريخمنKutools لـ Excel. بعد تمكين هذه الميزة، سيؤدي النقر على خلية تحتوي تاريخًا إلى ظهور تقويم منبثق، مما يتيح لك استبدال التاريخ الحالي بتاريخ جديد بسهولة. يُرجى اتباع الخطوات أدناه لتفعيل هذه الميزة.
1. انقر علىKutools > المحتوى (Content) > تمكين أداة اختيار التاريخ.
2. بعد تمكين هذه الميزة، انقر على خلية التاريخ وستظهر أيقونة التقويم فورًا إلى يمين الخلية.
3. انقر على رمز التقويم لفتح مربع حوارأداة اختيار التاريخ، ثم اختر تاريخًا جديدًا لاستبدال التاريخ الموجود في الخلية المحددة.
ملاحظات:
زر التراجع: انقر هذا الزر للتراجع عن استبدال التاريخ؛
زر الإغلاق: انقر هذا الزر لإغلاق مربع حوار أداة اختيار التاريخ؛- يمكن تطبيق هذه الميزة فقط على الخلايا التي تحتوي على تواريخ.
زر التراجع: انقر هذا الزر للتراجع عن استبدال التاريخ؛
زر الإغلاق: انقر هذا الزر لإغلاق مربع حوار أداة اختيار التاريخ؛إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
مقالات ذات صلة:
- كيف يمكن تشغيل ماكرو أو تنفيذه بالنقر على خلية معيّنة في Excel؟
- كيف يمكن تغيير لون الخلية تلقائيًا عند النقر عليها أو تحديدها في Excel؟
- كيف يمكن عرض مربع رسالة عند النقر على خلية معيّنة في Excel؟
- كيف يمكن تعطيل زر في Excel بعد النقر عليه مرة واحدة؟
- كيف يمكن تعطيل النقر بزر الماوس الأيمن على لسان ورقة العمل في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل