Макрос Excel VBA для заполнения клеток на основе введенного значения

Question

То, что я пытаюсь сделать, это создать макро / VB для заполнения клеток влево и справа от конкретной ячейки, вставляющую данные в.

Так, скажем, у меня есть три колонны.Центральный столбец будет там, где я вводил ряд 30 или 31. Если я введите 30, я хочу, чтобы ячейки слева заполняют с ожиданием и клеткой справа, чтобы заполнить с помощью 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

.