需要根據 excel vba 列表中的另一個單元格值更新單元格中的值

Question

我有 Excel 啟用宏的工作表 - Chart.xlsm- 從列表中選擇值：

我的目標是 - 選擇列D（WorkDay類型）=“ Day off”時，我希望列E（日期結果）和F（原因）將自動更新使用“不適用”值。

我的（工作日類型）、（工作日結果）和（原因）列選擇的值存儲在同一個宏電子表格文件中，但如果這很重要，則存儲在單獨的工作表中

我不是 vba 精明的人，所以我嘗試使用以下代碼（沒有成功）：

    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim sh As Worksheet
       Set sh = ActiveSheet
    If sh.Cells(3,4) = “Day Off” Then
       Sh.Cells(3,5) = “Not Applicable”
    End If
   End Sub

Answer 1

如果您希望在 D 列中選擇一個值時運行代碼，您可以試試這個。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        If Target.Value = "Day Off" Then
            Application.EnableEvents = False
            Target.Offset(,1).Resize(,2).Value = "Not Applicable"
            Application.EnableEvents = True
        End If
    End If
End If