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

Вход

Регистрация

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

 

= Мир MS Excel/Если в заданой ячейке 0 то приостановить макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если в заданой ячейке 0 то приостановить макрос (Формулы)
Если в заданой ячейке 0 то приостановить макрос
Евгений833 Дата: Пятница, 01.11.2013, 13:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Добрый день, знатоки. Подскажите кому не лень :)

что нужно добавить в начало макроса чтобы при запуске макроса проверялось некое значение в результате чего макрос приостанавливался бы диалоговым окном с заданым текстом и кнопками (да/нет) нет - остановить сценарий ДА - продоллжить... закрутил что-то такое ;)

вообщем

если Е40 = 0.00 (ноль)
то выскакивает диалог "данные отсутсвуют, продолжить?" (да/нет)
да = продолжение макроса
нет = стоп макроса

Заранее благодарен)
 
Ответить
СообщениеДобрый день, знатоки. Подскажите кому не лень :)

что нужно добавить в начало макроса чтобы при запуске макроса проверялось некое значение в результате чего макрос приостанавливался бы диалоговым окном с заданым текстом и кнопками (да/нет) нет - остановить сценарий ДА - продоллжить... закрутил что-то такое ;)

вообщем

если Е40 = 0.00 (ноль)
то выскакивает диалог "данные отсутсвуют, продолжить?" (да/нет)
да = продолжение макроса
нет = стоп макроса

Заранее благодарен)
Автор - Евгений833
Дата добавления - 01.11.2013 в 13:06
_Boroda_ Дата: Пятница, 01.11.2013, 13:10 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16743
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
       If Range("E40") = 0 Then
           If MsgBox("Lанные отсутствуют, продолжить?", vbYesNo) = vbYes Then
               'текст макроса
           End If
       End If
End Sub
[/vba]
Мда, ступил. Конечно так, как у Сани ниже
[vba]
Код
Sub tt()
     If Range("E40") = 0 Then
         If MsgBox("Данные отсутствуют, продолжить?", vbYesNo) = vbNo Then
             Exit Sub
         End If
     End If
     'текст макроса
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
       If Range("E40") = 0 Then
           If MsgBox("Lанные отсутствуют, продолжить?", vbYesNo) = vbYes Then
               'текст макроса
           End If
       End If
End Sub
[/vba]
Мда, ступил. Конечно так, как у Сани ниже
[vba]
Код
Sub tt()
     If Range("E40") = 0 Then
         If MsgBox("Данные отсутствуют, продолжить?", vbYesNo) = vbNo Then
             Exit Sub
         End If
     End If
     'текст макроса
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 01.11.2013 в 13:10
Саня Дата: Пятница, 01.11.2013, 13:12 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
if range("e40").value=0 then
if msgbox("данные отсутсвуют, продолжить?",vbyesno+vbquestion) = vbno then exit sub   ' или function    
end if
'текст макроса
[/vba]
 
Ответить
Сообщение[vba]
Код
if range("e40").value=0 then
if msgbox("данные отсутсвуют, продолжить?",vbyesno+vbquestion) = vbno then exit sub   ' или function    
end if
'текст макроса
[/vba]
Автор - Саня
Дата добавления - 01.11.2013 в 13:12
Евгений833 Дата: Пятница, 01.11.2013, 13:14 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Цитата _Boroda_, 01.11.2013 в 13:10, в сообщении № 2
Так нужно?


БОММБА)

работает! Спасибо)!
 
Ответить
Сообщение
Цитата _Boroda_, 01.11.2013 в 13:10, в сообщении № 2
Так нужно?


БОММБА)

работает! Спасибо)!
Автор - Евгений833
Дата добавления - 01.11.2013 в 13:14
Евгений833 Дата: Пятница, 01.11.2013, 13:54 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Собственно решение работает, толко оказалось, что если E40 не =0 то макрос не запускается вовсе %)

можно ли как-то дополнить макрос?

если Е40 (= 0, или меньше 1 ) тойсть если в ячеке больше нуля, то ничего не происходит и макрос шагает дальше если равно нулю то диалоговое окно
 
Ответить
СообщениеСобственно решение работает, толко оказалось, что если E40 не =0 то макрос не запускается вовсе %)

можно ли как-то дополнить макрос?

если Е40 (= 0, или меньше 1 ) тойсть если в ячеке больше нуля, то ничего не происходит и макрос шагает дальше если равно нулю то диалоговое окно
Автор - Евгений833
Дата добавления - 01.11.2013 в 13:54
Евгений833 Дата: Пятница, 01.11.2013, 15:13 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Цитата _Boroda_, 01.11.2013 в 13:10, в сообщении № 2
[vba]
Код
Sub tt()
If Range("E40") = 0 Then
If MsgBox("Данные отсутствуют, продолжить?", vbYesNo) = vbNo Then
Exit Sub
End If
End If
'текст макроса
End Sub
[/vba]


Красота thumb как часики работает, спасибо огромное!)
 
Ответить
Сообщение
Цитата _Boroda_, 01.11.2013 в 13:10, в сообщении № 2
[vba]
Код
Sub tt()
If Range("E40") = 0 Then
If MsgBox("Данные отсутствуют, продолжить?", vbYesNo) = vbNo Then
Exit Sub
End If
End If
'текст макроса
End Sub
[/vba]


Красота thumb как часики работает, спасибо огромное!)
Автор - Евгений833
Дата добавления - 01.11.2013 в 15:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если в заданой ячейке 0 то приостановить макрос (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

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