Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Оператор If Then.... Else: укоротить процедуру
 
Доброго времени суток!

При запуске макроса показывается окошко с вопросом "Хотите импортировать данные?" Если нажимаю ДА то импортируются данные из текстового файла, после задается вопрос "Хотите форматировать данные?" (изменить шрифт,цвет) Дальше понятно если нажимаю ДА то форматирует, НЕТ то не форматирует. Возможно ли как-то укоротить процедуру, а то уж смущает столько if end if? Спасибо!
Код
Sub ТестИмпортФормат()
Dim intX As Integer
Dim intY As Integer

intX = MsgBox("Хотите импортировать данные?", vbYesNo)

If intX = vbYes Then
        Call ИмпортДанных
End If

If intX = vbYes Then
        intY = MsgBox("Хотите форматировать данные?", vbYesNo)
End If

If intY = vbYes Then
        Call ФорматДанных
End If

End Sub
 
Код
Sub ТестИмпортФормат()
If MsgBox("Хотите импортировать данные?", vbYesNo) = vbYes Then
  Call ИмпортДанных
  If MsgBox("Хотите форматировать данные?", vbYesNo) = vbYes Then
    Call ФорматДанных
  End If
End If
End Sub
 
Казанский, Благодарю)
 
Код
Sub ТестИмпортФормат() 
Dim intX As Integer, intY As Integer 

If MsgBox("Хотите импортировать данные?", vbYesNo) = vbYes Then 
   Call ИмпортДанных 
   If MsgBox("Хотите форматировать данные?", vbYesNo) = vbYes Then 
      Call ФорматДанных 
   End If 
End If
End Sub 
Изменено: TheBestOfTheBest - 5 Апр 2015 16:54:04
Неизлечимых болезней нет, есть неизлечимые люди.
 
Apriori и TheBestOfTheBest, код оформляем тегами.
Страницы: 1
Читают тему (гостей: 1)