dozens قام بنشر أكتوبر 9, 2012 مشاركة قام بنشر أكتوبر 9, 2012 المطلوب داخل المرفق يرجى المطلوب مع ((((((( الشرح )))))))))........... New folder (3).zip رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 9, 2012 مشاركة قام بنشر أكتوبر 9, 2012 مثال مثال2.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 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 رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 9, 2012 الكاتب مشاركة قام بنشر أكتوبر 9, 2012 (معدل) تمام بس انا عايز يكون على كل عواميد التاريخ اى عند الكتابه فى اى عمود سداد يتم التسجيل ف عمود التاريخ الذى يليه تم تعديل أكتوبر 9, 2012 بواسطه kalkol رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 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 رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 9, 2012 الكاتب مشاركة قام بنشر أكتوبر 9, 2012 فى خطاء يا استاذ عبدالله فى الكود رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 9, 2012 الكاتب مشاركة قام بنشر أكتوبر 9, 2012 فى السطر If Not Intersect(Target, [D2:OI1000]) Is Nothing Then رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 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 رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 9, 2012 الكاتب مشاركة قام بنشر أكتوبر 9, 2012 (معدل) ألف ألف شكر هذا هو المطلوب يا استاذ ابو حنين ممكن الشرح تم تعديل أكتوبر 9, 2012 بواسطه kalkol رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.