كيفية إدراج الطابع الزمني الحالي عند تغيير البيانات في خلية أخرى في Excel؟

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

إدراج الطابع الزمني الحالي عند تغيير البيانات في خلية أخرى باستخدام كود VBA

إدراج الطابع الزمني الحالي عند تغيير البيانات في خلية أخرى باستخدام كود VBA

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

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

2. ثم انسخ والصق الكود VBA أدناه في نافذة الكود الخاصة بنافذة Microsoft Visual Basic for Applications. انظر لقطة الشاشة:

كود VBA: إدراج الطابع الزمني الحالي عند تغيير البيانات في خلية أخرى

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. اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، عند تغيير البيانات في العمود C، سيتم ملء الطابع الزمني في الخلايا المقابلة في العمود E كما هو موضح في لقطة الشاشة أدناه.

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

• كيفية إدراج أو عرض الطابع الزمني الأخير الذي تم حفظه في ورقة العمل في Excel؟
• كيفية إدراج الطابع الزمني في خلية معينة عند تشغيل ماكرو في Excel؟