|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.03.2013, 17:54 | #21 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Я только за
webmoney: E265281470651 Z422237915069 R418926282008
|
05.03.2013, 19:04 | #22 |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
я вот немного подумал, как такой вариант?
Код:
Единственный способ стать умнее, играть с более умным противником...
|
05.03.2013, 19:14 | #23 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Некогда сейчас писать свой вариант (да и надоело слегка ), но есть пока 2 замечания:
1. Тогда нужно бы сперва взять в словарь/массив с листа "Нет в прайсе" и дополнять его, иначе там могут нарасти повторы. 2. Я специально разбил исходные данные на 2 массива - чтоб не выгружать назад столбец "Прайс", а только товары. Но это несущественно - так, экономия ресурсов...
webmoney: E265281470651 Z422237915069 R418926282008
|
05.03.2013, 22:31 | #24 | |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
Цитата:
Единственный способ стать умнее, играть с более умным противником...
|
|
06.03.2013, 11:24 | #25 |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
ну вот как-то так :
Код:
Единственный способ стать умнее, играть с более умным противником...
|
06.03.2013, 14:58 | #26 |
Регистрация: 13.05.2012
Сообщений: 9
|
Ув. staniiislav! Спасибо за Вашу доработку! Теперь на отдельный лист вместе с перечнем несуществующих в прайсе товаров вносится и имя компа, и время работы,очень удобно! Правда, чтобы это заработало,пришлось удалить из кода Hugo121 строки
With Workbooks.Add.Worksheets(1) .Range("A1").Resize(ndic.Count) = Application.Transpose(ndic.keys) .Range("B1").Resize(ndic.Count) = Application.Transpose(ndic.items) End With Кстати,насчет повторов в листе "Нет в прайсе" мне тоже до лампочки, его ведь тоже можно отсортировать и посмотреть,этот список мне нужен исключительно для общего сведения. Ваш последний вариант кода из поста 25 я тоже попробовала,но он,если был товар не из прайса в предыдущем заказе, и потом в последующем, к сожалению не работает,пока не удалишь внесенную строку в листе "Нет в прайсе". Уважаемые Hugo121 и staniiislav! Благодаря Вам я уже получила код,который меня абсолютно устраивает! Моей душеньке и желать более нечего! Как я хотела, так макрос и работает! Огромное Вам спасибо! Хотя мне очень интересно, до какого еще более совершенного варианта Вы додумаетесь в своем соревновании! Ребята,я вас люблю! Обязательно еще зайду и посмотрю,чем же все-таки дело кончится! А пока еще раз благодарю Вас за помощь! С уважением Ники. |
06.03.2013, 15:47 | #27 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Да в общем мы не соревнуемся
Я просто упростил, и блох выискиваю. Вот одну поймал в последнем коде Станислава: если допустим в заказе товар12 маг2-7кг а в прайсах есть товар12 маг1-8кг товар12 маг3-8кг то результат товар12 маг1-8кг, маг2-7кг товар12 маг3-8кг, маг2-7кг что думаю неправильно. Всёж я думаю что сперва нужно в прайсах убрать дубли отдельной процедурой или как угодно, ну а потом уже несложным кодом подтягивать новые заказы и отбирать в сторону те, что нет в прайсах. А то этот последний код такой навороченный, что мне и вникать неохота
webmoney: E265281470651 Z422237915069 R418926282008
|
06.03.2013, 16:16 | #28 |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
просто если в листе "Нет в прайсе" уже есть такой товар, он просто дополняется. Это было сделано, чтобы можно было избежать повторов. Это легко подправить, на последний макрос Hugo121 для Вас подойдет лучше...
Единственный способ стать умнее, играть с более умным противником...
|
07.03.2013, 00:15 | #29 | |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
Цитата:
Вообщем мой последний код нужно полностью пересмотреть ))))
Единственный способ стать умнее, играть с более умным противником...
|
|
07.03.2013, 12:02 | #30 |
Форумчанин
Регистрация: 16.04.2010
Сообщений: 695
|
не а каком соперничестве и речи не может быть! Я только учусь, а Hugo121 профи!
Единственный способ стать умнее, играть с более умным противником...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос для копирования значений из нескольких файлов в один общий с определенным условием копирования | zenner | Microsoft Office Excel | 0 | 21.03.2011 14:48 |
Как собирать объявления с других сайтов в один общий? | ww888 | Помощь студентам | 1 | 23.07.2010 20:28 |
Один сервер и несколько клиентов: организация передачи файлов | evgenidem | Работа с сетью в Delphi | 0 | 23.11.2009 11:26 |
Как перенести данные столбцов в один столбец? | CaustiC | Microsoft Office Excel | 4 | 04.03.2009 11:11 |
Как вывести один столбец в несколько??? | M&Ms | Microsoft Office Excel | 9 | 21.07.2008 14:19 |