|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.08.2012, 10:46 | #1 |
Форумчанин
Регистрация: 17.03.2009
Сообщений: 226
|
Макрос - проверка на ошибки
Добрый день, уважаемые! Прошу Вашей помощи в создании макроса. Конечный макрос я допишу сам (хоть я и полный ноль в этом, но учиться
надо...), а Вас прошу создать по моему описанию упрощенный макрос, в качестве примера (болванки) для меня. Читая книги по ВБА, дело движется очень медленно и многое не понятно... Описание (на основе файла во вложении): При начатии кнопки запускается макрос. 1) Задаем диапазон - по строкам со строки 10 до строки с текстом "Итого", по столбцам - с певого по "К"; 2) Условие1: если в вышеуказанном диапазоне есть отрицательные значения, то в текстовом поле формы написать "Ошибка - отрицательное значение". 3) Условие2: если в вышеуказанном диапазоне есть пустые ячейки, то в текстовом поле формы написать "Данные заполнены не полностью по проектам: (сюда вывести через запятую, названия из столбца А, соответствующие строкам диапазона где найдены пустые ячейки)". 4) Условие3: Если значение ячейки 1 (стоящей на пересечении строки с текстом "Итого" и столбца F) больше чем значение ячейки 2 (стоящей на пересечении строки с текстом "Итого" и столбца E) - добавить текст в поле формы "Ошибка2". Заранее огромное спасибо! |
15.08.2012, 12:33 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
15.08.2012, 13:02 | #3 |
Форумчанин
Регистрация: 17.03.2009
Сообщений: 226
|
Спасибо, но ничего не происходит, debug ругается "invalid use of Me keyword"... Не понимаю что ему не нравиться... Excel у меня 2010, может в этом дело...
|
15.08.2012, 13:07 | #4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Пишите вместо Me UserForm1 - у меня оба варианта работают.
Ещё забыл упомянуть - текстбоксу в свойствах поставьте MultiLine=True - так удобнее Можно это задать по нажатию кнопки - но правильнее установить вручную.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 15.08.2012 в 13:11. |
15.08.2012, 13:18 | #5 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Пробуйте..
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
15.08.2012, 13:48 | #6 |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
я через лист бокс предложу
Единственный способ стать умнее, играть с более умным противником...
|
15.08.2012, 14:28 | #7 |
Форумчанин
Регистрация: 17.03.2009
Сообщений: 226
|
Вариант Hugo121 так и не заработал, а варианты Казанский и staniiislav работают. Спасибо всем Вам огромное!
Не сочтите за наглость, подскажите пожалуйста еще, как добавить возможность выбора книги с диска, по которой будет проведен анализ этим макросом? |
15.08.2012, 15:12 | #8 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Поищите по GetOpenFileName или FileDialog
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
15.08.2012, 15:32 | #9 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
http://excelvba.ru/code/GetFileOrFolderPath (одна из самых читаемых статей на моём сайте) |
|
15.08.2012, 15:43 | #10 |
Форумчанин
Регистрация: 17.03.2009
Сообщений: 226
|
Спасибо за инфу. Я не религиозный :-)
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Вопрос] Макрос для проверки столбцов на ошибки | ShowMeYourStyle | Microsoft Office Excel | 1 | 04.07.2011 19:47 |
Макрос по авто сохранению данных в формат CSV, где ошибки? | TKinfront | Microsoft Office Excel | 0 | 21.03.2011 21:35 |
Проверка условия. Поправить макрос | kzld | Microsoft Office Excel | 14 | 27.05.2010 06:49 |
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос | as-is | Microsoft Office Excel | 4 | 25.02.2010 07:51 |