log انداختن در اکسل

[yoosof-e-zahra]

سلام به همه دوستان و برادران
چه طور میتونم اعدادی که در یک سلول تایپ میشه رو جایی ثبت کرد
منظورم اینه که در یک سلول اگر به فرض چند بار پشت سر هم اعدادی تایپ شد، در یک جایی دیگر این اعداد با تاریخ لحظه ثبت، درج بشه.
آیا امکانش هست؟

[mokaram]

سلام به همه دوستان و برادران
چه طور میتونم اعدادی که در یک سلول تایپ میشه رو جایی ثبت کرد
منظورم اینه که در یک سلول اگر به فرض چند بار پشت سر هم اعدادی تایپ شد، در یک جایی دیگر این اعداد با تاریخ لحظه ثبت، درج بشه.
آیا امکانش هست؟

از چه طریقی می خواهید این کار انجام بشه ؟
توابع یا vba ?

[yoosof-e-zahra]

ممنون نمیدونم کدوم راه بهتره ولی فکر میکنم شاید توابع بهتر باشه

[Amir Ghasemiyan]

ممنون نمیدونم کدوم راه بهتره ولی فکر میکنم شاید توابع بهتر باشه

فكر نكنم با توابع خيلي راحت باشه و به زيبايي vba بشه.
در هر صورت من با vba براتون نوشتم. اميدوارم مفيد باشه

در ورك شيتي كه ميخواين اين عمليات ها اجرا بشه اين كد رو وارد كنين

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$G$4" Then
    MyAdd "Table1", Range("G4").Value
End If
End Sub

حالا يك ماژول بسازين و اين كدها رو داخلش قرار بدين:

Sub MyAdd(ByVal strTableName As String, ByRef arrData As Variant)
    Dim Tbl As ListObject
    Dim NewRow As ListRow


    Set Tbl = Worksheets("Excel Iran").ListObjects(strTableName)
    Set NewRow = Tbl.ListRows.Add(AlwaysInsert:=True)


    If TypeName(arrData) = "Range" Then
        NewRow.Range = arrData.Value
    Else
        NewRow.Range = Array(Now, arrData)
    End If
End Sub

همچنين ميتونين از فايل پيوست كمك بگيرين

[~M*E*H*D*I~]

با درود یک مورد اصلاحی وجود داشت که درست شد