dozens قام بنشر أكتوبر 9, 2012 قام بنشر أكتوبر 9, 2012 المطلوب داخل المرفق يرجى المطلوب مع ((((((( الشرح )))))))))........... New folder (3).zip
أبو حنــــين قام بنشر أكتوبر 9, 2012 قام بنشر أكتوبر 9, 2012 الشرح 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 الكاتب قام بنشر أكتوبر 9, 2012 (معدل) تمام بس انا عايز يكون على كل عواميد التاريخ اى عند الكتابه فى اى عمود سداد يتم التسجيل ف عمود التاريخ الذى يليه تم تعديل أكتوبر 9, 2012 بواسطه kalkol
عبدالله المجرب قام بنشر أكتوبر 9, 2012 قام بنشر أكتوبر 9, 2012 السلام عليكم استخدم هذاالكود 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 قام بنشر أكتوبر 9, 2012 الكاتب قام بنشر أكتوبر 9, 2012 فى السطر If Not Intersect(Target, [D2:OI1000]) Is Nothing Then
أبو حنــــين قام بنشر أكتوبر 9, 2012 قام بنشر أكتوبر 9, 2012 جرب هذا الكود 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 الكاتب قام بنشر أكتوبر 9, 2012 (معدل) ألف ألف شكر هذا هو المطلوب يا استاذ ابو حنين ممكن الشرح تم تعديل أكتوبر 9, 2012 بواسطه kalkol
أبو حنــــين قام بنشر أكتوبر 9, 2012 قام بنشر أكتوبر 9, 2012 هذا شرح في عجاله و ان لم يكن واضحا سأعيده بعد ساعة لظرف خاص 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
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان