ما هو الكود ليتم كتابة التاريخ والوقت بشكل آلي

[أبو عادل]

السلام عليكم ورحمة الله وبركاته

عندما أكتب رقم 1 في A2 مثلاً هل يمكن ان يدرج وقت وتاريخ الكتابة في الخلايا المعنية بالملف المرفق

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

______________.rar

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 5) = Time(): Target.Offset(0, 6) = Date
Application.EnableEvents = True
End Sub

1234.rar

تم تعديل يونيو 20, 2009 بواسطه ابو اسامة العينبوسي

[سمير نجار]

السلام عليكم ورحمة الله وبركاته

اخي mfawaz

ارجو قبول مشاركتي البسيطة مع وجود العمالقة امثال ابو اسامة وغيره

السلام عليكم

11.rar

[ابو اسامة العينبوسي]

السلام عليكم

الاخ smanj00

لكن عند الادخال الجديد كل الخلايا ستاخذ اخر وقت تم التعديل فيه

هذ مشكلة الدالة now()

لذلك استخدمنا الكود بدل الدالة

[سمير نجار]

السلام عليكم ورحمة الله وبركاته

استاذي الكريم ابو اسامة

بارك الله فيك وشكرا"لك على هذا التوضيح

ومنكم نستفيد

السلام عليكم

[خالد القدس]

السلام عليكم

لله درك با أبو اسامة

شغل مضبوط مئة المائة

[أبو عادل]

السلام عليكم اخي ابو أسامة ( شيخ الشباب )

جزاك الله كل خير على مشاركتك القيمة

[أبو عادل]

جزاك الله كل خير أخي samnaj00 على مشاركتك

[أبو عادل]

الأخ خالد القدس

أكرمك الله على المشاركة ونحن نؤكد بأن الأستاذ أبو أسامة هو مرجع عتيد

ودائماً نراه في المواقف والمشاركات الصعبة

تسل ويسلم جميع الأساتذة الكرام

[قصي]

الاح محمد فوار

شكرا لمشاركاتك الطيبة

هل يوجد عندك ملف يساغد العرف

في ان عدد الحصص في اليوم 8

ويوم الاجازة السبت مش الخميس

ولك شكري

[أحمد عبدالعزيز]

[size="6]ألف شكر على هذا العمل الرائع والممتاز

وفقكم الله

[محمدي عبد السميع]

شكرا لكم

تم تعديل يونيو 24, 2009 بواسطه mohammadey1