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

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

إدراج التاريخ والطابع الزمني باستخدام اختصارات لوحة المفاتيح

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

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

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

---

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

إدراج التاريخ الحالي:Control+:

إدراج الوقت الحالي:Shift+Control+:

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

نصائح:

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

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

---

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

إدراج التاريخ الحالي

=TODAY()

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

إدراج الوقت الحالي：

=NOW()

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

نصائح:

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

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

---

افترض أن لديك عمودين، العمود A والعمود B، وترغب في إدراج الطابع الزمني الحالي تلقائيًا في العمود B كلما أدخلت بيانات في العمود A — فكيف يمكنك تحقيق ذلك؟

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

1. أولًا، انقر علىFile > Options لفتح مربع حوارExcel Options، ثم اخترFormulas في الجزء الأيسر، وفعّل الخيارEnable iterative calculation ضمن مجموعةCalculation options، ثم انقر علىOK.

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

=IF(A1<>«»,IF(B1<>«»,B1,NOW()),«»)

ثم اسحب مقبض الملء التلقائي لأسفل ليشمل الخلايا الأخرى.

3. بعد ذلك، قم بتنسيق خلايا الصيغة بالتنسيق الذي تريده للتاريخ والوقت في مربع حوارتعيين تنسيق الخلية: احتفظ بخلايا الصيغة مُحدَّدة، ثم انقر بزر الماوس الأيمن لعرض قائمة السياق، واخترتعيين تنسيق الخلية. سيظهر بعد ذلك مربع حوارتعيين تنسيق الخلية، فانتقِل إلى تبويبNumber، ثم اختر القسمCustom، وأدخل التنسيق المطلوب في مربع النصType، ثم انقر على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 هي خلية الصيغة التي تريد إدراج الطابع الزمني بها.

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

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

---

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

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

2. بعد ذلك، في نافذةMicrosoft Visual Basic for Applications، الصق الكود التالي.

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

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. بعد ذلك، احفظ هذا الكود. ومن الآن فصاعدًا، سيتم إدراج طابع زمني جديد تلقائيًا في العمود B كلما أدخلت بيانات أو عدّلتَها في العمود A.

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

إذا أردت استخدام دالة معرّفة، فيمكنك القيام بما يلي:

1. اضغط مع الاستمرار على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications، ثم انقر علىInsert > Module لإدراج وحدة نمطية فارغة.

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 أو تحديثها.

---