Делаю шаблон для анкетирования посетителей магазинов
Столкнулся с такой проблемой (кратко суть):
1. в зависимости от диапазона дат, указанных на листе "total" идет создание листов с названиями, равными датам - сделано 2. на созданные листы копируются таблицы с листа "shape" - сделано 3. в итоговой таблице листа "total" под "дата посещения" добавляются строки для каждой даты; напротив каждой даты вставляются итоговые данные из аналогичных таблиц, расположенных на вновь созданных листах - сделано
4. необходимо, чтобы на листе "total" в таблице "Результаты анкетирования" в столбцы "Совершили покупку" и "Сумма покупки" вставились формулы суммирования данных из аналогичных таблиц каждых вновь созданных листов. Конкретно имеется в виду суммирования данных в соответствующих ячейках диапазона D17:E26 листа "Total" - не сделано
По п.4 есть 1 нюанс: необходимо учесть, что диапазон на Total может смещаться вниз в зависимости от кол-ва вставленных в таблицу дат строк. Я предлагаю сделать привязку к слову "Каналы"
PS извините за сумбур, прикрепил еще 1 доп файл ("Результат"), где смоделировал конечный результат, который мне нужен - см. диапазон, выделенный красным. В самом коде макроса неудачную попытку решить проблему п.4 выделил знаками '''''''''''''
с уважением,
Виталий
Уважаемые коллеги,
Делаю шаблон для анкетирования посетителей магазинов
Столкнулся с такой проблемой (кратко суть):
1. в зависимости от диапазона дат, указанных на листе "total" идет создание листов с названиями, равными датам - сделано 2. на созданные листы копируются таблицы с листа "shape" - сделано 3. в итоговой таблице листа "total" под "дата посещения" добавляются строки для каждой даты; напротив каждой даты вставляются итоговые данные из аналогичных таблиц, расположенных на вновь созданных листах - сделано
4. необходимо, чтобы на листе "total" в таблице "Результаты анкетирования" в столбцы "Совершили покупку" и "Сумма покупки" вставились формулы суммирования данных из аналогичных таблиц каждых вновь созданных листов. Конкретно имеется в виду суммирования данных в соответствующих ячейках диапазона D17:E26 листа "Total" - не сделано
По п.4 есть 1 нюанс: необходимо учесть, что диапазон на Total может смещаться вниз в зависимости от кол-ва вставленных в таблицу дат строк. Я предлагаю сделать привязку к слову "Каналы"
PS извините за сумбур, прикрепил еще 1 доп файл ("Результат"), где смоделировал конечный результат, который мне нужен - см. диапазон, выделенный красным. В самом коде макроса неудачную попытку решить проблему п.4 выделил знаками '''''''''''''
Я предлагаю сделать привязку к слову "Каналы" самостоятельно. [vba]
Код
Sub qq() Dim sh As Worksheet Dim a As Date, b, i&, sFormula$ On Error Resume Next With CreateObject("Scripting.Dictionary") For Each sh In Sheets a = CDate(sh.Name) If a Then .Item(a) = "'" & sh.Name & "'!" Next b = .items For i = 0 To .Count - 1 If i = 0 Then sFormula = "=" & b(i) & "R[19]C" Else sFormula = sFormula & "+" & b(i) & "R[19]C" End If Next End With Range("D19:E28").FormulaR1C1 = sFormula End Sub
[/vba]
Я предлагаю сделать привязку к слову "Каналы" самостоятельно. [vba]
Код
Sub qq() Dim sh As Worksheet Dim a As Date, b, i&, sFormula$ On Error Resume Next With CreateObject("Scripting.Dictionary") For Each sh In Sheets a = CDate(sh.Name) If a Then .Item(a) = "'" & sh.Name & "'!" Next b = .items For i = 0 To .Count - 1 If i = 0 Then sFormula = "=" & b(i) & "R[19]C" Else sFormula = sFormula & "+" & b(i) & "R[19]C" End If Next End With Range("D19:E28").FormulaR1C1 = sFormula End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
