excel 自動輸入日期

在 Excel 開「工具」＞「巨集」＞「Visual Basic 編輯器」
雙擊左邊「專案 - VBAProject」內你需要的工作表（在這例子用 Sheet1）
在「程式碼」視窗左邊選「Worksheet」右邊選「Change」
把程式碼貼在 Private Sub Worksheet_Change(ByVal Target As Range) 和 End Sub 中間
可以關閉「Visual Basic 編輯器」
再到「工具」＞「巨集」＞「安全性」
在安全性視窗的「安全性層級」設定為「中」級，如果設定為「高」級，ＥＸＣＥＬ下次開啟開會停用這「巨集」。
以下紅色字是你要的程式碼，你要把 Sheet1 改回你在 Excel 內的工作表名稱。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = "" Then
Worksheets("Sheet1").Cells(Target.Row, 2).Value = Target
Else
Worksheets("Sheet1").Cells(Target.Row, 2).Value = Now
End If

End If
End Sub

圖片參考：http://hk.geocities.com/tult010/knowledge/Alex.gif

要用excel macro, 程式如下:
先解釋:
A欄 是日期, B欄 是DATA
我設定range為 1-10, 當輸入完data 後, 按 Ctrl Shift g, 如果B欄有資料, A欄就會有當日日期出現.
Ctrl Shift g 在巨集設定, 全部都可在巨集設定, 包括安全問題.




Sub Macro1()
'
' Macro1 Macro
' MS 在 11/8/2008 錄製的巨集
'
'
Dim i As Byte, area_a As String, area_b As String
For i = 1 To 10

area_a = "A" & i
area_b = "B" & i

If (Range(area_b) = "") Then


Else
If (Range(area_a) = "") Then
Range(area_a).Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If

End If
Next i
End Sub

=IF(A1<>"", NOW(), "")
雖然可以在輸入A1時顯示現在的時間, 但此時間不能保留, 每次重新開啟 Excel 時都會改變。

要保留輸入或更改A1時的時間, 恐怕要用 Excel 的 Macro/VBA 才可以。