用實現vba事件實現，wps實現的話要安裝宏外掛，excel就不用安裝外掛。

程式碼如下:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$E$3" Then [F3] = DateEnd Sub

在某一列點選，右邊列顯示日期程式碼，Target.column=2 表示更新列在B列，如Target.column=4表示在D列，依此類推，你可以把2改成其他值，其他內容不變。

Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextIf Target.Value <> "" ThenIf Target.Column = 2 And Target.Count = 1 Then Target.Offset(0, 1) = DateEnd IfEnd Sub