需要根据 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