Сумма по листам в зависимости от № печати

[KApSuL]

Ребят помогите пожалуйста:
Листки 1-31 будут заполняться
В листке "за месяц":
Нужно чтобы искало номер печати, например "11" во всех столбиках с заголовком "№печати" по всем листкам 1-31 и если находит данную печать суммировало в листок "за месяц" количество
Пытался сделать с помощью суммеслимн, но почему-то не получается сделать по всем листкам
Или тут без макроса не обойтись?

[Казанский]

http://msexcel.ru/8-microsoft-excel/...%B2-excel.html

Трехмерные ссылки могут быть использованы для создания ссылок на ячейки на других листах, определения имен и создания формул с использованием следующих функций: СУММ, СРЗНАЧ, СРЗНАЧА, СЧЁТ, СЧЁТЗ, МАКС, МАКСА, МИН, МИНА, ПРОИЗВЕД, СТАНДОТКЛОН, СТАНДОТКЛОНА, СТАНДОТКЛОНП, СТАНДОТКЛОНПА, ДИСП, ДИСПА, ДИСПР и ДИСПРА.

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

[KApSuL]

Сообщение от Казанский

http://msexcel.ru/8-microsoft-excel/...%B2-excel.html
Можно создать пользовательскую функцию, но в нее нельзя передать трехмерный диапазон. Можно передать строку или номера листов, или в функции обрабатывать все листы от первого до того, откуда вызвана функция.

или же пойти индусским методом в стиле:

=СУММЕСЛИ('1'!$C2;C$1;'1'!$D2)+СУММЕСЛИ('1'!$E2;C$1;'1'!$F2)+СУММЕСЛИ('1'!$G2;C$1;'1'!$H2)+СУММЕСЛИ('1'!$I2;C$1;'1'!$J2)+СУММЕСЛИ('1'!$K2;C$1;'1'!$L2)+СУММЕСЛИ('1'!$M2;C$1;'1'!$N2)+СУММЕСЛИ('1'!$O2;C$1;'1'!$P2)+СУММЕСЛИ('1'!$Q2;C$1;'1'!$R2)+СУММЕСЛИ('1'!$S2;C$1;'1'!$T2)+СУММЕСЛИ('1'!$U2;C$1;'1'!$V2)
+СУММЕСЛИ('2'!$C2;C$1;'2'!$D2)+СУММЕСЛИ('2'!$E2;C$1;'2'!$F2)+СУММЕСЛИ('2'!$G2;C$1;'2'!$H2)+СУММЕСЛИ('2'!$I2;C$1;'2'!$J2)+СУММЕСЛИ('2'!$K2;C$1;'2'!$L2)+СУММЕСЛИ('2'!$M2;C$1;'2'!$N2)+СУММЕСЛИ('2'!$O2;C$1;'2'!$P2)+СУММЕСЛИ('2'!$Q2;C$1;'2'!$R2)+СУММЕСЛИ('2'!$S2;C$1;'2'!$T2)+СУММЕСЛИ('2'!$U2;C$1;'2'!$V2)
+СУММЕСЛИ('3'!$C2;C$1;'3'!$D2)+СУММЕСЛИ('3'!$E2;C$1;'3'!$F2)+СУММЕСЛИ('3'!$G2;C$1;'3'!$H2)+СУММЕСЛИ('3'!$I2;C$1;'3'!$J2)+СУММЕСЛИ('3'!$K2;C$1;'3'!$L2)+СУММЕСЛИ('3'!$M2;C$1;'3'!$N2)+СУММЕСЛИ('3'!$O2;C$1;'3'!$P2)+СУММЕСЛИ('3'!$Q2;C$1;'3'!$R2)+СУММЕСЛИ('3'!$S2;C$1;'3'!$T2)+СУММЕСЛИ('3'!$U2;C$1;'3'!$V2)

[Казанский]

Это не наш метод См. файл

Function СУММЕСЛИМН3d(diapSum As Range, diapUsl As Range, usl)
Dim i&, dS$, dU$
dS = diapSum.Address
dU = diapUsl.Address
For i = 1 To Application.Caller.Worksheet.Index - 1
  СУММЕСЛИМН3d = СУММЕСЛИМН3d + _
    Application.SumIfs(Worksheets(i).Range(dS), Worksheets(i).Range(dU), usl)
Next
End Function

[KApSuL]

Сообщение от Казанский

Это не наш метод См. файл

Function СУММЕСЛИМН3d(diapSum As Range, diapUsl As Range, usl)
Dim i&, dS$, dU$
dS = diapSum.Address
dU = diapUsl.Address
For i = 1 To Application.Caller.Worksheet.Index - 1
  СУММЕСЛИМН3d = СУММЕСЛИМН3d + _
    Application.SumIfs(Worksheets(i).Range(dS), Worksheets(i).Range(dU), usl)
Next
End Function

а как функцию активировать?
пишет ЗНАЧ#
вроде есть модуль с функцией, а функция чёт не работает
всё вроде, сделал, но всё-равно считает только по 1му листку
а..всё понял...считает по всем листкам но ищет только по одной паре столбцов
нужно расплодить её на 10 диапазонов?

[KApSuL]

Сообщение от Казанский

Это не наш метод См. файл

Function СУММЕСЛИМН3d(diapSum As Range, diapUsl As Range, usl)
Dim i&, dS$, dU$
dS = diapSum.Address
dU = diapUsl.Address
For i = 1 To Application.Caller.Worksheet.Index - 1
  СУММЕСЛИМН3d = СУММЕСЛИМН3d + _
    Application.SumIfs(Worksheets(i).Range(dS), Worksheets(i).Range(dU), usl)
Next
End Function

формула по ходу будет считать по всем строчкам одинаковое число
по сути нужен не диапазон с 1-23 а просто клеточка

[KApSuL]

а можете подсказать как в функции сделать сдвиг столбиков на +1
К примеру есть 2 начальные ячейки
D2 - тут суммирует количество штук
C2 - тут ищет № нашей печати
И чтобы в формуле в цикле for столбцы после каждой итерации сдвигались на 1 вправо и ячейки были уже
F2
E2
и так 10 раз подряд?

[IgorGO]

for c = 4 to 22 step 2
  if cells(2,c) then ' тут сумма
  if cells(2,c-1) then ' тут печать
next

[KApSuL]

а сюда как-то можно этот цикл применить?

Function СУММЕСЛИМН3d (diapSum As Range, diapUsl As Range, usl)
Dim i&, dS$, dU$, c
dS = diapSum.Address
dU = diapUsl.Address
For i = 1 To Application.Caller.Worksheet.Index - 1
  СУММЕСЛИМН3d = СУММЕСЛИМН3d + _
    Application.SumIfs(Worksheets(i).Range(dS), Worksheets(i).Range(dU), usl)
    
Next
End Function

И ещё может поможете разобраться
Не пойму почему но на 1-м листе

Асортимент	Код № печаті К-сть штук № печаті К-сть штук № печаті К-сть штук № печаті К-сть штук
унітаз Eko 010 041210	42 34	43 56	44 35	23 8
[/HTML]

Печати № 34 нету, но в общий листок "за месяц" считает каких-то 56 штук, никак не соображу в чём причина, формула должна по идее считать правильно

[KApSuL]

можете подсказать ещё момент

Function суммеслимн3d(diapSum As Range, diapUsl As Range, usl)

Dim i&, dS$, dU$, sColumnNamedS, sRowNumberdS, sColumnNamedU, sRowNumberdU


dS = diapSum.Address 'D2
dU = diapUsl.Address 'C2

sColumnNamedS = Mid(dS, 2, (InStr(2, dS, "$") - 2)) //вот тут по идее достаём номера столбца и рядка
sRowNumberdS = Mid(dS, (InStr(2, dS, "$") + 1))//вот тут по идее достаём номера столбца и рядка
sColumnNamedU = Mid(dU, 2, (InStr(2, dU, "$") - 2))//вот тут по идее достаём номера столбца и рядка
sRowNumberdU = Mid(dU, (InStr(2, dU, "$") + 1))//вот тут по идее достаём номера столбца и рядка

For i = 1 To Application.Caller.Worksheet.Index - 1
Do While sColumnNamedS < 22
суммеслимн3d = суммеслимн3d + _
    Application.SumIfs(Worksheets(i).Cells(sRowNumberdS, sColumnNamedS), Worksheets(i).Cells(sRowNumberdU, sColumnNamedU), usl)
    
sColumnNamedS = sColumnNamedS + 2
sColumnNamedU = sColumnNamedU + 2

Loop
Next
End Function

Как то так придумал, но не работает, может сможете помочь?
Просто не особо понимаю как вытащить из Range номер столбца чтобы к нему прибавлять +2 и перебрать все столбцы на листке