Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2010, 10:35   #1
ddv1
 
Регистрация: 01.03.2010
Сообщений: 5
По умолчанию Перебрать и сравнить ячейки двух столбцов!

Гуру помогите пожалуйста Улыбаюсь
Мне надо что бы ячейки проверялись на равенство значений и если они равны, то только тогда
переносится значение из третьей ячейки второй книги в первую
Помогите пожалуйста, очень надо сравнить большой массив, а я в VBA никогда не программировал.
Смотрел помощь, но там ничего нет(
Вложения
Тип файла: rar Excel.rar (76.7 Кб, 37 просмотров)
ddv1 вне форума Ответить с цитированием
Старый 01.03.2010, 10:53   #2
Dophin
Форумчанин
 
Аватар для Dophin
 
Регистрация: 13.01.2010
Сообщений: 410
По умолчанию

пример плохой, ВПР вам поможет.
Dophin вне форума Ответить с цитированием
Старый 01.03.2010, 11:06   #3
ddv1
 
Регистрация: 01.03.2010
Сообщений: 5
По умолчанию

Немного прокомментирую.
В графе 2 первой книги ячейка проходит по графе 1 второй книги и если находит соответствие то пишет в графу пять первой книги числовое значение из графы 2 второй книги.
Массивов таких много а я с VBA никогда не работал
ddv1 вне форума Ответить с цитированием
Старый 01.03.2010, 12:23   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".
Вложения
Тип файла: rar Excel.rar (77.2 Кб, 157 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 01.03.2010, 12:49   #5
ddv1
 
Регистрация: 01.03.2010
Сообщений: 5
По умолчанию

SAS888 премного вам благодарен!!!
Работает именно так как надо
ddv1 вне форума Ответить с цитированием
Старый 17.01.2011, 09:57   #6
bima67
 
Регистрация: 12.01.2011
Сообщений: 4
По умолчанию

А можно ли, и если да, то как переделать макрос Main.
Пример файла прилагаю. Очень нужно. Заранее спасибо.
Вложения
Тип файла: zip Лист Microsoft Excel.zip (14.5 Кб, 29 просмотров)
bima67 вне форума Ответить с цитированием
Старый 17.01.2011, 11:37   #7
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Вот красивое решение похожей задачи от R Dmitry 16.01.2011, 23:04 - http://www.planetaexcel.ru/forum.php?thread_id=23341
Можно по этому алгоритму и Вашу сделать - сперва отбор из массива уникальных в словарь (как Item пишем число тары), затем перебор второго массива и проверка на наличие в словаре, при совпадении проверка другого числа, далее можно сразу писать на лист, или если важна скорость - собирать в другом массиве, который в финале вывалить на лист.
А цвет можно заранее задать области выгрузки условным форматированием. Или если сразу писать на лист - можно красить кодом.
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 17.01.2011 в 11:39.
Hugo121 вне форума Ответить с цитированием
Старый 17.01.2011, 13:39   #8
bima67
 
Регистрация: 12.01.2011
Сообщений: 4
По умолчанию

Посмотрел ссылку. В принципе алгоритм понятен. Но реализовать самостоятельно не получается. Не достаточно знаний в этой области. Помогите!
bima67 вне форума Ответить с цитированием
Старый 04.02.2011, 12:39   #9
bima67
 
Регистрация: 12.01.2011
Сообщений: 4
По умолчанию

Да, а в ответ ни ответа, ни привета! Спасибо!
bima67 вне форума Ответить с цитированием
Старый 04.02.2011, 13:10   #10
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Полработы. Сделал на основе моего кода из ссылки ранее. Добавьте формулу разности и форматом красный цвет негативным, основной цвет зелёный.
Данные разнёс по листам (имхо так удобнее), но в принципе можно код переписать и под Ваше расположение.
Если данных очень много - то можно переделать на код от R Dmitry.
Вложения
Тип файла: rar CopyCheck.rar (12.6 Кб, 49 просмотров)
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 04.02.2011 в 13:28.
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнение двух столбцов в разных книгах LAnLorD Microsoft Office Excel 132 17.05.2022 08:16
Обмен двух столбцов на листе местами Decker Microsoft Office Excel 3 14.02.2010 14:31
Прибавление данніх из двух столбцов gavrylyuk Microsoft Office Excel 3 01.08.2008 11:40
Отображение в форме и таблице двух столбцов подстановок smoky Microsoft Office Access 5 01.07.2008 09:27
Как извлечь из двух столбцов несовпадающие строки Shavminator Microsoft Office Excel 4 28.12.2007 12:23