كيف تنبثق تقويم عند النقر فوق خلية معينة في Excel؟
لنفترض وجود نطاق أعمدة في ورقة العمل ، فأنت بحاجة إلى إدخال التواريخ وتغييرها بشكل متكرر في الداخل ، ولكن من الملل إدخال التاريخ أو تغييره يدويًا في كل مرة. كيف تدخل التواريخ بسرعة دون الكتابة يدويًا في نطاق العمود؟ تتحدث هذه المقالة عن ظهور تقويم عند النقر فوق خلايا في نطاق معين ، ثم إدراج التاريخ في الخلية المحددة تلقائيًا بعد تحديد التاريخ في التقويم.
انبثق تقويمًا عند النقر فوق خلية معينة برمز VBA
يرجى حل هذه المشكلة على النحو التالي خطوة بخطوة.
ملاحظات: يمكن أن تعمل هذه الطريقة فقط على Microsoft Excel 32 بت.
الخطوة 1: إنشاء UserForm بالتقويم
الرجاء إنشاء UserForm يحتوي على التقويم الذي ستظهره من خلال النقر فوق خلية.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > المستخدم.
3. ثم أ المستخدم و الأدوات النوافذ المنبثقة ، في الأدوات، انقر فوق أي عنصر تحكم وانقر بزر الماوس الأيمن ، ثم حدد ضوابط إضافية من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:
4. في ال ضوابط إضافية مربع الحوار ، قم بالتمرير لأسفل للتحقق من تحكم Microsoft MonthView الخيار في الضوابط المتاحة مربع ، ثم انقر فوق OK .
5. ثم يمكنك مشاهدة ملف مونثفيو زر في الأدوات نافذة او شباك. الرجاء النقر فوق زر عرض الشهر هذا ، ثم النقر فوق نافذة UserForm1 لإنشاء تقويم في Userform.
ملاحظات: يمكنك ضبط حجم نافذة UserForm ليناسب التقويم المدرج عن طريق سحب حدود UserForm.
6. انقر نقرًا مزدوجًا فوق التقويم المدرج في UserForm1 ، وفي ملف رمز نافذة ، يرجى استبدال الكود الأصلي بالنص التالي 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. انقر نقرًا مزدوجًا فوق اسم الورقة الذي يحتوي على الخلايا التي ستنقر فوقها لعرض التقويم المنبثق في اليسار قسم المشاريع ، ثم انسخ والصق رمز فبا أدناه في نافذة التعليمات البرمجية. انظر لقطة الشاشة:
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. صحافة قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند النقر فوق أي خلية داخل النطاق المحدد في ورقة العمل الحالية ، سيظهر تقويم كما هو موضح أدناه. وسيتم إدراج التاريخ تلقائيًا في الخلية المحددة بعد تحديد التاريخ من التقويم.
انبثق تقويمًا عند النقر فوق خلية معينة برمز VBA
يقدم هذا القسم منتقي التاريخ فائدة كوتولس ل إكسيل. بعد تمكين هذه الميزة ، انقر فوق خلية تاريخ منبثقة في التقويم ، يمكنك بسهولة استبدال التاريخ الحالي بتاريخ جديد به. يرجى اتباع الخطوات أدناه لتطبيق هذه الميزة.
1. انقر كوتولس > وصف المنتج > تمكين منتقي التاريخ.
2. بعد تمكين هذه الميزة ، انقر فوق خلية التاريخ ، وسوف تظهر أيقونة التقويم مباشرة في الخلية.
3. انقر فوق رمز التقويم لفتح ملف منتقي التاريخ مربع الحوار ، ثم انقر فوق تاريخ جديد لاستبدال التاريخ في الخلية المحددة.
الملاحظات:
- زر التراجع: انقر فوق هذا الزر للتراجع عن استبدال التاريخ ؛
- زر الإغلاق: انقر فوق هذا الزر لإغلاق مربع الحوار "منتقي التاريخ" ؛
- يمكن تطبيق هذه الميزة فقط على الخلايا التي تحتوي على التاريخ.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
مقالات ذات صلة:
- كيف يتم تشغيل ماكرو أو تشغيله بالنقر فوق خلية معينة في Excel؟
- كيفية تغيير لون الخلية عند النقر فوق الخلية أو تحديدها في Excel؟
- كيف تظهر مربع رسالة عند النقر فوق خلية معينة في Excel؟
- كيفية تعطيل الزر بعد النقر مرة واحدة في Excel؟
- كيفية تعطيل النقر بزر الماوس الأيمن على علامة تبويب الورقة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!