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

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

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

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


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

يمكنك تشغيل رمز 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 يومًا.
علامة تبويب kte 201905

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

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

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

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

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

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

ورقة عمل فرعية خاصة تغيير (هدف 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)
إذا لم يتقاطع (الهدف ، النطاق ("A1: a1000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = التاريخ
إنهاء حالة

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

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

ورقة عمل فرعية خاصة تغيير (هدف 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 = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بنسخ ولصق الكود أثناء تحديث النطاق ولم يعمل :-(


Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("B4: B100")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الآن ()
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
الكود يعمل بشكل جيد في حالتي. هل يمكنك إخباري بإصدار Office الخاص بك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، الكود الذي قدمته يعمل بشكل رائع. أشعر بالفضول لمعرفة ما إذا كان هناك أي طريقة للحصول على النص "انقر نقرًا مزدوجًا لإضافة التاريخ" في الخلية حتى يتم إدخال التاريخ. شكرًا لك مقدمًا (أحاول أن أجعل وثيقي سهل الاستخدام قدر الإمكان حتى لا يربك زملائي في العمل)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد عمل الكود أعلاه بشكل رائع بالنسبة لي. الآن أنا فقط أتساءل عما إذا كانت هناك طريقة لعرض النص "انقر نقرًا مزدوجًا لإدخال التاريخ" في الخلية حتى يتم إدخال التاريخ. هدفي هو جعل المستند سهل الاستخدام قدر الإمكان. شكرا لكم مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ترافيس ،
لا يمكننا تعديل الكود لعرض النص في الخلية مباشرة. ولكن بدلاً من ذلك ، سيساعد الرمز المحسّن أدناه في عرض النص في تعليق الخلية ، وستتم إزالة التعليق تلقائيًا بعد النقر المزدوج على الخلية لإدخال التاريخ.

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

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

لقد قمت بنسخ الكود أعلاه ولصقه تمامًا كما هو مكتوب في مصنف فارغ ، ومع ذلك ، فإنه لا يعمل بالنسبة لي. لقد نظرت إلى مصادر مختلفة على الويب ومعظم المواقع لها تنسيق مشابه لما هو مكتوب أعلاه. أعتقد أنه ربما كان هناك خطأ ما في VBA الخاص بي أو لم يتم تشغيل بعض الإعدادات. سيكون موضع تقدير أي نصيحة. أقوم بتشغيل Excel لـ Office 365 MSO (16.0.11001.20097) 32 بت على Windows 10.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحب الرمز وهو يعمل بشكل رائع. كيف يمكنني القيام بذلك عند النقر المزدوج لتنفيذ الكود وقت عرضه في الوقت العسكري؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديلان ،
آسف لا أستطيع مساعدتك في ذلك حتى الآن. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعتقد أنه إذا حددت تنسيق الوقت العسكري لتلك الخلية من التنسيق -> الرقم -> خيارات الوقت في الورقة التي يجب أن تعمل. على سبيل المثال ، فإنه يوفر خيار 1:30 مساءً أو 13:30 ، لذلك عليك فقط تحديد 13:30 وهذا يجب أن يفعل ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعتقد أنه إذا حددت فقط تنسيق التوقيت العسكري لتلك الخلية من الرقم -> خيارات تنسيق الوقت التي يجب أن تفعل ذلك. على سبيل المثال ، قد تختار 13:30 بدلاً من 1:30 مساءً ، ومن ثم يجب أن يتم عرضها في التوقيت العسكري.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعرف أي شخص ما إذا كانت هناك طريقة لإدراج هذا الرمز في Excel Online؟ لقد استخدمته مع إصدار سطح المكتب وعمل بشكل رائع ولكن الآن قمنا بترحيل كل شيء إلى النظام الأساسي عبر الإنترنت واختفت طوابع التاريخ والوقت الخاصة بي عند النقر المزدوج ولا يمكنني معرفة كيفية عرض الكود أو تحريره. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لذلك قمت بإدخال الكود وهو يعمل بشكل رائع على عدة أوراق في دفتر العمل الخاص بي ، ولكن في بعض الأوراق يتوقف فجأة عن العمل بعد صف معين على الرغم من إدخال النطاق الصحيح. أي أفكار حول سبب حدوث ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان هذا فقط ما كنت أبحث عنه - وهذا يوفر الكثير من الوقت وأنا أقدر التعليمات المكتوبة جيدًا. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بكم ، لقد ساعدني الرمز كثيرًا ، كيف يمكنني تقييد الرمز للعمل فقط إذا كان الحقل فارغًا. إذا كان هناك تاريخ موجود بالفعل في الخلية ، فيجب ألا يؤدي النقر المزدوج إلى أي شيء ، مع التحيات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا احمد ،
اسف على المشاكل. لملء الخلايا الفارغة فقط بالتواريخ بالنقر المزدوج ، يمكنك تطبيق كود فبا التالي لإنجازه.
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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذه الوظيفة لا تعمل. يؤدي النقر المزدوج إلى إدخال التحرير اليدوي للخلية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بوب،
الكود يعمل بشكل جيد في حالتي. أحتاج إلى معرفة المزيد حول مشكلتك ، مثل إصدار Excel الخاص بك.
ويعمل الرمز فقط على الخلايا التي حددتها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اهلا بالجميع،

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

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

رمز بلدي :


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

Sub Worksheet_BeforeDoubleClick (ByVal Target كنطاق ، إلغاء كـ Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("F1: F10000")) لا شيء إذن
إلغاء = صحيح
الهدف. الصيغة = الآن ()
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا لويس ،
سيؤدي إجراء نسخ متماثل للماكرو إلى إجراءين متشابهين بنفس الاسم في نافذة التعليمات البرمجية للورقة الواحدة. لا يسمح 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   الشخصيات
المواقع المقترحة

تواصل معنا

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