كيفية إضافة التاريخ والوقت تلقائيًا للتعليق في إكسيل؟

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

أضف التاريخ والوقت يدويًا للتعليق باستخدام مفاتيح الاختصار

إضافة التاريخ والوقت تلقائيًا للتعليق برمز VBA

أضف التاريخ والوقت يدويًا للتعليق باستخدام مفاتيح الاختصار

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

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

2. بعد إدخال التعليق ، في مربع التعليق ، اضغط على Ctrl + ؛ لإدراج التاريخ الحالي ، واكتب مسافة ، ثم اضغط كترل + شيفت +؛ لإدراج الوقت الحالي ، تمت إضافة البيانات الحالية والوقت إلى التعليق دفعة واحدة ، انظر الصورة:

3. وبعد ذلك يمكنك تعديل تعليقك حسب حاجتك.

إضافة التاريخ والوقت تلقائيًا للتعليق برمز VBA

إذا لم تكن معتادًا على مفاتيح الاختصار ، فلا تقلق ، هنا ، يمكنني التحدث عن رمز VBA لمساعدتك في إدخال التاريخ والوقت تلقائيًا.

1. حدد الخلية التي تريد إدراج التعليق.

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: إضافة التاريخ والوقت التلقائي للتعليق

Sub DatedComment()
'Update 20141110
Dim pComment As Comment
Dim WorkRng As Range
Set WorkRng = Application.ActiveCell
Set pComment = WorkRng.AddComment(Application.UserName & ":" & vbLf & Now & vbLf)
pComment.Shape.TextFrame.Characters(1, VBA.Len(Application.UserName) + 1).Font.Bold = True
End Sub

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيتم إدراج تعليق في الخلية المحددة مع التاريخ والوقت تلقائيًا ، ويمكنك تعديل التعليق حسب حاجتك ، انظر الصورة:

معلومه- سرية: لا يمكن أن يعمل VBA هذا إذا تم بالفعل إدراج الخلية المحددة في التعليق من قبل.

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

كيفية إعادة تعيين جميع مواقف التعليقات في إكسيل؟

كيفية تمييز جميع الخلايا مع التعليقات في Excel؟