Excel VBA宏根据输入的值填充单元格

Question

我想要完成的是创建一个宏/ VB来填充我输入数据的特定单元格左侧和右侧的单元格。

所以，假设我有三列。中间列将是我输入30或31的数字。如果我输入30，我希望左边的单元格填充PENDING，右边的单元格填充TBD。类似的功能，如果我输入31，但将是不同的数据。

有什么想法？ 感谢

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 30 And Target.Column > 1 Then
    Target.Offset(0, -1).Value = "PENDING"
    Target.Offset(0, 1) = "TBD"
ElseIf Target.Value = 31 Then
    Target.Offset(0, 1).Value = "SOME OTHER DATA"
End If
End Sub