Увеличить номер столбца ячейки на +2 в макросе

[KApSuL]

Во общем проблема я так понимаю в том, что я хочу добавить к столбцу ячейки с адресом D2 +2 на столбец чтобы получился адрес F2

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

Подскажите, пожалуйста, как такое можно провернуть?Может как-то переводить в R1C1 формат или типа того?

[Aleksandr H.]

если diapSum i diapUsl - ячейки D2, C2 то разве
diapSum.Column, diapUsl.Column не дадут номера столбцов?

[KApSuL]

чёт не выходит =(
Пробую типа такого, пишет ошибку

Sub 3d()
Dim s1, s2
s1 = Worksheets(1).Cells(2, 4)
MsgBox (s1)
s2 = Range(s1).Column
MsgBox (s2)
End Sub

А всё кажись понял, спс

Sub 3d()
Dim s1, s2
s1 = Worksheets(1).Cells(2, 4).Address
MsgBox (s1)
s2 = Range(s1).Column
MsgBox (s2)
End Sub

[IgorGO]

разве diapSum.Column, diapUsl.Column не дадут номера столбцов

дадут... и что?

и что теперь KApSuL будет с этим делать?

Aleksandr H., разве по предыдущей теме не понятно, что подсказывать - бесполезно, полезно для ТС может быть только готовое и точное решение его задачи, а точное решение задачи возможно тогда, когда задача точно обьяснена, без точных обьяснений какой смысл "ломать копья"?

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

[KApSuL]

вот запилил, вроде работает, но почему то перестало работать по всем страницам книги

Function SUMIFM3d(diapSum As Range, diapUsl As Range, usl)

Dim i&, dS$, dU$, dSc, dUc, dSr, dUr

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

dSc = Range(dS).Column
dUc = Range(dU).Column
dSr = Range(dS).Row
dUr = Range(dU).Row

For i = 1 To Application.Caller.Worksheet.Index - 1

Do While dSc <= 22
  SUMIFM3d = SUMIFM3d + _
    Application.SumIfs(Worksheets(i).Cells(dSr, dSc), Worksheets(i).Cells(dUr, dUc), usl)
    
    dSc = dSc + 2
    dUc = dUc + 2

Loop
Next

End Function

Подскажет может кто в чём проблема подсчёта по всей книге?
Я понимаю что толком ничего не понимаю, но всё же пытаюсь...

[Aleksandr H.]

Поставь

dSc = Range(dS).Column
dUc = Range(dU).Column
dSr = Range(dS).Row
dUr = Range(dU).Row

после

For i = 1 To Application.Caller.Worksheet.Index - 1

[KApSuL]

спасибо большое, помогло
прицеплю файлик, мо кому надо будет