كيفية ملء التاريخ تلقائيًا في الخلية عند تحديث الخلية المجاورة في Excel؟

أحيانًا، عند تحديث خلية في عمود معين، قد ترغب في وضع علامة على أحدث تاريخ يتعلق بالتحديث. ستقترح هذه المقالة طريقة باستخدام VBA لحل هذه المشكلة. عندما يتم تحديث الخلية، سيتم ملء الخلية المجاورة بتاريخ اليوم الحالي فورًا.

ملء التاريخ الحالي تلقائيًا في الخلية عند تحديث الخلية المجاورة باستخدام كود VBA

ملء التاريخ الحالي تلقائيًا في الخلية عند تحديث الخلية المجاورة باستخدام كود VBA

لنفترض أن البيانات التي تحتاج إلى تحديثها تقع في العمود B، وعندما يتم تحديث خلية في العمود B، سيتم ملء التاريخ الحالي في الخلية المجاورة في العمود A. انظر لقطة الشاشة:

يمكنك تشغيل كود VBA التالي لحل هذه المشكلة.

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

2. في نافذة Microsoft Visual Basic for Applications، يرجى نسخ ولصق كود VBA أدناه في نافذة الكود.

كود VBA: ملء التاريخ الحالي تلقائيًا في خلية عند تحديث الخلية المجاورة

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

ملاحظات:

3. اضغط على مفتاحي Alt + Q في نفس الوقت لإغلاق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، عند تحديث الخلايا في العمود B، سيتم ملء الخلية المجاورة في العمود A بتاريخ اليوم الحالي فورًا. انظر لقطة الشاشة:

اكتشف سحر Excel مع Kutools AI

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

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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

• كيفية ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في قائمة التصفية في Excel؟
• كيفية الإكمال التلقائي عند الكتابة في قائمة التصفية في Excel؟