Как вызывать макросы в зависимости от данных в ячейке?

Guest

Гость

13.01.2011 20:37:21

Например в ячейке G1 число 3, нужно чтобы последовательно выполнились Макрос01, Макрос02 и Макрос03.
Если G1=4, то соответственно Макрос01, Макрос02, Макрос03, и Макрос04.
Как это сделать, подскажите.

Такой макрос вызывает только Макрос01, нужно чтобы проверка ячейки G1 возобновлялась.

If Range("G1").Value > 0 Then Call Макрос01
If Range("G1").Value > 1 Then Call Макрос02
If Range("G1").Value > 2 Then Call Макрос03
If Range("G1").Value > 3 Then Call Макрос04
If Range("G1").Value > 4 Then Call Макрос05
If Range("G1").Value > 5 Then Call Макрос06
If Range("G1").Value > 6 Then Call Макрос07

End Sub

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 13.01.2011 20:43:40 Sub test() Select Case [g1] Case 3: Макрос01: Макрос02: Макрос03 Case 4: Макрос01: Макрос02: Макрос03: Макрос04 Case Else: Макрос09 End Select End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Гость Гость	#3 13.01.2011 20:52:50 {quote}{login=The_Prist}{date=13.01.2011 08:41}{thema=}{post}dim i as integer for i = 1 to Range("G1").value Applicaton.Run ThisWorkbook.Name & "!Макрос0" & i next i{/post}{/quote} Выскакивает ошибка "424" на строке Applicaton.Run ThisWorkbook.Name & "!Макрос0" & i

Guest Гость	#4 13.01.2011 20:56:59 {quote}{login=EducatedFool}{date=13.01.2011 08:43}{thema=}{post}Sub test() Select Case [g1] Case 3: Макрос01: Макрос02: Макрос03 Case 4: Макрос01: Макрос02: Макрос03: Макрос04 Case Else: Макрос09 End Select End Sub{/post}{/quote} Этот вариант работает. Спасибо очень выручили!

Гость Гость	#5 13.01.2011 21:21:37 {quote}{login=The_Prist}{date=13.01.2011 09:00}{thema=}{post}Можно просто: Applicaton.Run "Макрос0" & i{/post}{/quote} Все равно та же ошибка. Эти макросы находятся в отдельной книге, может проблема в этом.

Читают тему