Мой первый макрос

[valerij]

Сообщение от SAS888

В VBA можно использовать функцию рабочего листа Excel WorksheetFunction объекта Application

SAS!
Теперь Понял, а то я циклами, суммы, собираю. Еще пара вопросов:
1. А тут можно, упростить?

With Application
            [D27].Offset(iC * 28) = .Sum([D3:E26].Offset(iC * 28))
            [E27].Offset(iC * 28) = .Sum([E3:E26].Offset(iC * 28))
            [H8].Offset(iC * 28) = .Sum([H3:H7].Offset(iC * 28))
            [H15].Offset(iC * 28) = .Sum([H10:H14].Offset(iC * 28))
            [K16].Offset(iC * 28) = .Sum([K5:M15].Offset(iC * 28)) - [L12].Offset(iC * 28) - [L13].Offset(iC * 28)
            [F21].Offset(iC * 28) = [D27].Offset(iC * 28) + [H8].Offset(iC * 28) + [H15].Offset(iC * 28)
            [H21].Offset(iC * 28) = [F21].Offset(iC * 28) + [B1].Offset(iC * 28) + [A3].Offset(iC * 28)
           [F24].Offset(iC * 28) = [H21].Offset(iC * 28) - [K3].Offset(iC * 28) - [N3].Offset(iC * 28) - [K4].Offset(iC * 28) - [N4].Offset(iC * 28) _
           - [K16].Offset(iC * 28)
End With

2. Почему так не получается?

[H21].Offset(iC * 28) = .Sum([F21], [B1], [A3].Offset(iC * 28))

вроде проще, чем в 1.

[SAS888]

Почему так не получается?

Что значит "не получается"?
Все Ваши вычисления, если, конечно, не требуется иметь промежуточные результаты в указанных ячейках, можно записать в одну строку:

With Application
        [F24].Offset(iC * 28) = .Sum([D3:E26].Offset(iC * 28), [H3:H7].Offset(iC * 28), _
            [H10:H14].Offset(iC * 28), [B1].Offset(iC * 28), [A3].Offset(iC * 28)) _
            - [K3].Offset(iC * 28) - [N3].Offset(iC * 28) - [K4].Offset(iC * 28) _
            - [N4].Offset(iC * 28) - .Sum([K5:M15].Offset(iC * 28)) + [L12].Offset(iC * 28) + [L13].Offset(iC * 28)
    End With

[valerij]

Сообщение от SAS888

Что значит "не получается"?

[H21].Offset(iC * 28) = .Sum([F21], [B1], [A3].Offset(iC * 28))
В таком виде, результат суммы, отображается до самого конца цикла(iC) и при iC = 1 и > не верный результат

можно записать в одну строку

Понял. Не подходит.

САС, а почему так нельзя?
With Application.Offset(iC * 28)