Здравствуйте, уважаемые.
Возникла неожиданная пакость: мне урезали права доступа к 1С, из-за чего я не могу получать НОРМАЛЬНУЮ оборотную ведомость, а получаю динамику продаж склада, а это привело к нарушению логики работы моей автоматики.
Суть: 1С выдавала таблу со столбцами : Товар, приход, расход, цена, сумма .... (из-за последних мне доступ и подрезали). Взять из неё любую инфу формулой СУММЕСЛИ() - не проблема, что и делалось на протяжении года

Теперь выдаёт только таблу с полями : Клиент, Адрес, а дальше столбцы с наименованиями товара, который был продан за рассматриваемый период, причём клиенты разбиты по группам (типа "Восток", "Запад", "Город1", "Город2", "Пригород"...)
Всё бы ничего, но товары разбиты на группы по видам (Вода минеральная, Вода сладкая, Пиво КЕГовое, Пиво бутылочное...), каждая группа разбита на бренды (Минералка "ИСТОЧНИК", Минералка "Урюк".....), бренд делится на сорта ("ИСТОЧНИК" Сильногазированный, "Урюк" Негазированный,...), а сорта ещё и на упаковки (0,5л стекло, 1л ПЭТ, 5л ПЭТ, 0,25л ж/б ....)

Самая проблемная часть - это нерегулярность продаж КАЖДОГО товара и связанное с этим НЕПОСТОЯНСТВО количества и положения полей в таблице. То есть, сегодня продавались "Источник" С/Г 0,5л бут, "Урюк" 5л ПЭТ, "Урюк" С/Г 1л ПЭТ, соответственно табла будет иметь 5 столбцов (Клиент, Адрес и эти три)
Завтра к группе прибавятся продажи "Источника" Н/Г 1лПЭТ, причём 1С воткнёт его МЕЖДУ столбцом "Адрес" и ""Источник" С/Г 0,5л бут", то есть таблица изменит структуру. Если "послезавтра" будет продан "Урюк" 0,25 ж/б, то он попадёт между "Урюк" 5л ПЭТ и  "Урюк" С/Г 1л ПЭТ - снова изменение структуры

Вопрос в следующем: как отследить подобные изменения на автомате и занести сумму значений столбца, например "Урюк" 0,25 ж/б в ячейку в другой книге (Если в полученной таблице нет этого поля, то 0)
(очень уж нехочется возвращаться в "каменный век" и долбить клаву цифрами)

я даже вижу пару возможных целей, но не знаю к ним пути:
1. Автоматически именовать диапазоны (какой-нибудь макрос)
2. делать циклом поиск вправо до совпадения, а от него суммировать вниз.

Пробовал БДСУММ(), но выдаёт ошибку по критериям - оказалось, что эта функция не может взять и искомое значение, и критерий из одной и той-же ячейки)
Пробовал СУММ(ДВССЫЛ(ПОИСКПОЗ())) - ПОМОГАЕТ СЛАБО, так как в строках по группам КЛИЕНТОВ подбиваются итоги
 

Насколько я понимаю, речь идет об Эксельном файле... в таком разе там есть такая фича как транспонирование матрицы, после чего ты получишь данные как тебе надо - в столбцах.

Как - см. встроенную справку по функции ТРАНСП(). Обязательно проделай приведенный в справке пример, причем точно по инструкциям. 

 найти нужный столбец поможет ф-я поискпоз 

dionisiu
У меня работает такой код:

Примечание:

• Для работы процедуры нужно подключить библиотеку: "Microsoft ActiveX Data Objects 2.0 Library"  либо выше (Редактор VBA->Tools->References->Microsoft ActiveX Data Objects 2.0 Library).
• Подразумевается, что данные находятся в открытой книге "Данные.xls", сохраненной на диске.
• Данные находятся на листе "Лист1" в непрерывном диапазоне, начало которого в ячейке "A1".
• Первая строка диапазона – заголовки.
• Заголовок первого столбца – Клиент.
• "Источник" С/Г 0,5л бут, "Урюк" 5л ПЭТ и т.д. – заголовки столбцов, начиная с 3-го.
• Данные в столбцах, начиная с 3-го – числовые.
• Итоги выводятся в новую книгу.
• Чтобы включить в итоговый запрос информацию о клиентах, нужно строки 18-19 заменить на:
  

  Код

  str_SQL = str_SQL & "SELECT rng_Data.Клиент, '" & str_Goods & "' AS [Товар], Sum(rng_Data.[" & fld_Name & "]) AS [Сумма] "     str_SQL = str_SQL & "FROM rng_Data "     str_SQL = str_SQL & "GROUP BY rng_Data.Клиент "

   

Это сообщение отредактировал(а) Aloha - 4.6.2006, 03:24

2 Akina:
Спасибо за внимание, однако ТРАНСП() в моём случае неудобен, так как список клиентов может достигать значений 400-500 точек, что для Экселя тяжко (не более 256 столбцов, кажется). Прошу прощения, в первом посте не указал.

2 Staruha:
ПОИСКПОЗ() действительно ищет столбец, однако в столбце 1С ставит промежуточные итоги для различных групп (клиенты группируются по маршрутам, а потом маршрутные итоги группируются по агентам, а в самом низу - общий итог), в результате чего формула СУММ() для столбца по ПОИСКПОЗ() выдаёт невероятных размеров сумму продаж (как минимум, утроенную)

2 Aloha:
ого!!!, спасибо за код, однако мне, как новичку в VBA требуется Ваши пояснения:
1. 1С выдаёт файл в формате Эксель95, то есть (не знаю, почему) он имеет только один лист, причём его имя от меня скрыто (не виден ярлык листа). При попытке добавить ещё один лист - новый перекрывает старый, но ярлыки листов не появляются!!!, в связи с чем вопрос - можно ли в строке 8 (Set Rng = Data_Wb.Sheets("Лист1").Range("A1").CurrentRegion) не указывать название листа?
2. насколько я понял, вывод готового потока будет в тот же файл, или я ошибаюсь?
3. Такой нюанс (прошу прощения, не озвучил в начале темы): для каждого клиента данные получаются в строке, причём если из всего ассортимента товара клиент брал лишь часть наименований, то в строке возникают пустые значения в столбцах "невзятого" товара - на таких вещах "спотыкаются" многие функции
4. Если не секрет, где вы используете такой код? я имею ввиду -Вам тоже приходится перегонять и обрабатывать данные между различными программами?

В заключение:
прилагаю файл, в котором я только изменил названия фирм, брендов, сортов и клиентов (включая адреса).
Обращаю внимание, что значительная часть строк удалена, в связи с чем итоги - нереальны. В остальном, формат и содержание (числовое) сохранены
 

Присоединённый файл ( Кол-во скачиваний: 1 )
 _______.xls 26,00 Kb

dionisiu

Посмотрел присоединенный файл – мой пример, вот так прям сразу, там работать не будет. Так что благодарность преждевременна.

Имя листа в присоединенном файле - "Sheet1".

Эта строка уже не актуальна, т.к. свойство CurrentRegion в рассматриваемом случае вернет не весь диапазон данных. Вот здесь likhobory очень подробно описал способы выделения диапазона данных.

Нет. В строке 30 создается новая Книга.

Похожий вопрос обсуждался здесь.

dionisiu. Мне лично задача не до конца ясна. Хотелось бы уточнить конечный формат представления данных.
 

[offtop]
примеры выложены с любезного разрешения автора (pashulka), здесь мы  - педанты   
[/offtop]