إدراج التاريخ الحالي والوقت الحالي في خلية

[أبوأحـمـد]

السلام عليكم

هل يوجد صيغة معية لادراج تاريخ ثابت في خلية تلقائيا

بدون استخدام الأكواد البرمجية

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Range("A" & Target.Row) = "" Then    
    Range("A" & Target.Row) = Date    
    End If
End Sub

وبدون استخدام اختصارات لوحة المفاتيح  Ctrl+;‎ 

مثال :

اقوم بالكتابة في خلايا صف واريد أن يضيف تلقائيا تاريخ تحرير السجل 

م |     البيان     | دائن  | مدين  |     التاريخ     |

1 |    حوالة      |  500 |          |2018/02/18  |

 

 

[أبوأحـمـد]

توصلت إلى هذه الصيغة لكن يعيبها تمكين الحساب التكراري

التاريخ بالخلية E1

=IF(COUNTA(A1:D1)=1;NOW();IF(COUNTA(A1:D1)>1;E1;""))

 

[ابوعبدالواجد]

عندي هذه المعادلة ، ضعها في الخلية التي تريد ان يظهر التاريخ ، فعند كتابة أي شيء في خلية a1 

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

[أبوأحـمـد]

13 دقائق مضت, ابوعبدالواجد said:

عندي هذه المعادلة ، ضعها في الخلية التي تريد ان يظهر التاريخ ، فعند كتابة أي شيء في خلية a1 

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

هذه المعادلة تعطي التاريخ ولكنه غير ثابت ( متغير كل يوم )