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