Добрый день, господа. Нужна Ваша помощь по VBA. В Excel есть таблица.Нужно написать формулу подсчета суммы
Private Sub CommandButton7_Click()
For i = 1 To 50
For J = 3 To 40
Worksheets(1).Activate
If Trim(Cells(i + FirstRow - 1, 38)) = "С" Then
подсчитываю сумму
Worksheets(1).Cells(i + FirstRow - 1, 39).FormulaR1C1 = "=SUM(RC[-36]:RC[-6])/12" ' это сумма строки С10:AG10
А мне надо к этому выражению прибавить еще сумму строку C11:AG11.
Так уже не работает.
Worksheets(1).Cells(i + FirstRow - 1, 39).FormulaR1C1 = "=SUM(RC[-36]:RC[-6])/12" + (R[1]C[-36]:R[1]C[-6])}/12")
NumStr = NumStr + 1
End If
Next J
Next i
End Sub
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
