اظهار وقت تعديل على حقل

[وجدي الحاج علي]

السلام عليكم 
لدي جدول من حقلين 
اسم المادة | سعر البيع 
واريد ان اضيف لهم حقل ثالث 
وهو وقت البيع 
بحيث انا يظهر وقت بيع المادة 
 

شكل الجدول المطلوب
اسم المادة  |   سعر البيع |  وقت البيع
ماء                   50            11:12 
خبز                 200           12:25
ارجو الرد السريع

[صلاح الصغير]

تفضل اخى لعله المطلوب

 

تسجيل الساعة والتاريخ فى وقوع الحدث.rar

[سليم حاصبيا]

 اضغط على افضل اجابة

اذا كانت لذلك

enter fix date 1.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي صلاح الصغير

وجزيت خيراً أخي الحبيب

 

تعديل بسيط جداً بحيث عندما يتم مسح محتويات الخلية يتم مسح التاريخ والوقت المرتبط به

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 2 Then
        If IsEmpty(Target) Then
            Cells(Target.Row, 3).Value = ""
            Cells(Target.Row, 4).Value = ""
        Else
            Cells(Target.Row, 3).Value = Date
            Cells(Target.Row, 4).Value = Time
        End If
    End If
End Sub

تقبل تحياتي

[صلاح الصغير]

ا / ياسر

 لا شكر على واجب ده كله من اعمالكم  احنا بس بنحاول نساعد

و دايما الابداع عندكوا بجد فكرة صح صح كانت غايبة عننا

[سليم حاصبيا]

 بعد اذنك الاخ ياسر و الاخ صلاح

اسمحوا لي بتعليق بسيط

الكود جيد من ناحية التطبيق لكنه متغير من حيث الوقت 

مثلاً لو في اليوم الثاني جرى التلاعب بأي خلية من الخلايا المحفوظة فأن التاريخ والوقت سوف يتغيران

هذا رأي و انشاء الله ان اكون مخطئاً

[ياسر خليل أبو البراء]

كلامك صحيح أخي سليم

في هذه الحالة جرب الكود بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 2 Then
        If IsEmpty(Target) Then
            Cells(Target.Row, 3).Value = ""
            Cells(Target.Row, 4).Value = ""
        ElseIf Not IsEmpty(Target) And Not IsEmpty(Cells(Target.Row, 3)) And Not IsEmpty(Cells(Target.Row, 4)) Then
            Exit Sub
        Else
            Cells(Target.Row, 3).Value = Date
            Cells(Target.Row, 4).Value = Time
        End If
    End If
End Sub

جرب وأخبرني بالنتيجة