Здравствуйте, просьба подсказать где допускаю ошибку при написании кода.
Либо же скиньте примеры использования кода СчетЕслиМН; Значен; ДатаЗнач.
Описания ситуации:
Имеются два отчета: Данные от менеджеров и данные выгруженные с системы 1С.
Постановка задачи – с общей совокупности данных системы 1С проверить отчеты Менеджеров на правильность внесения данных… и указать соответственные отличия для возможной дальнейшего уточнения информации.
Ниже я прикрепляю файл-пример – где проиллюстрирую частичный прототип данных и непосредственный расчет данных в виде кода которые можно также посмотреть (ниже отдельно прикреплю имеющийся у меня на данный момент код. В файле «Пример» - на листе «Нужный вариант)» отображается ситуация к которой я хочу прийти (за исключением выделенного синим цвета ячейки (где я с помощью VBA не могу правильно использовать функцию Значен). Сейчас рассчеты проведены руками…
В этом коде мне нужно отредактировать данные:
1. Исчисление формулы СчетЕслиМН (на данные момент выдает результат 0 – проблема – необходимо откорректировать данные выгрузки с данных 1С (перевести их в формат даты) – с помощью ДатаЗнач не могу сделать (буду очень благодарным за подсказку в этом плане – при этом при исчислении в обычном режиме с помощью формул Excel воспринимает эти данные и есть возможность исчисления (смотри лист «Нужный вариант» столбец 12).
Cells(CambRow, 12) = WorksheetFunction.CountIfs(Range("Agent"), Cells(CambRow, 3), Range("Docum"), Cells(CambRow, 1), Range("Summ"), Cells(CambRow, 7), Range("Date1"), Cells(CambRow, 2))
2. Некоторые и данных файлов менеджеров (суммы идут как текст) – при попытке отредактировать с помощью Значен – результата не было.
Cells(CambRow, 7) = WorksheetFunction.Sum(Range(Cells(CambRow, 4), Cells(CambRow, 6)))
3. Если менеджеры продавали товар клиенту несколько раз необходимо произвести подсчет общей суммы товаров проданного клиенту за месяц:
Для этого я с общей выборки 1С данных ФИО – отобрал уникальные значения и с помощью функции СуммЕсли – узнаю общую сумму (на данном этапи этого сделать не удается): вот строка рассчета
Cells(CambRow, 20) = WorksheetFunction.SummIf(Range(Cells(2, 15), Cells(FIOLastRow, 17)), Cells(CambRow, 19), Range("Summ"))
Я использую именованные диапазоны – так что более разумно смотреть наверное в самом Коде
Решение этих пунктов помогут мне достичь конечной задачи.
Буду благодарный всем кто проявит интерес к этой задаче.
Либо же скиньте примеры использования кода СчетЕслиМН; Значен; ДатаЗнач.
Описания ситуации:
Имеются два отчета: Данные от менеджеров и данные выгруженные с системы 1С.
Постановка задачи – с общей совокупности данных системы 1С проверить отчеты Менеджеров на правильность внесения данных… и указать соответственные отличия для возможной дальнейшего уточнения информации.
Ниже я прикрепляю файл-пример – где проиллюстрирую частичный прототип данных и непосредственный расчет данных в виде кода которые можно также посмотреть (ниже отдельно прикреплю имеющийся у меня на данный момент код. В файле «Пример» - на листе «Нужный вариант)» отображается ситуация к которой я хочу прийти (за исключением выделенного синим цвета ячейки (где я с помощью VBA не могу правильно использовать функцию Значен). Сейчас рассчеты проведены руками…
В этом коде мне нужно отредактировать данные:
1. Исчисление формулы СчетЕслиМН (на данные момент выдает результат 0 – проблема – необходимо откорректировать данные выгрузки с данных 1С (перевести их в формат даты) – с помощью ДатаЗнач не могу сделать (буду очень благодарным за подсказку в этом плане – при этом при исчислении в обычном режиме с помощью формул Excel воспринимает эти данные и есть возможность исчисления (смотри лист «Нужный вариант» столбец 12).
Cells(CambRow, 12) = WorksheetFunction.CountIfs(Range("Agent"), Cells(CambRow, 3), Range("Docum"), Cells(CambRow, 1), Range("Summ"), Cells(CambRow, 7), Range("Date1"), Cells(CambRow, 2))
2. Некоторые и данных файлов менеджеров (суммы идут как текст) – при попытке отредактировать с помощью Значен – результата не было.
Cells(CambRow, 7) = WorksheetFunction.Sum(Range(Cells(CambRow, 4), Cells(CambRow, 6)))
3. Если менеджеры продавали товар клиенту несколько раз необходимо произвести подсчет общей суммы товаров проданного клиенту за месяц:
Для этого я с общей выборки 1С данных ФИО – отобрал уникальные значения и с помощью функции СуммЕсли – узнаю общую сумму (на данном этапи этого сделать не удается): вот строка рассчета
Cells(CambRow, 20) = WorksheetFunction.SummIf(Range(Cells(2, 15), Cells(FIOLastRow, 17)), Cells(CambRow, 19), Range("Summ"))
Я использую именованные диапазоны – так что более разумно смотреть наверное в самом Коде
Решение этих пунктов помогут мне достичь конечной задачи.
Буду благодарный всем кто проявит интерес к этой задаче.