Note: The other languages of the website are Google-translated. Back to English

كيفية إدراج طابع التاريخ في خلية إذا حددت خانة اختيار في إكسيل؟

عادة ، تقوم بإدخال طابع التاريخ باستخدام مفاتيح الاختصار في Excel. ماذا عن إدخال طابع التاريخ في خلية عن طريق مربع الاختيار في إكسيل؟ عند تحديد خانة الاختيار ، يتم إدخال الطابع الزمني تلقائيًا في خلية محددة. هذه المقالة سوف تساعدك على حلها.

أدخل طابع التاريخ في خلية إذا حددت خانة اختيار برمز VBA


أدخل طابع التاريخ في خلية إذا حددت خانة اختيار برمز VBA

سيقدم هذا القسم برنامج نصي لـ VBA لمساعدتك في إدراج طابع تاريخ في خلية تلقائيًا إذا حددت خانة اختيار في Excel. الرجاء القيام بما يلي.

1. بعد إدخال مربع الاختيار ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.

كود فبا: أدخل طابع التاريخ في خلية إذا حددت خانة اختيار

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

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

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

5. في ال تعيين ماكرو مربع الحوار، حدد CheckBox_Date_Stamp في ال اسم الماكرو مربع ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

عند تحديد خانة الاختيار ، سيتم إدراج طابع التاريخ في الخلية المجاورة تلقائيًا.


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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (22)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك ، لقد كان هذا مفيدًا للغاية ، وأود أن أشير إلى أنني وجدت أنه من المفيد أكثر أن يكون لديك طابع التاريخ على يسار مربع الاختيار. للقيام بذلك ، ما عليك سوى تغيير الإزاحة إلى (، -1)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل توجد أي طريقة للقيام بذلك باستخدام التاريخ والوقت؟ شكرا للمعلومات في كلتا الحالتين
تم تصغير هذا التعليق بواسطة المشرف على الموقع
CheckBox_Date_Stamp فرعي () Dim xChk مجموعة CheckBox xChk = ActiveSheet.CheckBoxes (Application.Caller) مع xChk.TopLeftCell.Offset (، 1) If xChk.Value = xlOff ثم .Value = "" Else .Value = Date & "" & انتهى الوقت إذا انتهى بـ End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يرجى تطبيق رمز VBA أدناه لإضافة التاريخ والوقت.

CheckBox_Date_Stamp فرعي ()
خافت xChk باسم CheckBox
قم بتعيين xChk = ActiveSheet.CheckBoxes (Application.Caller)
مع xChk.TopLeftCell. Offset (، 1)
إذا كانت xChk.Value = xlOff ثم
.Value = ""
آخر
.Value = الآن ()
إنهاء حالة
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد جربت هذه الصيغة وعملت فقط مع A1 و B1 عندما قمت بتطبيق الماكرو على خانة الاختيار في A1. ومع ذلك ، عندما قمت بتطبيق الماكرو على مربع الاختيار في A2 ، لم يحدث شيء في B2. كيف يمكن أيضًا تغيير الصيغة إذا أردت استخدام هذا في قائمة التحقق؟ إذا كان العمود A عبارة عن خانات الاختيار والعمود C تم إكمال التاريخ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا :) يمكنك نسخ الخلية مع مربع الاختيار في A1 إلى باقي العمود. أو قم بتعيين الماكرو بشكل فردي لكل خانة اختيار
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
يرجى تعيين الماكرو بشكل فردي لكل خانة اختيار.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بنسخ رمز VBA ولصقه تمامًا ، ولكن في جدول البيانات الخاص بي ، يظهر التاريخ في الخلية أعلاه وعلى يمين عمود خانة الاختيار ، وليس في الخلية الموجودة على اليمين مباشرةً. ؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أيضا أواجه نفس المشكلة بالضبط. "مساعدة! أحتاج إلى مساعدة شخص ما! ليس فقط أي شخص للمساعدة! أنت تعلم أنني بحاجة إلى مساعدة شخص ما!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
الكود يعمل بشكل جيد في حالتي. بعد تحديد خانة الاختيار ، سيظهر التاريخ في الخلية مباشرة على اليسار. هل يمكنك تقديم لقطة شاشة لحالتك. وما إصدار Office الذي تستخدمه. شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واجهت نفس المشكلة مع طابع التاريخ والوقت الذي يظهر في الخلية أعلى الخلية المقصودة (باستخدام Excel 2007). تقدمت وقمت بتعديل صيغة "الإزاحة" بحيث تتجاوز خلية واحدة وتحت خلية واحدة ويظهر الختم الآن في المكان الذي أريده: باستخدام xChk.TopLeftCell.Offset (1 ، 1)
أقوم بتحديث ورقة عمل أنشأها شخص آخر ولم يقم بإنشاء مربعات الاختيار ، ولكن قد يتعلق الأمر بالمكان الموجود داخل الخلية حيث يتم وضع خانة الاختيار. حصلت على نتائج مختلفة عندما اصطفت في مربع الاختيار أسفل الخلية.

نأمل أن يساعد!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا ما فعلته لإصلاح هذه المشكلة

CheckBox_Date_Stamp فرعي ()
خافت xChk باسم CheckBox
قم بتعيين xChk = ActiveSheet.CheckBoxes (Application.Caller)
مع xChk.TopLeftCell. Offset (1، 1)
إذا كانت xChk.Value = xlOff ثم
.Value = ""
آخر
.Value = الآن ()
إنهاء حالة
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! شكرا على الكود. إنه يعمل بشكل مثالي مع التغيير والتبديل في الإزاحة. ومع ذلك ، كنت أعمل على ورقة بها العديد من الصفوف العديدة (حوالي 500 + صف) والتي تحتوي على تحميل من مربعات الاختيار ونما حجم الملف بشكل ملحوظ. هل هناك طريقة لتقليل الحجم؟ أي طريقة بديلة للقيام بذلك؟

شكر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
دا جيد
إذا كان هناك الكثير من خانات الاختيار في الصفوف وتريد العمل على جميع خانات الاختيار في نفس الوقت ، يمكن أن يساعدك رمز VBA أدناه.
يرجى نسخ الرموز في نافذة كود الوحدة النمطية ، والعودة إلى ورقة العمل وإنشاء زر (مثل زر (التحكم في النموذج)) ، وتعيين الماكرو SetAllChkChange () إلى الزر ، ثم انقر فوق الزر لتشغيل التعليمات البرمجية.

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

المجموعة الفرعية
خافت xChks
خافت xChk باسم CheckBox
خافت xI وطول
على خطأ استئناف التالي
محو xArrChk
قم بتعيين xChks = ActiveSheet.CheckBoxes
ReDim Preserve xArrChk (1 إلى xChks.count)
الحادي عشر = 1
لكل xChk في xChks
xChk. حدد
Selection.OnAction = "ObjChkChange"
التالى
نهاية الفرعية


تغيير ObjChk الفرعي ()
خافت xChk باسم CheckBox
قم بتعيين xChk = ActiveSheet.CheckBoxes (Application.Caller)
مع xChk.TopLeftCell. Offset (، 1)
إذا كانت xChk.Value = xlOff ثم
.Value = ""
آخر
.Value = التاريخ
إنهاء حالة
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أحصل على طابع التاريخ ليتم عرضه تحت خانة الاختيار الخاصة بي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا! لا أستطيع أن أجد طريقة يكون فيها طابع التاريخ على جانب خانة الاختيار. حاولت تغيير قيمة الإزاحة من 0 و 1 و -1. هل يمكنك مساعدتي في هذا؟ شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لنفترض أن خانة الاختيار الخاصة بك موجودة في A2 وتريد إخراج طابع التاريخ على الجانب الأيمن من مربع الاختيار (في هذه الحالة يكون B2) ، يرجى تغيير قيمة الإزاحة إلى Offset (1 ، 1).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت VBA للطابع الزمني لمربع الاختيار ، لكن أول خليتين لا تعملان بشكل صحيح. خانة الاختيار الأولى الخاصة بي موجودة في A2 ، عندما أقوم بتحديد المربع ، يتم نشر الوقت في B1. كيف يمكنني حل هذه المشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ستيف،
يرجى استبدال السطر الرابع في الكود بـ xChk.TopLeftCell.Offset (1، 1).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكراً جزيلاً!! باهِر! شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكنني تكرار الكود لتضمين جميع مربعات الاختيار في العمود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
إذا كان هناك الكثير من مربعات الاختيار في الصفوف وتريد العمل على جميع خانات الاختيار في نفس الوقت ، يمكن أن يساعدك رمز VBA أدناه.
يرجى نسخ الرموز أدناه في نافذة كود الوحدة النمطية ، والعودة إلى ورقة العمل وإنشاء زر (مثل زر (التحكم في النموذج)) ، وتعيين الماكرو SetAllChkChange () إلى الزر ، ثم انقر فوق الزر لتشغيل الكود.

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

المجموعة الفرعية
'تم التحديث بواسطة Extendoffice 20211130
خافت xChks
خافت xChk باسم CheckBox
على خطأ استئناف التالي
قم بتعيين xChks = ActiveSheet.CheckBoxes
لكل xChk في xChks
xChk. حدد
Selection.OnAction = "ObjChkChange"
التالى
نهاية الفرعية

تغيير ObjChk الفرعي ()
خافت xChk باسم CheckBox
قم بتعيين xChk = ActiveSheet.CheckBoxes (Application.Caller)
مع xChk.TopLeftCell. Offset (، 1)
إذا كانت xChk.Value = xlOff ثم
.Value = ""
آخر
.Value = التاريخ
إنهاء حالة
انتهت ب
نهاية الفرعية
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL