Скрыть строку при равенстве значений в двух столбцах
10.09.2015 09:01:48
|
|
|
|
10.09.2015 15:14:02
Изменено: |
|||
|
|
14.09.2015 11:08:39
а можете в последней версии Sub HiddenRowArr() добавить закраску строк, тех что остались не скрити? (закраска строки A-J) |
|
|
|
14.09.2015 14:06:04
а можете скинуть ваш скайп? |
|
|
|
14.09.2015 14:20:09
мне нужно найти пустую строчку на Листе3 после даних через строчку написать "отсутсвуют дание", затем через строчку вставить ети дание (строки что будут активни(не скрити) после отработки макроса Sub HiddenRowArr()) |
|
|
|
14.09.2015 14:27:12
может и красить не нужно
мне нужно найти пустую строчку на Листе3 после даних, через строчку написать "отсутсвуют дание", затем через строчку вставить ети дание (строки что будут активни(не скрити) после отработки макроса Sub HiddenRowArr())
Изменено: |
|
|
|
14.09.2015 15:08:00
сначала била цель скривать строки, и анализировать, но теперь хотелось би вивести на другой лист (найти пустую строчку на Листе3 после даних, через строчку написать "отсутсвуют дание", затем через строчку вставить ети дание (строки что будут активни(не скрити) после отработки макроса Sub HiddenRowArr())) можно ваш скайп в личку?
Изменено: |
|
|
|
14.09.2015 15:32:15
На работе скайпа нет. После работы я редко сижу за компом, на работе такого добра хватает.
Выложите пример данных файл до 100 кб., что есть (какие данные нужно отбирать с листа 380*) и что нужно получить (куда их выгрузить). Я посмотрю когда будет время, как изменить текущую процедуру Sub HiddenRowArr и получить желаемый результат. |
|
|
|
14.09.2015 15:39:28
|
|
|
|
14.09.2015 15:48:24
нужно сравнить колонку F листа380* с колонкой А листа1. Те строки в которих нет совпадений с Листа380* скопировать на Лист3
и с названием в ячейке D ("отсутствуют дание")
Изменено: |
|
|
|
14.09.2015 15:53:07
Изменено: |
|||||||
|
|
15.09.2015 10:59:48
Выполняет только выгрузку новых записей по городам. Новые данные дописываются к уже имеющимся на Листе3 с отступом.
Изменено: |
|||||||
|
|
15.09.2015 11:25:52
TSN
на рабочем файле ошибка Runtime-time error '457': This key is already associated with an element of this collection oSDnew.Add arr(x, 1), 0 |
|
|
|
15.09.2015 11:31:45
Тут описка:
|
|||||
|
|
15.09.2015 12:19:49
TSN
а можете протестить на моем файле что я отправлял по поште? |
|
|
|
15.09.2015 12:27:47
замените строку 34
|
|||||||
|
|
15.09.2015 12:31:21
|
|||||
|
|
15.09.2015 12:58:58
я не правильно обяснил то что нужно, в итоге результат не тот Нужно с листа 380* скопировать на лист3 те строки(всю строку) в которих есть пустая ячейка в колонке Е но если ячейка F листа 380* равна ячейке A Листа1 то не копировать перевиложил пример |
|
|
|
15.09.2015 13:34:09
Последние варианты построены на массивах, всю строку загружать в массив нет смысла, скажите какова реальная ширина таблицы на листе 308* (сколько колонок таблицы ексель) ?
Когда освобожусь по основной работе напишу еще один вариант. А в целом если Вы хотите реализовать серьезный проект на работе без самостоятельного изучения VBA далеко не уедеш. |
|
|
|
15.09.2015 14:06:59
TSN
10 колонок |
|
|
|
15.09.2015 17:00:13
Изменено: |
|||||||
|
|
15.09.2015 17:15:13
все супер. Большое спасибо а можете еще етот макрос подправить для все также, только Лист2 и для пустой ячейки в колонке D я подправил но, не тот результат(Sub GetEmptyRows22() нужно бутет запускать сразу после Sub GetEmptyRows())
Изменено: |
|||
|
|
15.09.2015 19:10:39
Подправлю, только завтра на работе. Сейчас пиво с рыбкой не дает думать.
В целом можно одной процедурой выполнить две задачи и получить результат. |
|
|
|
16.09.2015 13:37:14
строка 37 кода
Обратите внимание, что в моем примере процедура загружает данные в массив с .Cells(1, 5) и .Cells(Rows.Count, 6), то есть массив имеет размерность arr (1 to x, 1 to 2), а в вашем случае arr (1 to x, 1 to 3) - изменилась размерность массива. Следовательно изменилась ссылка на данные в массиве при анализе, а именно на поле "F" таблицы и если изменить строки 41, 42 на: ... всё опять будет работать как надо.
Повторюсь еще раз. Две процедуры обрабатывающие одни данные (с небольшим различием в анализе) на более чем 100000 строк не эффективно. Лучше подкорректировать текущую, добавив 10 строк кода и получить результат работы двух процедур, хотя если скорость выполнения не критична и полученные данных по двум вариантам нужны в разное время то можно оставить и так.
Изменено: |
|||||||
|
|
16.09.2015 13:53:19
спасибо. работает. а можете еще помочь с макросом нужно, например, если есть пустая ячейка в колонке F, то скопировать строки на Лист3, с шапкой "Отстутствуют дание" |
|
|
|
16.09.2015 13:55:21
sergey2303, Вы уже растянули тему на три страницу. И каждый раз всё новые и новые пожелания... Какое отношение Ваш вопрос имеет к заявленной теме?
|
|
|
|
16.09.2015 14:00:47
|
|||||
|
|
17.09.2015 12:28:42
а можете еще добовить одно условие для копирования строк? нужно еще копировать строки, если пустие ячейки E и F b и не пустая С (строки копировать вместе с теми что описани в посте 80 и под одной шапкой) |
||||
|
|
|||