[excel]在A欄輸入資料後，對應的B欄顯示當時時間－Jorly walk

下面VBA能讓您在A欄輸入資料後，對應的B欄顯示當時時間

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 1)).Value = Now()

End Sub

=====================================================

函數使用方式：

EXCEL畫面上按下「ALT+F11」，會出現下面視窗，接著在視窗左邊點選所需使用的SHEET（下圖為Sheet1），再把程式碼複製到右邊視窗，就可以關掉了，這樣程式碼就啟用了！

2007-01-25 11:58:12 補充
把程式中後面的 = Now() 改成 = Date 即可。（記得檢查一下儲存格格式）

大概解釋就是：
If Target.Column = 1 為判斷是否在A欄輸入資料

Then Range(Cells(Target.Row, Target.Column 1), Cells(Target.Row, Target.Column 1)).Value = Date 為如果是在A欄時，把輸入格右邊的那一格數值輸入為當天日期