أختي الفاضلة أم حمزة
هذا الفورم غريب نوعاً ما ، حيث أنه يسمح بإدراج التاريخ في ورقة العمل على تكستب بوكس ActiveX TextBox أو CommandButton أو Label ، ولا يوجد ما يشير إلى إدراج التاريخ في الخلية النشطة .. يوجد موضوعات في المنتدى به فورم جاهزة لإدراج التاريخ
أما إذا أردتي العمل على هذا الفورم فيمكن التحايل بشكل ما لتحقيق المطلوب .. فتابعي معي خطوة بخطوة
في ورقة العمل المطلوب إدراج التواريخ فيها قومي بالذهاب إلى التبويب Developer ثم فعلي Design Mode وقومي برسم ActiveX TextBox من Insert كما هو موضح بالشكل التالي
غالباً سيكون اسم التكست بوكس هو TextBox1 ويمكنك التأكد من صندوق الاسم على يسار شريط المعادلات
الآن قومي بعمل كليك يمين على زر الأمر Button1 الموجود في ملفك ثم Assign Macro ثم Edit واستبدلي الكود الموجود بهذا الكود
Option Explicit
Sub my_calendar()
Rem MyCalendar.Show
Call MyCalendar.DatePicker(Sheets("Sheet1").TextBox1)
End Sub
قومي بالرجوع لورقة العمل لتجربة الفورم ، وانقري على زر الأمر Button1 واختاري التاريخ ، ولاحظي التكست بوكس سيدرج فيه التاريخ ..
قومي بإخفاء التكست بوكس من نافذة الخصائص >> من التبويب Developer ثم فعلي الـ Design Mode ثم انقري على التكست بوكس لتحديده ثم Properties كما بالشكل التالي
من نافذة الخصائص ستجدين خاصية Visible قيمتها True ، غيري القيمة إلى False ..
والمفاجأة التكست بوكس لم يختفي ..

هذا بسبب إنك مفعلة الـ Design Mode لذا قومي بإزالة التفعيل بالنقر على Design Mode ، وستجدين التكست بوكس قد اختفى
** الآن يمكن استغلال التكست بوكس بحيث نأخذ القيمة منه (التاريخ الذي يدرج فيه) ونضعه في الخلية النشطة في ورقة العمل ..لذا في حدث ورقة العمل Sheet1 أضيفي الكود التالي
Option Explicit
Private Sub TextBox1_Change()
ActiveCell.Value = TextBox1.Value
Columns(ActiveCell.Column).AutoFit
End Sub
وإليكي الملف المرفق ، رغم أنني لا أحب إرفاق الملفات لتقومي بتطبيق الخطوات بنفسك .. فهذا أفضل