كيفية إدراج الطابع الزمني الحالي عندما تتغير البيانات في خلية أخرى في Excel؟
لنفترض أنك تلقيت ورقة عمل تتطلب منك تعديل البيانات في عمود معين. وبعد تعديل ورقة العمل ، تحتاج إلى إدراج الطابع الزمني المعدل للسماح للآخرين بمعرفة الخلايا التي تم تغييرها. كيفية التعامل معها؟ ستوضح لك هذه المقالة طريقة إدخال الطابع الزمني الحالي عندما تتغير البيانات في خلية أخرى في Excel كما هو موضح أدناه.
أدخل الطابع الزمني الحالي عندما تتغير البيانات الموجودة في خلية أخرى برمز VBA
أدخل الطابع الزمني الحالي عندما تتغير البيانات الموجودة في خلية أخرى برمز VBA
كما هو موضح أدناه ، تحتاج إلى ملء الطابع الزمني في العمود E إذا تم تغيير الخلايا المقابلة في العمود C. الرجاء القيام بما يلي.
1. في ورقة العمل التي تحتاج إلى تعديلها ووضع علامة عليها بالطابع الزمني ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. ثم انسخ والصق كود فبا أدناه في ملف رمز نافذة ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. انظر لقطة الشاشة:
كود فبا: أدخل الطابع الزمني الحالي عندما تتغير البيانات في خلية أخرى
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End Sub
ملاحظات: في الكود ، يعني الرقم 3 أنك ستقوم بتعديل البيانات في العمود C ، ويشير الرقم 5 إلى أن الطابع الزمني سيتم ملؤه في العمود E. يرجى تغييرها بناءً على احتياجاتك.
3. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند تغيير البيانات في العمود C ، سيتم ملء الطابع الزمني في الخلايا المقابلة في العمود E كما هو موضح أدناه لقطة الشاشة.
تلميح. منتقي التاريخ. أدخل التاريخ فائدة كوتولس ل إكسيل يساعدك على إدراج التاريخ بسرعة بتنسيق التاريخ المحدد في خلية محددة.
قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 30 يومًا)
مقالات ذات صلة:
- كيفية إدراج أو عرض آخر طابع زمني محفوظ في ورقة العمل في Excel؟
- كيفية إدراج الطابع الزمني في خلية معينة عند تشغيل الماكرو في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!