عليكم السلام ورحمة الله وبركاته
يمكنك اضافة الماكرو التالى لورقة العمل بالضغط على الزر الايمن على أسم ورقة العمل المطلوبه و اختار View Code ثم اضافة الكود التالى
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Val(Target.Value) > 0 Then
Target.Offset(0, 1).Value = Now()
Else
Target.Offset(0, 1).Clear
End If
End If
End Sub
وهو يتم استدعاءة عند تغيير قيمة اى خلية فى ورقة العمل ويقوم بالتأكد من رقم العمود الذي قمت بتغير خلية واذا كان العمود رقم 3 وقيمة الخلية اكبر من صفر يتم إضافة التاريخ الان الى الخلية المجاورة
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
