Запись формул в ячейки с помощью VBA

[Lyubov1990]

Здравствуйте, помогите пожалуйста, как можно записать вот эту формулу =СУММЕСЛИ(Нагрузка!CB:CB;A120;Нагру зка!AG:AG) в ячейку на листе с помощью VBA? Нагрузка - это название одного из листов рабочей книги!

[EducatedFool]

А так не пробовали?

Sub ЗаписьФормул()
    Application.Calculation = xlCalculationManual
    Range("a1").FormulaLocal = "=СУММЕСЛИ(Нагрузка!CB:CB;A120;Нагрузка!AG:AG)"
    ' здесь пишем остальные формулы
    Application.Calculation = xlCalculationAutomatic
End Sub

[SAS888]

Можно и без записи формулы в ячейку:

[A1] = Application.SumIf(Sheets("Нагрузка").[CB:CB], [A120], Sheets("Нагрузка").[AG:AG])

[Lyubov1990]

Почему у меня ошибка? Вроде все правильно!
Sub ЗаписьФормул()
'Вычисление последней занятой строки на листе Преподаватели
n = WorksheetFunction.CountA(Worksheets ("Преподаватели").Range("A:A"))
krit = Worksheets("Преподаватели").Cells(n , 1).Value
Cells(n, 1).FormulaLocal = "=СУММЕСЛИ(Нагрузка!CB:CB;[krit];Нагрузка!AG:AG)"
' здесь пишем остальные формулы
Application.Calculation = xlCalculationAutomatic
End Sub

[EducatedFool]

Попробуйте так:

Sub ЗаписьФормул()
    'Вычисление последней занятой строки на листе Преподаватели
    n = WorksheetFunction.CountA(Worksheets("Преподаватели ").Range("A:A"))
    krit = "Преподаватели!" & Cells(n, 1).Address
    Cells(n, 1).FormulaLocal = "=СУММЕСЛИ(Нагрузка!CB:CB;" & krit & ";Нагрузка!AG:AG)"
    ' здесь пишем остальные формулы
    Application.Calculation = xlCalculationAutomatic
End Sub

А лучше так:

Sub ЗаписьФормул()
    krit = "Преподаватели!" & Worksheets("Преподаватели ").Range("A65000").End(xlUp).Address
    Cells(n, 1).FormulaLocal = "=СУММЕСЛИ(Нагрузка!CB:CB;" & krit & ";Нагрузка!AG:AG)"
End Sub

[Lyubov1990]

Спасибо большое, всё получилось))))

[Lyubov1990]

Помогите пожалуйста, не могу вставить формулы!

Sub ЗаписьФормулНагрузка()

'Вычисление последней строки на листе Группа
n = WorksheetFunction.CountA(Worksheets ("Нагрузка").Range("A:A"))

'определяем адреса ячеек по которым будем высчитывать
krit = "Нагрузка!" & Cells(n - 2, 3).Address 'c
krit1 = "Нагрузка!" & Cells(n - 2, 5).Address 'e
krit2 = "Нагрузка!" & Cells(n - 2, 35).Address 'ai
krit3 = "Нагрузка!" & Cells(n - 2, 2).Address 'b
krit4 = "Нагрузка!" & Cells(n - 2, 9).Address 'i
krit5 = "Нагрузка!" & Cells(n - 2, 32).Address 'af
krit6 = "Нагрузка!" & Cells(n - 2, 33).Address 'ag
krit7 = "Нагрузка!" & Cells(n - 2, 34).Address 'ah
krit8 = "Нагрузка!" & Cells(n - 2, 8).Address 'h
krit9 = "Нагрузка!" & Cells(n - 2, 13).Address 'm
krit10 = "Нагрузка!" & Cells(n - 2, 16).Address 'p
krit11 = "Нагрузка!" & Cells(n - 2, 21).Address 'u
krit12 = "Нагрузка!" & Cells(n - 2, 70).Address 'br
krit14 = "Нагрузка!" & Cells(n - 2, 51).Address 'ao
krit15 = "Нагрузка!" & Cells(n - 2, 67).Address 'bo
krit16 = "Нагрузка!" & Cells(n - 2, 68).Address 'bp
krit17 = "Нагрузка!" & Cells(n - 2, 69).Address 'bq

' записываем формулы в ячейки
'Cells(n - 2, 8).FormulaLocal = "=ЕСЛИ(" & krit2 & ">0;ИНДЕКС(Группы!L:L;ПОИСКПОЗ( " & krit1 & ";Группы;0));"")"
'Cells(n - 2, 40).FormulaLocal = "=ЕСЛИ(" & krit12 & ">0;ИНДЕКС(Группы!M:M;ПОИСКПОЗ( " & krit1 & ";Группы;0));"")"

'Cells(n - 2, 37).FormulaLocal = "=ЕСЛИ(СУММ(" & krit8 & ")>8;СУММ(" & krit4 & ":" & krit9 & ";" & krit10 & ":" & krit11 & ")/" & krit8 & ";"")"
'Cells(n - 2, 34).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Платное'; СУММ(" & krit4 & ":" & krit5 & ");0)"
'Cells(n - 2, 33).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Бюджетное'; СУММ(" & krit4 & ":" & krit5 & ");0)"
'Cells(n - 2, 68).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Бюджетное'; СУММ(" & krit14 & ":" & krit15 & ");0)"
'Cells(n - 2, 69).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Платное'; СУММ(" & krit4 & ":" & krit5 & ");0)"

End Sub