|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.07.2011, 17:31 | #1 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
Как найти ячейку с заданным текстом, проверить наличие пустых ячейк справа и записать в них 0
Здравствуйте!
Писал код для перебора файлов в папке и их редактировании (вставка ячеек и тд), все вроде сделал, а вот с этим никак не могу разобраться: В столбце В необходимо найти ячейку содержащую текст Итого по всем:, и проверить в столбцах с D по G, справа от этой ячейки если есть пустые ячейки, то поставить них 0. я понимаю что нужно Range.Find использовать, но не могу записать эту строчку Помогите если не трудно, пожалуйста! P.S. приложил пример файла |
23.07.2011, 17:39 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Проверяйте:
Код:
|
23.07.2011, 17:49 | #3 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
Спасибо большое, всё работает!!!
|
24.07.2011, 19:11 | #4 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
в этом файле не хочет приписывать ноль пустой ячейке в диапазоне, не подскажите что не так
|
24.07.2011, 19:26 | #5 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
а если ячейку отчистить, а потом макрос запустить, он ставит ноль. как прописать в Find это?
|
24.07.2011, 19:59 | #6 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
Разобрался, 1С там пробел ставит.
Как прописать чтобы искались ячейки в "d:g" спарава от Итого по всем: содержащие знак пробела и приписывалось им ноль? |
24.07.2011, 20:11 | #7 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Sub test()
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
24.07.2011, 20:11 | #8 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
24.07.2011, 20:13 | #9 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Так можно поставить 0 в пустые и нечисловые ячейки:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
24.07.2011, 20:20 | #10 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
Спасибо огромнейшее!!!!
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на обработку строки: найти самое короткое слово и проверить в нём наличие заданного сочетания букв | Черныш Иван | Помощь студентам | 5 | 05.06.2011 17:12 |
как проверить наличие папки на удаленном сервере? | xxxsas | PHP | 4 | 18.01.2011 16:16 |
как проверить наличие определенного текста в строке | jihot | Общие вопросы Delphi | 6 | 04.04.2010 18:40 |
Как проверить наличие базы данных на сервере | Oooleg | Microsoft Office Excel | 1 | 25.02.2010 18:11 |
Как проверить TImage на наличие в нём картинки | soonner | Мультимедиа в Delphi | 3 | 16.03.2009 22:01 |