كيفية إضافة / إدخال التاريخ / الوقت الحالي تلقائيًا في خلية بالنقر المزدوج في Excel؟

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

انقر نقرًا مزدوجًا لإضافة / إدخال التاريخ الحالي أو تاريخ الوقت تلقائيًا مع رمز VBA

انقر نقرًا مزدوجًا لإضافة / إدخال التاريخ الحالي أو تاريخ الوقت تلقائيًا مع رمز VBA

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

يمكنك تشغيل رمز VBA أدناه لإضافة التاريخ الحالي أو وقت التاريخ تلقائيًا في خلية بالنقر المزدوج. الرجاء القيام بما يلي.

1. انقر بزر الماوس الأيمن فوق علامة التبويب "ورقة" التي تريد إدراج التاريخ الحالي في الخلايا المحددة ، ثم حدد عرض الرمز من قائمة النقر بزر الماوس الأيمن.

2. في ال Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق رمز فبا أدناه في نافذة التعليمات البرمجية.

رمز فبا: انقر نقرًا مزدوجًا لإضافة التاريخ الحالي إلى خلية

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

ملاحظة:

1. في الكود ، A1: B10 هو النطاق الذي ستضيف التاريخ الحالي إليه.

2. إذا كنت بحاجة إلى إضافة وقت التاريخ الحالي في الخلية ، فيرجى استبداله التاريخ دوامة الآن() في الكود. يمكنك تغييرها كما تريد.

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

من الآن فصاعدًا ، عند النقر المزدوج فوق أي خلية في النطاق المحدد A1: B10. سيتم إدخال التاريخ الحالي أو تاريخ الوقت تلقائيًا.

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (28)

لا يوجد تقييم. كن أول من يقيم!

جويل

منذ حوالي 5 سنوات

#20884

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف يمكننا توسيع هذا لإضافة المزيد من نطاق الخلايا؟ لقد أضفت هذه الخلية الإضافية التي تراوحت إلى الشفرة: (الهدف ، النطاق ("C10: C19" ، "D10: D19" ، "E10: E19")) ومع ذلك فهي تعطيني خطأ تجميع يقول "عدد خاطئ من الوسائط أو تعيينات خاصية غير صالحة "ثم يبرز السطر الأول من التعليمات البرمجية التي قدمتها" Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range ، Cancel As Boolean) "الرجاء مساعدتي.

رد

نيك جويل

منذ حوالي 5 سنوات

#20885

تم تصغير هذا التعليق بواسطة المشرف على الموقع

جويل ، لا تعرف ما إذا كنت لا تزال تبحث عن حل ، ولكن عليك تغيير الكود الخاص بك:

من: (الهدف، النطاق ("C10: C19"، "D10: D19"، "E10: E19"))
إلى: (الهدف، النطاق ("C10: C19، D10: D19، E10: E19"))

هذا سوف يفعل ذلك من أجلك.

رد

أتيلا نيك

منذ حوالي 5 سنوات

#20886

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا نيك،
أود الحصول على بعض النصائح منك حول هذا الموضوع ....
لدي ملف أسميه "ورقة الإنتاجية" .... في هذه الورقة ، أود إدراج الوقت الفعلي ، في الخلايا المحددة ، عند النقر فوق الخلية ... (إذا أمكن ، أود هذه الخلايا بعد أن يبدو أن الوقت أصبح غير قابل للتغيير ..... شيء يشبه القفل.)
أنا أقدر وقتك وشكرا مقدما
أتيلا ، المجر
exyzee@gmail.com

رد

كريستال أتيلا

منذ حوالي 5 سنوات

#20887

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
Application.ScreenUpdating = خطأ
إذا لم يتقاطع (الهدف ، النطاق ("A1: B10")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = التاريخ
إنهاء حالة
نهاية الفرعية

رد

بلغ

بول

منذ حوالي 5 سنوات

#23478

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رمز الحماية المستخدم أدناه:

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
خافت xRg كمدى
على خطأ استئناف التالي
عيّن xRg = Intersect (النطاق ("A1: a1000 ، b1: b1000 ، G1: G1000") ، الهدف)
إذا كان xRg لا شيء ، فاخرج من Sub
Target.Worksheet.Unprotect Password: = "123"
xRg.Locked = صحيح
Target.Worksheet.Protect Password: = "123"
نهاية الفرعية

رد

كريستال بول

منذ حوالي 4 سنوات

#23479

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

بلغ

كريستال بول

منذ حوالي 4 سنوات

#23480

تم تصغير هذا التعليق بواسطة المشرف على الموقع

آسف فهمت وجهة نظرك. (فات الرمز أعلاه)

رد

بلغ

بول

منذ حوالي 5 سنوات

#23483

تم تصغير هذا التعليق بواسطة المشرف على الموقع

رمز الدخول المزدوج الذي تم إنشاؤه هو:

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("A1: a1000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = التاريخ
إنهاء حالة

إذا لم يتقاطع (الهدف ، النطاق ("b1: b1000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الوقت
إنهاء حالة

إذا لم يتقاطع (الهدف ، النطاق ("g1: g1000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الوقت
إنهاء حالة
نهاية الفرعية

رد

كريستال بول

منذ حوالي 4 سنوات

#23484

تم تصغير هذا التعليق بواسطة المشرف على الموقع

عزيزي بول،
يرجى تجربة كود فبا التالي.

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
خافت xRg كمدى
على خطأ استئناف التالي
عيّن xRg = Intersect (النطاق ("A1: a1000 ، b1: b1000 ، G1: G1000") ، الهدف)
إذا كان xRg لا شيء ، فاخرج من Sub
Target.Worksheet.Unprotect Password: = "123"
xRg.Locked = صحيح
Target.Worksheet.Protect Password: = "123"
نهاية الفرعية

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
Application.EnableEvents = خطأ
ActiveSheet.Unprotect Password: = "123"
إذا لم يتقاطع (الهدف ، النطاق ("A1: a1000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = التاريخ
إنهاء حالة
إذا لم يتقاطع (الهدف ، النطاق ("b1: b1000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الوقت
إنهاء حالة
إذا لم يتقاطع (الهدف ، النطاق ("g1: g1000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الوقت
إنهاء حالة
كلمة مرور ActiveSheet.Protect: = "123"
Application.EnableEvents = صحيح
نهاية الفرعية

رد

بلغ

دري

منذ حوالي 4 سنوات

#24772

تم تصغير هذا التعليق بواسطة المشرف على الموقع

لقد قمت بنسخ ولصق الكود أثناء تحديث النطاق ولم يعمل :-(

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("B4: B100")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الآن ()
إنهاء حالة
نهاية الفرعية

رد

كريستال دري

منذ حوالي 4 سنوات

#24773

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يوم جيد،
الكود يعمل بشكل جيد في حالتي. هل يمكنك إخباري بإصدار Office الخاص بك؟

رد

بلغ

شاي

منذ حوالي 4 سنوات

#25590

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، الكود الذي قدمته يعمل بشكل رائع. أشعر بالفضول لمعرفة ما إذا كان هناك أي طريقة للحصول على النص "انقر نقرًا مزدوجًا لإضافة التاريخ" في الخلية حتى يتم إدخال التاريخ. شكرًا لك مقدمًا (أحاول أن أجعل وثيقي سهل الاستخدام قدر الإمكان حتى لا يربك زملائي في العمل)

رد

ترافيس

منذ حوالي 4 سنوات

#25591

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

بلغ

كريستال ترافيس

منذ حوالي 4 سنوات

#25592

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
إذا لم يتقاطع (الهدف ، النطاق ("A1: B10")) لا شيء إذن
Target.NoteText "انقر نقرًا مزدوجًا لإضافة التاريخ"
إنهاء حالة
نهاية الفرعية

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("A1: B10")) لا شيء إذن
إلغاء = صحيح
الهدف. التعليق. الحذف
الهدف. الصيغة = التاريخ
إنهاء حالة
نهاية الفرعية

رد

بلغ

اكثر شئ

منذ حوالي 4 سنوات

#27152

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا هناك،

لقد قمت بنسخ الكود أعلاه ولصقه تمامًا كما هو مكتوب في مصنف فارغ ، ومع ذلك ، فإنه لا يعمل بالنسبة لي. لقد نظرت إلى مصادر مختلفة على الويب ومعظم المواقع لها تنسيق مشابه لما هو مكتوب أعلاه. أعتقد أنه ربما كان هناك خطأ ما في VBA الخاص بي أو لم يتم تشغيل بعض الإعدادات. سيكون موضع تقدير أي نصيحة. أقوم بتشغيل Excel لـ Office 365 MSO (16.0.11001.20097) 32 بت على Windows 10.

رد

ديلان

منذ حوالي 3 سنوات

#30120

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أحب الرمز وهو يعمل بشكل رائع. كيف يمكنني القيام بذلك عند النقر المزدوج لتنفيذ الكود وقت عرضه في الوقت العسكري؟

رد

كريستال ديلان

منذ حوالي 3 سنوات

#30121

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا ديلان ،
آسف لا أستطيع مساعدتك في ذلك حتى الآن. شكرا لك على تعليقك.

رد

بلغ

خلنج نبات ديلان

منذ حوالي 3 سنوات

#30122

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أعتقد أنه إذا حددت تنسيق الوقت العسكري لتلك الخلية من التنسيق -> الرقم -> خيارات الوقت في الورقة التي يجب أن تعمل. على سبيل المثال ، فإنه يوفر خيار 1:30 مساءً أو 13:30 ، لذلك عليك فقط تحديد 13:30 وهذا يجب أن يفعل ذلك.

رد

خلنج نبات ديلان

منذ حوالي 3 سنوات

#30123

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أعتقد أنه إذا حددت فقط تنسيق التوقيت العسكري لتلك الخلية من الرقم -> خيارات تنسيق الوقت التي يجب أن تفعل ذلك. على سبيل المثال ، قد تختار 13:30 بدلاً من 1:30 مساءً ، ومن ثم يجب أن يتم عرضها في التوقيت العسكري.

رد

بلغ

خلنج نبات

منذ حوالي 3 سنوات

#30720

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل يعرف أي شخص ما إذا كانت هناك طريقة لإدراج هذا الرمز في Excel Online؟ لقد استخدمته مع إصدار سطح المكتب وعمل بشكل رائع ولكن الآن قمنا بترحيل كل شيء إلى النظام الأساسي عبر الإنترنت واختفت طوابع التاريخ والوقت الخاصة بي عند النقر المزدوج ولا يمكنني معرفة كيفية عرض الكود أو تحريره. شكرًا.

رد

بلغ

لي هويمان

منذ حوالي 3 سنوات

#31773

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

جو

منذ حوالي 2 سنوات

#32665

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كان هذا فقط ما كنت أبحث عنه - وهذا يوفر الكثير من الوقت وأنا أقدر التعليمات المكتوبة جيدًا. شكرًا لك!

رد

أحمد

منذ حوالي 8 أشهر

#38235

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

كريستال أحمد

منذ حوالي 8 أشهر

#38368

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا احمد ،
اسف على المشاكل. لملء الخلايا الفارغة فقط بالتواريخ بالنقر المزدوج ، يمكنك تطبيق كود فبا التالي لإنجازه.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub

رد

بلغ

بوب

منذ حوالي 8 أشهر

#38392

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هذه الوظيفة لا تعمل. يؤدي النقر المزدوج إلى إدخال التحرير اليدوي للخلية.

رد

كريستال بوب

منذ حوالي 7 أشهر

#38499

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا بوب،
الكود يعمل بشكل جيد في حالتي. أحتاج إلى معرفة المزيد حول مشكلتك ، مثل إصدار Excel الخاص بك.
ويعمل الرمز فقط على الخلايا التي حددتها.

رد

بلغ

لويس

منذ حوالي 3 أشهر

#40831

تم تصغير هذا التعليق بواسطة المشرف على الموقع

اهلا بالجميع،

أحاول استخدام هذا الماكرو لاستخدام ختم التاريخ بالنقر المزدوج على العمود E وهو يعمل ولكن عندما أحاول تكرار الماكرو لفعل الشيء نفسه ولكن في الوقت الحالي في العمود F ، فإنه لا يعمل كما ترى مرفقًا لدي رسالة خطأ تفيد: تم اكتشاف اسم غامض.
عندما أحاول تغيير جزء ورقة العمل الفرعية لاسم آخر وانقر نقرًا مزدوجًا في الخلايا ، فلن يحدث شيء.

هل يمكن لأحد أن يساعدني في ذلك؟

رمز بلدي :

Sub Worksheet_BeforeDoubleClick (ByVal Target كنطاق ، إلغاء كـ Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("E1: E10000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = التاريخ
إنهاء حالة
نهاية الفرعية

Sub Worksheet_BeforeDoubleClick (ByVal Target كنطاق ، إلغاء كـ Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("F1: F10000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الآن ()
إنهاء حالة
نهاية الفرعية

عرض المرفقات (1 / 5)

رد

بلغ

كريستال لويس

منذ حوالي 3 أشهر

#40869

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

رد

بلغ

لا توجد تعليقات منشورة هنا حتى الآن

اترك تعليقاتك

النشر كضيف

الدخول

الاسم (مطلوب)

البريد الإلكتروني (مطلوب)

قيم المنشور:

إعادة تعيين

0 الشخصيات

أنا أوافق على أحكام وشروط