On 2月11日, 上�1時14分, Gord Dibben <gorddibbATshawDOTca wrote:
A worksheet formula can handle it but you must use circular references.

See John McGimpsey's site.

http://www.mcgimpsey.com/excel/timestamp.html

Gord Dibben Â*MS Excel MVP



On Tue, 9 Feb 2010 16:57:55 -0800 (PST), moonhk wrote:
On 2?9?, ??11?36?, Ryan H wrote:
Put this code in your worksheet module. Â*To do this, right click the sheet
tab at the bottom of Excel, click View Code, then paste code below into the
sheet module. Â*This code will put a time stamp in Col. D if any data is
changed in columns A, B, or C. Â*Give it a try. Â*Hope this helps! Â*If so, let
me know, click "YES" below.

Private Sub Worksheet_Change(ByVal Target As Range)

Â* Â* If Not Intersect(Target, Range("A:C")) Is Nothing Then
Â* Â* Â* Â* Cells(Target.Row, "D") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
Â* Â* End If

End Sub

--
Cheers,
Ryan

"moonhk" wrote:
Hi All
I want to keep trace some of cells in Row have been updated, the one
of column update as today and time ? Does formula can handle this ?

eg. A11 or B11 or C11 Updated, the D11 = today + time

moonhkt
.- ??????? -

- ??????? -

Thank. It works. Does formula can handle this ?- éš±è—�被引用文å*— -

- 顯示被引用文å*— -

Thank for your information.

Also for event macro, how to check some column update or not

Not work
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:B", "G:H")) Is Nothing Then

Cells(Target.Row, "AB") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
End If

End Sub

Work, But need to input or
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:C")) Is Nothing Or Not
Intersect(Target, Range("G:H")) Is Nothing Then

Cells(Target.Row, "M") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
End If

End Sub