أدخل التاريخ والطابع الزمني في Excel بسرعة وبشكل تلقائي

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

أدخل التاريخ والطابع الزمني مع الاختصارات

أدخل التاريخ والطابع الزمني مع الصيغة

صيغة لإدراج الطابع الزمني تلقائيًا أثناء إدخال البيانات في عمود آخر

VBA لإدراج الطابع الزمني تلقائيًا أثناء إدخال البيانات في عمود آخر

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

أدخل التاريخ الحالي: مراقبة + :

أدخل الوقت الحالي: تغير + مراقبة + :

انظر لقطة الشاشة:

نصيحة:

1. يمكنك تنسيق النواتج على هيئة تنسيقات التاريخ أو تنسيقات الوقت التي تريدها تنسيق الخلايا الحوار.

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

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

أدخل التاريخ الحالي

= اليوم ()

صحافة أدخل مفتاح ، ويتم إدراج التاريخ الحالي في الخلية.

أدخل الوقت الحالي ：

= الآن ()

اضغط على مفتاح Enter ، ويتم إدراج التاريخ والوقت الحاليين في الخلية.

نصيحة:

1. يمكنك تنسيق النواتج على هيئة تنسيقات التاريخ أو تنسيقات الوقت التي تريدها تنسيق الخلايا الحوار. على سبيل المثال ، تريد فقط عرض الوقت الحالي ، ما عليك سوى تنسيق الخلية كـ Time بعد استخدام ملف = الآن () معادلة

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

لنفترض أن هناك عمودين ، العمود A والعمود B ، الآن تريد إدراج الطابع الزمني الحالي في العمود B أثناء إدخال البيانات في العمود A ، كيف يمكنك القيام بذلك؟

إدراج الطابع الزمني تلقائيًا أثناء إدخال البيانات

1. أولاً ، انقر فوق قم بتقديم > مزيد من الخيارات لفتح خيارات إكسيل الحوار، اختر الصيغ في الجزء الأيمن ، ثم تحقق تفعيل الحساب التكراري in خيارات الحساب مجموعة. وانقر OK.

2. في العمود B ، على سبيل المثال ، الخلية B1 ، اكتب هذه الصيغة

= IF (A1 <> ""، IF (B1 <> ""، B1، NOW ())، "")

ثم اسحب مقبض التعبئة التلقائية لأسفل إلى الخلايا.

3. ثم قم بتنسيق خلايا الصيغة بتنسيق datetime كما تريد في ملف تنسيق الخلايا الحوار: احتفظ بخلايا الصيغة محددة ، انقر بزر الماوس الأيمن لعرض قائمة السياق ، واختر تنسيق الخلايا، ثم تنسيق الخلايا ينبثق الحوار ، في Custom القسم الذي تحت رقم الهاتف ، اكتب التنسيق الذي تريده في ملف النوع مربع النص ، وانقر فوق OK.

الآن عند إدخال البيانات في العمود A ، سيتم إدراج التاريخ والوقت الحالي في العمود B.

الإدراج التلقائي وتحديث الطابع الزمني أثناء تغيير الخلية في عمود آخر

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

=IF(A1<>"",IF(AND(B1<>"",CELL("address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),"")

A1 هي الخلية التي ستدخل البيانات ، B1 هي خلية الصيغة التي تريد إدراج طابع زمني.

اسحب مقبض التعبئة التلقائية إلى أسفل الخلايا التي تستخدمها.

ثم قم بتنسيق خلايا الصيغة بتنسيق datetime كما تريد في ملف تنسيق الخلايا الحوار: احتفظ بخلايا الصيغة محددة ، انقر بزر الماوس الأيمن لعرض قائمة السياق ، واختر تنسيق الخلايا، ثم تنسيق الخلايا ينبثق الحوار ، في Custom القسم الذي تحت رقم الهاتف ، اكتب التنسيق الذي تريده في ملف النوع مربع نص ، انقر فوق OK.

إذا كنت معتادًا على كود VBA ، فيمكنك القيام بما يلي:

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

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

فبا: إدراج الطابع الزمني التلقائي

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

3. ثم احفظ هذا الرمز. من الآن فصاعدًا ، ما دمت تُدخل البيانات أو تغير البيانات في العمود A ، سيتم إدراج الطابع الزمني الجديد في العمود B.

ملاحظات: يمكنك تغيير العمود A و B وتنسيق الوقت mm / dd / yyyy hh: mm: ss في كود VBA ليلائم حاجتك الحقيقية.

إذا كنت تريد استخدام الوظيفة المحددة ، فيمكنك القيام بما يلي:

1. معلق ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. وانقر إدراج > وحدة لإدراج وحدة فارغة.

2. الصق الكود التالي للوحدة الجديدة. ثم احفظ الكود وارجع إلى ورقة العمل.

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

3. في الخلية التي سيتم إدراج الطابع الزمني ، اكتب هذه الصيغة

= FormatDate (F1)

F1 هي الخلية التي ستقوم بإدخال البيانات أو تغييرها. ثم اسحب مقبض التعبئة التلقائية لأسفل إلى الخلايا.

الآن سيتم إدراج التاريخ والوقت الحالي إذا أدخلت الخلية F1 بيانات أو تم تحديثها.

---

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

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

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

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء... 

---

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

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

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء...