Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Оператор If Then.... Else: укоротить процедуру
 
#1
05.04.2015 16:10:29
Доброго времени суток!

При запуске макроса показывается окошко с вопросом "Хотите импортировать данные?" Если нажимаю ДА то импортируются данные из текстового файла, после задается вопрос "Хотите форматировать данные?" (изменить шрифт,цвет) Дальше понятно если нажимаю ДА то форматирует, НЕТ то не форматирует. Возможно ли как-то укоротить процедуру, а то уж смущает столько 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
 
 
 
#2
05.04.2015 16:17:09
Код
Sub ТестИмпортФормат()
If MsgBox("Хотите импортировать данные?", vbYesNo) = vbYes Then
  Call ИмпортДанных
  If MsgBox("Хотите форматировать данные?", vbYesNo) = vbYes Then
    Call ФорматДанных
  End If
End If
End Sub
 
 
 
#3
05.04.2015 16:19:41
Казанский, Благодарю)
 
 
 
#4
05.04.2015 16:25:45
Код
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 - 05.04.2015 16:54:04
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#5
05.04.2015 16:40:21
Apriori и TheBestOfTheBest, код оформляем тегами.
 
 
 
Страницы: 1
Наверх