كيف يتم ملء التاريخ تلقائيًا في الخلية عند تحديث الخلية المجاورة في Excel؟
في بعض الأحيان ، عند تحديث خلية في عمود معين ، قد ترغب في وضع علامة على آخر تاريخ للتحديث. ستوصي هذه المقالة بطريقة VBA لحل هذه المشكلة. عند تحديث الخلية ، سيتم ملء الخلية المجاورة تلقائيًا بالتاريخ الحالي على الفور.
الملء التلقائي للتاريخ الحالي في الخلية عند تحديث الخلية المجاورة برمز VBA
الملء التلقائي للتاريخ الحالي في الخلية عند تحديث الخلية المجاورة برمز VBA
لنفترض أن البيانات التي تحتاجها لتحديث المواقع في العمود B ، وعندما يتم تحديث الخلية في العمود B ، سيتم ملء التاريخ الحالي في الخلية المجاورة للعمود A. انظر لقطة الشاشة:
يمكنك تشغيل كود فبا التالي لحل هذه المشكلة.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريدها لتعبئة التاريخ تلقائيًا استنادًا إلى الخلية المحدثة المجاورة ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. في نافذة Microsoft Visual Basic for Applications ، يرجى نسخ ولصق رمز VBA أدناه في نافذة Code.
كود فبا: الملء التلقائي للتاريخ الحالي في خلية عند تحديث الخلية المجاورة
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. صحافة قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند تحديث الخلايا في العمود B ، سيتم ملء الخلية المجاورة في العمود A بالتاريخ الحالي على الفور. انظر لقطة الشاشة:
مقالات ذات صلة:
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
- كيفية الإكمال التلقائي عند الكتابة في قائمة Excel المنسدلة؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!