نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيف تطفو على التقويم عند النقر على خلية معينة في إكسيل؟

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

يطفو على السطح تقويم عند النقر على خلية معينة مع رمز فبا

إنشاء نموذج مستخدم مع التقويم

تنشيط التقويم عند النقر على الخلية


منتقي التاريخ (حدد التاريخ بسهولة مع تنسيق تاريخ محدد من التقويم وأدخل إلى الخلية المحددة):

انقر Kutools > إدراج > أدخل التاريخ، وفي مربع الحوار "إدراج التاريخ"، حدد تنسيق التاريخ، انقر نقرا مزدوجا فوق تاريخ معين لإدراج هذا التاريخ في خلية محددة إميدياتيلي. انظر الصورة أدناه:

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تنزيل النسخة التجريبية المجانية الآن!

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

يطفو على السطح تقويم عند النقر على خلية معينة مع رمز فبا


يرجى حل هذه المشكلة على النحو التالي خطوة بخطوة.

ملاحظة:: يمكن أن تعمل هذه الطريقة فقط على ميكروسوفت إكسيل شنومكس بت.

إنشاء نموذج مستخدم مع التقويم

يرجى إنشاء وسيرفورم الذي يحتوي على التقويم الذي سوف يطفو على السطح من خلال النقر على خلية.

1. صحافة قديم + F11 مفاتيح في وقت واحد لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > المستخدم.

3. ثم المستخدم و الأدوات النوافذ المنبثقة، في الأدوات، انقر فوق أي عنصر تحكم واحد وانقر بزر الماوس الأيمن، ثم حدد ضوابط إضافية من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

4. في ال ضوابط إضافية مربع الحوار، انتقل لأسفل للتحقق من ميكروسوفت مونثفيو كونترول الخيار في عناصر التحكم المتوفرة مربع، ثم انقر فوق OK .

5. ثم يمكنك ان ترى MonthView زر في الأدوات نافذة او شباك. الرجاء النقر فوق هذا الزر مونثفيو ثم انقر فوق إطار وسيرفورمشنوم لإنشاء تقويم في وسرفورم.

ملاحظة:: يمكنك ضبط حجم إطار وسيرفورم لتتناسب مع التقويم المدرج عن طريق سحب حد نموذج المستخدم.

6. انقر نقرا مزدوجا فوق التقويم المدرج في وسيرفورمشنومك، وفي رمز نافذة، يرجى استبدال التعليمات البرمجية الأصلية مع البرنامج النصي فبا التالية.

رمز فبا: إنشاء نموذج مستخدم مع التقويم

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

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

تنشيط التقويم عند النقر على الخلية

الآن تحتاج إلى تحديد خلايا معينة ليطفو على السطح التقويم عند النقر. يرجى القيام على النحو التالي.

7. انقر نقرا مزدوجا فوق اسم الورقة التي تحتوي على الخلايا التي سوف تنقر فوق المنبثقة التقويم في اليسار مشروع جزء، ثم نسخ ولصق التعليمات البرمجية فبا أدناه في إطار التعليمات البرمجية. انظر لقطة الشاشة:

رمز فبا: انقر على الخلية ليطفو على السطح التقويم

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

ملاحظة:: في التعليمات البرمجية، أكسنومك: أكسنومك هي الخلايا التي سوف انقر فوق المنبثقة التقويم. يرجى تغيير نطاق الخلايا كما تحتاج.

8. صحافة قديم + Q مفاتيح في وقت واحد لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدا، عند النقر على أي خلية داخل النطاق المحدد في ورقة العمل الحالية، فإن التقويم يطفو على السطح كما هو مبين أدناه لقطة شاشة. وسيتم إدراج التاريخ تلقائيا في الخلية المحددة بعد تحديد التاريخ من التقويم.


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


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Hannah · 1 months ago
    The calendar will show up but when I click on the date, the cell doesn't populate
  • To post as a guest, your comment is unpublished.
    DwarthK · 5 months ago
    Thank you so much! These directions were super useful :)
  • To post as a guest, your comment is unpublished.
    jeet · 7 months ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi jeet,
      Follow the steps and replace the range "A2:A10" in the second VBA code with your column range (such as C2:E2).
  • To post as a guest, your comment is unpublished.
    Giuseppe · 8 months ago
    Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
  • To post as a guest, your comment is unpublished.
    Sam · 9 months ago
    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
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi Sam,
      The code has been updated in the article with the problem solving. Please have a try and thank you for your comment.
  • To post as a guest, your comment is unpublished.
    cevat · 9 months ago
    tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
  • To post as a guest, your comment is unpublished.
    MG · 1 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Chris · 9 months ago
      Use i.e: Range("B6:C30")
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Sorry I didn't got your question. Would be nice if you could provide screenshot of what you are trying to do.
  • To post as a guest, your comment is unpublished.
    George · 2 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Sirimon · 2 years ago
    I want to show pop up calendar under the cell selected.How should I do?