Выполнение макросов поочередно по кнопке другого макроса

Пользователь

Сообщений: 15 Регистрация: 14.01.2020

28.01.2020 21:33:43

Добрый вечер всем !

Возникла такая задача - запустить выполнение разных макросов (5 шт - макрос1, макрос2, макрос3, макрос4, макрос5) поочередно по нажатию кнопки Макрос основной.
Те нажали первый раз Макрос основной. - выполнился макрос1
нажали второй раз Макрос основной. - выполнился макрос2
нажали третий раз Макрос основной. - выполнился макрос3
нажали четвертый раз Макрос основной. - выполнился макрос4
нажали пятый раз Макрос основной. - выполнился макрос5
нажали шестой раз Макрос основной. - выполнился макрос1 и так по кругу

При этом нашел способ как запускать два макроса поочередно с помощью другого макроса

Код

Public Flag As Boolean


Sub ОсновнойМакрос()
If Not Flag Then
MsgBox "Выполняю макрос 1"
Flag = True
Else
MsgBox "Выполняю макрос 2"
Flag = False
End If
End Sub

Таким образом поочередно по нажатию кнопки выполняются два макроса - а нужно и как 5 макросов поочередно запустить ?

Изменено: OlegE - 28.01.2020 21:34:20

buchlotnik

Пользователь

Сообщений: 3863 Регистрация: 31.10.2014

Excel 365 Бета-канал

28.01.2020 21:44:58

Код

Public flag

Sub main()
    flag = (flag Mod 5) + 1
    Select Case flag
        Case Is = 1: MsgBox "macro1"
        Case Is = 2: MsgBox "macro2"
        Case Is = 3: MsgBox "macro3"
        Case Is = 4: MsgBox "macro4"
        Case Is = 5: MsgBox "macro5"
    End Select
End Sub

Соблюдение правил форума не освобождает от модераторского произвола

OlegE Пользователь Сообщений: 15 Регистрация: 14.01.2020	#3 28.01.2020 21:52:53 Работает ! Благодарю buchlotnik за помощь !

Читают тему