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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2015, 16:46   #11
Evgeniy71
 
Регистрация: 08.01.2015
Сообщений: 7
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Где-то я это уже читал
Проверили?
"Попугаев" нарисуете вручную, хотя можно конечно и код озадачить... Это я про bold, а заливка думаю лишняя. Просто мне лень в коде прописывать.
Большое спасибо за потраченное время и силы. Вставляем код как обычно Visual Basic - Insert module ? Че-то я совсем не соображу, это ж вроде как VLOOKUP3 создавать, верно?

Последний раз редактировалось Evgeniy71; 09.01.2015 в 16:49.
Evgeniy71 вне форума Ответить с цитированием
Старый 09.01.2015, 17:00   #12
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Типа того. В Visual Basic - Insert module, ну или в уже ранее созданный можно добавить.

Если нужна серая заливка - то думаю проще залить серым всё поле (только сперва нужно посмотреть сколько строк будет, и дополнительно подсчитать сколько будет столбцов), затем при выгрузке на этом месте заливку убирать.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 09.01.2015, 17:06   #13
Evgeniy71
 
Регистрация: 08.01.2015
Сообщений: 7
Хорошо

Hugo121,
Вы гений, огромное спасибо, вроде все работает.
Есть только пару моментов:
1) данный макрос сразу подставляет все данные самостоятельно. Хотелось бы что бы во вкладку RESULT (А3:А4000) вставлять необходимые для заказа номера материалов и получать данные по именно искомым материалам.

2) Макрос дает все данные по совпадениям. К примеру по материалу 39991829
KOLESNI 20 4 4
KOLESNI 34 30 33

возможно ли так:
KOLESNI 34 (максимальный срок поставки в системе) 4 (мин срок поставки по факту) 33 (макс. срок поставки по факту) в одной строке?

Последний раз редактировалось Evgeniy71; 09.01.2015 в 17:22.
Evgeniy71 вне форума Ответить с цитированием
Старый 09.01.2015, 21:52   #14
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

1.Там в коде есть строка
For Each el In Dic.keys
вот сразу за ней и проверяйте это el на наличие в списке избранных.
Я бы этот список загнал чуть выше в другой специально для этого дела созданный словарь и сверялся с ним (пример тут же в коде есть, если его прочитать), но можно определять поиском по диапазону или хоть просто циклом по списку.
Если в списке нет - всё до next пропускаем.
2.Сделать можно - из ключа выкидываем "& "|" & a(i, 3)", а в массив добавляем ещё одно поле, где будем хранить это максимальное значение (с ним работа аналогично как с теми двумя другими).
Ну и выгрузку чуть подправить нужно.

Я до понедельника без нормального Экселя, код вслепую писать не хочу. Попробуйте сами
Или может кто другой подправит... если свой список избранных покажете в файле (желательно в xls, может его мой калека примет...)
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
получение данных из файла и запись этих данных в другой. Jurii77 Microsoft Office Excel 9 23.11.2011 09:42
Программа для получения статистических данных с различных сайтов. raddonx Софт 0 21.02.2011 08:46
Работа статистических функций Волк Microsoft Office Excel 2 21.05.2009 06:52
Программа для сбора (с инет-порталов) и анализа статистических данных. Гаур-Мяур Помощь студентам 5 03.04.2009 15:49
Получение данных с БД. urgu_st SQL, базы данных 5 13.01.2009 15:11