回覆列表
  • 1 # 使用者3254839775615

    用實現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

  • 中秋節和大豐收的關聯?
  • 議事者身在世外,宜悉利害之情。是什麼意思?