Excel 的自動更新日期公式?

方法一:
要用 Worksheet Marco 其中一種 叫 Change 的方法, 寫上下列VBA程式:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 2 Then
Target.Offset(0, -1) = Date
End If
End Sub
如完全對VBA不太熟式, 不建議使用。

方法二:
蓄意做成循環參照 + 勾選反覆運算
按 工具 → 選項 →計算→勾選 反覆運算
在A3輸入公式: = IF(ISBLANK(B3),“”,IF(A3=“”,TODAY(),A3))
再將A3的儲存格格式, 轉成 日期格式
然後將公式下拉至A1000
如更改B10的資料, 先要將該B10的資料Clear(即按Delete), A10會變成空白,再在B10重新輸入資料, A10便會自動傳回今天的日期。
如不Clear B10的內容, 直接更改增刪內容, A10的日期是不會update‧
如用此法, 就算是第一次在B欄輸入資料, 也無需在A欄打日期, 它會自動傳回今天的日期
但如某筆資料是需要Back Date, 便要用人手打上
此法雖然不是Excel的正統方法, 但亦不失為一個可行的方法, 應可考慮。

2007-03-18 14:34:20 補充：
我看錯題目, 以上的兩種方法, 是針對修改B1, 而A1會先動更新日期, 請注意如依題目: 修改A1的數字時，A2自動更新成今天日期上述兩種方法內的對應儲存格都要作適當的更改, 又於這裡的篇幅有限, 不再另行表述