Vlad_imir » 23 мар 2011, 16:17
Представьте себе некую таблицу в (на) листе Excel, которая начинается (после шапки) с 8 строки. В первом столбце - наименование товара, во втором штрих-код в виде набора "циферек". Далее столбцы - количество, цена и остаток товара на складе (несколько столбцов нескольких магазинов). Компоненты таблицы клиент собирает из 1С для своих специфических целей. Цель посчитать (просуммировать) остатки, сверить с данными поставщика, отнять остаток от количества поставщика, выяснить ценовую разницу по отдельным магазинам (в магазинах цены разные на один и тот же товар). Так вот, когда данные берутся из 1 С, макрос, который все то, что перечислено, делает, не видит в упор отдельные шрих-коды. В результате невозможно идентифицировать одинаковые товары. Почему? Да потому что 1С форматирует ячейки по-своему. Причем сбросить этот формат очень трудно (это проблема обсуждается на различных форумах по VBA и толком никто не может ничего сказать). Я тоже долго парился над решением этой проблемы и случайно нашел способ, который Вы не найдете нигде. Суть способа в том, что
my_format = ActiveSheet.Cells(i, 2)
ActiveSheet.Cells(i, 2).FormulaR1C1 = my_format
фактически делает условный двойной клик в ячейке и это, как ни странно, сбрасывает формат и ячейка становится "General", что приводит к единому отображению шрих-кодов понятному макросу. В публикации я привел часть кода макроса, который приводит в формат "General" второй столбец таблицы (со шрих-кодами), начиная с 8 строки и по последнюю заполненную строку в таблице по столбцу "A".
И последнее, Excel и VBA мощная вещь и в этой среде часто дешевле получить требуемые результаты, чем через обработки 1С. У меня, например, был очень заказ, когда пришлось в VBA сделать финансовую модель предприятия за три с половиной года, чтобы найти, где бухгалтер и директор воруют. При этом независимый аудитор подтверждал правильность данных бухгалтера и директора, а специалисты заказчика тоже соглашались с правильностью данных бухгалтера и директора. Модель же в VBA, просчитав все в динамике времени, нашла $50 тыс. недостачи. Заказчик очень щедро рассчитался за работу!
![[Новость]](http://bb.f2.kz/ru/styles/prosilver/imageset/icon_topic_reported.gif "[Новость]"){kind=icon}