Добрый день! Прошу помочь вставить в существующий макрос (сделанный Manyasha, за что ей большое спасибо!), макрос для поиска символа "?" (либо при поиске использовать "?0,0", если не получится "голый" знак вопроса "?"(без кавычек)), далее, если этот символ найден, выдать сообщение "допустим_переделывай_отчет" и остановить выполнение остальной части макроса (т.е. макрос поиска должен выполняться первым). Соответственно, если символ не найден, то остальную часть макроса выполнить. Прикладываю исходный макрос и файл отчета, который нужно забраковать макросом.
Добрый день! Прошу помочь вставить в существующий макрос (сделанный Manyasha, за что ей большое спасибо!), макрос для поиска символа "?" (либо при поиске использовать "?0,0", если не получится "голый" знак вопроса "?"(без кавычек)), далее, если этот символ найден, выдать сообщение "допустим_переделывай_отчет" и остановить выполнение остальной части макроса (т.е. макрос поиска должен выполняться первым). Соответственно, если символ не найден, то остальную часть макроса выполнить. Прикладываю исходный макрос и файл отчета, который нужно забраковать макросом.skobelev
Sub csv_to_txt() Dim pathTxt$, temp$, nameTxt$ Dim rarName$, appWinRar$, str$ Dim lr&, lc&, i&, j&
Dim r As Range Set r = ActiveSheet.UsedRange.Find("~?", LookIn:=xlValues, lookat:=xlPart) If Not r Is Nothing Then MsgBox "допустим_переделывай_отчет", 48: Exit Sub
'дальше ваш код '.......
[/vba]
Здравствуйте попробуйте 3 строки добавить: [vba]
Код
Sub csv_to_txt() Dim pathTxt$, temp$, nameTxt$ Dim rarName$, appWinRar$, str$ Dim lr&, lc&, i&, j&
Dim r As Range Set r = ActiveSheet.UsedRange.Find("~?", LookIn:=xlValues, lookat:=xlPart) If Not r Is Nothing Then MsgBox "допустим_переделывай_отчет", 48: Exit Sub
48 - числовое представление константы vbExclamation такой желтый треугольник с восклицательным знаком появляется в окне сообщения MsgBox треульгольник )
48 - числовое представление константы vbExclamation такой желтый треугольник с восклицательным знаком появляется в окне сообщения MsgBox треульгольник )nilem
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
