用實現vba事件實現,wps實現的話要安裝宏外掛,excel就不用安裝外掛。
程式碼如下:
在某一列點選,右邊列顯示日期程式碼,Target.column=2 表示更新列在B列,如Target.column=4表示在D列,依此類推,你可以把2改成其他值,其他內容不變。
用實現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