اعطاء التاريخ والوقت بمجرد الكتابه في العامود a

[أبو قاسم]

محتاج عند الكتابة في في العمد A إعطاء التاريخ اتوماتيك في العمود السادس وإعطاء الوقت في العمود السابع

 

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect (Target, Range ("A4:A3000")) Is Nothing Then

With Target (1, 6)

.Value = Format (Date, "YYYY/MM/DD")

‐---------‐-----------------------------------------

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect (Target, Range ("A4:A3000")) Is Nothing Then With Target (1, 7)

.Value = Format (time, "hh: mm")

End With

End If

On Error GoTo 0

 

[وايلي حبيب]

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

يمكنك عملية دالة شرطية دون الحاجة الى كود

ضع الشرط هذا في العود رقم (6) ورقم (7) ونسق اعدادات الخلية الى تنسيق عمود للتاريخ وعمود للوقت

=IF(A1<>"";NOW();"")
 

شرط العمودA.xlsm

[محي الدين ابو البشر]

كود

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A4:A3000")) Is Nothing Then
        With Target
             .Offset(, 5).Value = Format(Date, "YYYY/MM/DD")
            .Offset(, 6).Value = Format(Time, "hh: mm")
        End With
  End If
End Sub

 

تم تعديل مارس 15, 2023 بواسطه محي الدين ابو البشر

[أبو قاسم]

شكرا لك ربنا يبارك فيك

[محي الدين ابو البشر]

بارك الله