تثبيت تاريخ اليوم

[السيوي]

لدي برنامج اضع فيه بيانات مثل الايرادات وتاريخ الايراد والمصروفات وتاريخ الصرف

هل ممكن عند وضع المبلغ في الخلية a1 يقوم الاكسل بوضع تاريخ اليوم في الخلية b1 بحيث الاتتغير تلقائيا عند كل تشغيل

وجزاكم الله خير

[helmy_foad]

يمكنك وضع هذا الكود فى ال sheet

و ستكون خانة التاريخ هى خانات العمود b

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then
 If Range("B" & Target.Row) <> Now Then Range("B" & Target.Row) = Now
End If
End Sub

الحقيقة هذا الكود أخذتة من أحد مواضيع المنتدى ، و لكن لا أذكر من صاحبة

فأنا أحتفظ بكمية كبيرة من الأكواد فى ملف خاص بذلك

و لدى أيضاً ملف خاص بأحد مشرفين المنتدى أيضاً بة دالة أخرى

أنظر المرفق

__________________.zip

تم تعديل سبتمبر 15, 2006 بواسطه هادى سالم