انتقل إلى المحتوى الرئيسي

كيف تنبثق تقويم عند النقر فوق خلية معينة في 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 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


مقالات ذات صلة:

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (18)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am not seeing the Microsoft MonthView Control in the listing, but it may be as Pete (#32847) mentioned that this will not work in Office 365 or 64-bit Microsoft Office.
This comment was minimized by the moderator on the site
Hi Teagan Caudle,
I searched and tried the methods suggested in google, but ultimately could not register the MonthView control in Microsoft 365.
Sorry for the inconvenience. Maybe you can check this out.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
This comment was minimized by the moderator on the site
There is no Microsoft MonthView Control listed (Office 365), and the directions here doesn't explain how one would get that control, so this is pretty much useless unless you're using an older version of Excel.
This comment was minimized by the moderator on the site
The calendar will show up but when I click on the date, the cell doesn't populate
This comment was minimized by the moderator on the site
Hi,
The code works well in my case. Which Excel version are you using?
This comment was minimized by the moderator on the site
Thank you so much! These directions were super useful :)
This comment was minimized by the moderator on the site
Hi, Is it possible to put the date picker pop-up for multiple column, as in my sheet I have "start date", "end date" and "agreement date". if yes then how?
This comment was minimized by the moderator on the site
Hi jeet,
Follow the steps and replace the range "A2:A10" in the second VBA code with your column range (such as C2:E2).
This comment was minimized by the moderator on the site
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
This comment was minimized by the moderator on the site
if i try to select a row, the pop up will activate and the date appears in each cell in that row


how can i avoid this
This comment was minimized by the moderator on the site
Hi Sam,
The code has been updated in the article with the problem solving. Please have a try and thank you for your comment.
This comment was minimized by the moderator on the site
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
This comment was minimized by the moderator on the site
Hello everyone,

Can anyone tell me how to popup a calendar in a range of cells, but starting only from the cell right bellow a table header and down bellow in an excel column.


Thank you in advance.
This comment was minimized by the moderator on the site
Use i.e: Range("B6:C30")
This comment was minimized by the moderator on the site
Good Day,
Sorry I didn't got your question. Would be nice if you could provide screenshot of what you are trying to do.
This comment was minimized by the moderator on the site
Use i.e: Range("B6:C30")
This comment was minimized by the moderator on the site
i used these VBA codes and everthing's fine so far. The range is A2:A10 and calendar pops up when you select a cell into it. But if you mark row from 2 to 10 again the calendar pops again. It's the same with column "A" if you mark it, again the calendar pops. How should i proceed, in order to get the calendar only in the range i've defined?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations