كود لتسجيل العمليه بتاريخ يومى

[dozens]

المطلوب داخل المرفق يرجى المطلوب مع ((((((( الشرح )))))))))...........

New folder (3).zip

[أبو حنــــين]

مثال

مثال2.rar

[أبو حنــــين]

الشرح

Private Sub Worksheet_Change(ByVal Target As Range)

'-------------------------------------------------------------------------

' اذا كان الحدث موجود في العمود الرابع فإنه يقوم بالتالي

If Target.Column = 4 Then

'-------------------------------------------------------------------------

'-------------------------------------------------------------------------

'اذاكانت الخلية الحالية غير خالية

If Target.Value <> "" Then

'-------------------------------------------------------------------------

'-------------------------------------------------------------------------

' يكتب التاريخ في الخلية التي في يمينها مباشرة

Target.Offset(0, 1) = Date

'-------------------------------------------------------------------------

'-------------------------------------------------------------------------

' و إلا

Else

'-------------------------------------------------------------------------

'-------------------------------------------------------------------------

' و إلا يقوم بمسح هذه الخلية

Target.Offset(0, 1) = ""

'-------------------------------------------------------------------------


End If

End If

End Sub

[dozens]

تمام بس انا عايز يكون على كل عواميد التاريخ

اى عند الكتابه فى اى عمود سداد يتم

التسجيل ف عمود التاريخ الذى يليه

تم تعديل أكتوبر 9, 2012 بواسطه kalkol

[عبدالله المجرب]

السلام عليكم

استخدم هذاالكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [D2:OI1000]) Is Nothing Then

If Not IsEmpty(Target) And Cells(1, Target.Column).Value = "السداد" Then Target.Offset(0, 1) = Date

End If

End Sub

[dozens]

فى خطاء يا استاذ عبدالله فى الكود

[dozens]

فى السطر If Not Intersect(Target, [D2:OI1000]) Is Nothing Then

[أبو حنــــين]

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

For t = 4 To 249 Step 2

If Target.Column = t Then Target.Offset(0, 1).Value = Date

Next

If IsEmpty(Target.Value) Then Target.Offset(0, 1).Value = Empty

End Sub

[dozens]

ألف ألف شكر هذا هو المطلوب يا استاذ ابو حنين ممكن الشرح

تم تعديل أكتوبر 9, 2012 بواسطه kalkol

[أبو حنــــين]

هذا شرح في عجاله و ان لم يكن واضحا سأعيده بعد ساعة لظرف خاص

Private Sub Worksheet_Change(ByVal Target As Range)

' حلقة تكرار تتكرر تكرار زوجي

' Step 2  بمعني عندما نقول

' ينتقل المؤشر بالاعداد مثلا 2 ثم 4 ثم 6 ثم 8 و هكذا


' Step 3  بمعني عندما نقول

' ينتقل المؤشر بالاعداد مثلا 3 ثم 6 ثم 9 ثم 12 و هكذا

For t = 4 To 249 Step 2


'  t  اذا كان العمود الموافق للارقام التي اخترناها مسبقا و التي يمثلها الحرف

'فانه يكتب في الخلية اليمنى للخلية النشطة يكتب تاريخ اليوم

If Target.Column = t Then Target.Offset(0, 1).Value = Date

Next

' اذا كانت الخلية النشطة في هذا العمود فارغة  يترك خانة التاريخ فارغة

If IsEmpty(Target.Value) Then Target.Offset(0, 1).Value = Empty

End Sub