Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запуск макроса по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса по условию (Макросы/Sub)
Запуск макроса по условию
ant6729 Дата: Суббота, 11.03.2017, 23:45 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
Else
    Range("G6").Value > Range("G9").Value
             Application.Run "Макрос7"

End If
End Sub
[/vba]

Прошу подсказать на счет правильности написанного. Что-то не работает. Сижу ковыряюсь.
 
Ответить
Сообщение[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
Else
    Range("G6").Value > Range("G9").Value
             Application.Run "Макрос7"

End If
End Sub
[/vba]

Прошу подсказать на счет правильности написанного. Что-то не работает. Сижу ковыряюсь.
Автор - ant6729
Дата добавления - 11.03.2017 в 23:45
al-Ex Дата: Воскресенье, 12.03.2017, 00:55 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
Файл прикрепить надо.
 
Ответить
СообщениеФайл прикрепить надо.
Автор - al-Ex
Дата добавления - 12.03.2017 в 00:55
Michael_S Дата: Воскресенье, 12.03.2017, 04:22 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
правильно так:
[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
    ElseIf Range("G6").Value > Range("G9").Value Then
            Application.Run "Макрос7"
    End If
End Sub
[/vba]


Сообщение отредактировал Michael_S - Воскресенье, 12.03.2017, 04:24
 
Ответить
Сообщениеправильно так:
[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
    ElseIf Range("G6").Value > Range("G9").Value Then
            Application.Run "Макрос7"
    End If
End Sub
[/vba]
Автор - Michael_S
Дата добавления - 12.03.2017 в 04:22
ant6729 Дата: Воскресенье, 12.03.2017, 10:20 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Спасибо, Михаил, не первый раз помогаете. СПАСИБО!
 
Ответить
СообщениеСпасибо, Михаил, не первый раз помогаете. СПАСИБО!
Автор - ant6729
Дата добавления - 12.03.2017 в 10:20
Michael_S Дата: Воскресенье, 12.03.2017, 19:54 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
ant6729, в вашем макросе (да и в том варианте, что я написал), непонятно, что надо делать, если Range("G6").Value < Range("G9").Value.
Правильно будет так:
[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
    ElseIf Range("G6").Value > Range("G9").Value Then
            Application.Run "Макрос7"
    Else
            Application.Run "Макрос8"
    End If
End Sub
[/vba]
или, если запускаем тот же "Макрос7", то
[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
    Else
            Application.Run "Макрос7"
    End If
End Sub
[/vba]
 
Ответить
Сообщениеant6729, в вашем макросе (да и в том варианте, что я написал), непонятно, что надо делать, если Range("G6").Value < Range("G9").Value.
Правильно будет так:
[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
    ElseIf Range("G6").Value > Range("G9").Value Then
            Application.Run "Макрос7"
    Else
            Application.Run "Макрос8"
    End If
End Sub
[/vba]
или, если запускаем тот же "Макрос7", то
[vba]
Код
Sub macro345()
    If Range("G6").Value = Range("G9").Value Then
            Application.Run "Макрос6"
    Else
            Application.Run "Макрос7"
    End If
End Sub
[/vba]
Автор - Michael_S
Дата добавления - 12.03.2017 в 19:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!