|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.03.2017, 12:24 | #1 |
Форумчанин
Регистрация: 28.05.2014
Сообщений: 158
|
Раскрасить строки
Добрый день, уважаемые пользователи!
Стоит задача по раскраски строк, которую я сейчас выполняю вручную. Т.е., есть текстовый файл, который я открываю при помощи Excel, и все строки отображаются в столбике "A". Нажав комбинацию "Ctrl + F" (найти), ввожу данные "ИНН", тем самым нахожу строку "ПлательщикИНН***" которая в секции документа по счету восьмая (для наглядности в столбце "B" проставил строки), и выделяю цветом начиная со строки "СекцияДокумент=Платежное поручение" до "КонецДокумента", итого получается 36 строк. Таких секторов в документе значительное количество... А можно как-то при помощи макроса проделывать эту процедуру? Пробовал макрорекордером сделать это, но при записи макрорекордером получается привязка к определенным строкам. |
28.03.2017, 12:38 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
сделать, то можно...
и даже раскрасить можно, хоть и не написано КАК раскрашивать но в связи с тем, что совершенно не понятен смысл, не охота на это время тратить
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
28.03.2017, 12:38 | #3 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Мое видение:
при помощи макроса Find ищете ячейку ПлательщикИНН (NrStr), дальше RANGE(NrStr.offset(-7,0),nrStr.offset(28,0)).Interior.C olorIndex = 3
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
28.03.2017, 12:52 | #4 | |
Форумчанин
Регистрация: 28.05.2014
Сообщений: 158
|
Цитата:
Последний раз редактировалось amadeus017; 28.03.2017 в 12:55. |
|
29.03.2017, 00:08 | #5 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Может, что-то такое вам нужно?
http://excelvba.ru/programmes/Parser...ntBankExchange Это решение для обработки банковских выписок формата 1CClientBankExchange |
29.03.2017, 04:40 | #6 | |
Форумчанин
Регистрация: 28.05.2014
Сообщений: 158
|
Цитата:
ОКРАСКА данного диапазона мне нужна для того, чтобы потом поставить ФИЛЬТР ПО ЦВЕТУ и УДАЛИТЬ лишние данные из выписки и оставить только те строки, которые принадлежать определенному контрагенту (организации). Последний раз редактировалось amadeus017; 29.03.2017 в 04:54. |
|
29.03.2017, 10:12 | #7 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
p.s. Вы сделайте тестовый пример (замените реальные данные на какой-нибудь набор цифр - главное, чтобы структура данных осталась прежней), выложите его сюда на форум, и, думаю, что Вам помогут с макросом. |
|
29.03.2017, 11:24 | #8 |
Форумчанин
Регистрация: 28.05.2014
Сообщений: 158
|
Вы правы, наверное так будет нагляднее. В связи с чем, прилагаю два файла (01-01-2015 и 01-01-2015_СТАЛО) и допустим, что в файле "01-01-2015", нужно оставить только организацию с ИНН "7716004076" и все строки принадлежащие этому платежу начиная со строк "СекцияДокумент=Платежное поручение" и заканчивая строкой по этому платежу "КонецДокумента". Результат в файле "01-01-2015_СТАЛО".
|
29.03.2017, 11:40 | #9 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
29.03.2017, 12:07 | #10 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Aleksandr H., простите, а что должна делать строчка:
Цитата:
что-то у меня ровным счётом ничего не происходит... я что-то делаю не так? |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Раскрасить ячейку dbgrideh | Ernest027 | БД в Delphi | 13 | 12.08.2015 08:38 |
Раскрасить ListBox | $T@LKER | C# (си шарп) | 8 | 05.04.2011 22:35 |
РАскрасить строки ListViev. | Aleksandr | Общие вопросы Delphi | 20 | 17.09.2010 10:29 |
Раскрасить пузырьки в диаграмме | danil1234567 | Microsoft Office Excel | 2 | 28.06.2010 18:03 |
Раскрасить DBGrid | alex_base | БД в Delphi | 13 | 06.11.2007 11:36 |