مشکل با زمان و تاریخ در excel

[Reza-sony]

سلام .
من یه کاری میخوام انجام بدم بدین صورت :
میخوام یه cell رو طوری تنظیم کنم که زمان و تاریخ جاری رو برگردونه ولی بعدا تغییری نکنه ، مثل log برنامه ها که زمان رو کنار عملیات مربوطه میندازه . با استفاده از دستور NOW() زمان جاری رو میندازه ولی این زمان توی سلول دائما در حال تغییر میخوام طوری باشه که یکباره زمان جاری سیستم رو بندازه و اون زمان رو save کنه و دیگه تغییری نکنه .
چه جوری میشه این کار رو انجام داد ؟

 

[phoenix_i06]

برای stamp کردن تاریخ و زمان میتونید از Ctrl + Shift + : و Ctrl + : استفاده کنید.

اگر هم میخواید زمانی و تاریخی که رکوردی در سل وارد میشه رو داشته باشید این کد هست که هر رکوردی که در ستون A وارد کنید، کنارش در ستون B تاریخ و زمانش رو درج میکنه:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

            With Target(1, 2)

                .Value = Time + Date

                .EntireColumn.AutoFit

            End With

        End If

End Sub

 

[Reza-sony]

برای stamp کردن تاریخ و زمان میتونید از Ctrl + Shift + : و Ctrl + : استفاده کنید.

اگر هم میخواید زمانی و تاریخی که رکوردی در سل وارد میشه رو داشته باشید این کد هست که هر رکوردی که در ستون A وارد کنید، کنارش در ستون B تاریخ و زمانش رو درج میکنه:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

            With Target(1, 2)

                .Value = Time + Date

                .EntireColumn.AutoFit

            End With

        End If

End Sub

میشه بگین برای استفاده از این کد در workbook ای که داریم کدوم قسمت ها نسبی هستن و باید تغییر کنن ؟

 

[phoenix_i06]

من زیاد بلد نیستم ولی اینطور که معلومه اینها رو میشه تغییر داد:
With Target(1, 2)
Value = Time + Date
Range("A2:A100")

میشه بگین برای استفاده از این کد در workbook ای که داریم کدوم قسمت ها نسبی هستن و باید تغییر کنن ؟