Доброго времени суток!
При запуске макроса показывается окошко с вопросом "Хотите импортировать данные?" Если нажимаю ДА то импортируются данные из текстового файла, после задается вопрос "Хотите форматировать данные?" (изменить шрифт,цвет) Дальше понятно если нажимаю ДА то форматирует, НЕТ то не форматирует. Возможно ли как-то укоротить процедуру, а то уж смущает столько if end if? Спасибо!
При запуске макроса показывается окошко с вопросом "Хотите импортировать данные?" Если нажимаю ДА то импортируются данные из текстового файла, после задается вопрос "Хотите форматировать данные?" (изменить шрифт,цвет) Дальше понятно если нажимаю ДА то форматирует, НЕТ то не форматирует. Возможно ли как-то укоротить процедуру, а то уж смущает столько 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 |