Excel VBA Макросы. Замена значения ячейки на основании данных этой же ячейки.

Автор Посетитель, 10 июня 2021, 10:17

Посетитель

Возможно ли с помощью макроса заменять значение ячейки на основании данных этой же ячейки?
Если в A1 число 1, то записать в A1 число 2. Если 2, то записать 3. Если 3, то записать 1.

Администратор

Sub Макрос()
   
    If Range("A1").Value = 1 Then
        Range("A1").Value = 2
    ElseIf Range("A1").Value = 2 Then
        Range("A1").Value = 3
    ElseIf Range("A1").Value = 3 Then
        Range("A1").Value = 1
    End If
   
End Sub