Архив форумов ЦИТФорума

[timofeir]

есть workbook из 200 листов. надо вставить определенную формулу (=СРЗНАЧ(C3:C14;G3:G14)) в определенную ячейку на каждом листе. тупо присвоить ячейке текст (cells(2,2) = "формула") не получается.

[Vadim O. Maslennikov]

Должно получится
Worksheets("Лист1").Cells(2, 2).Formula = "=AVERAGE(C3:C14;G3:G14)"
Ну и в цикле вместо "Лист1" подставлять имя каждого из 200 листов - в Worksheets(...) можно ставить не константу а строковую переменную.
ПРИ ЭТОМ В ФОРМУЛАХ ВСЕ ФУНКЦИИ ДОЛЖНЫ УКАЗЫВАТЬСЯ В АНГЛИЙСКОМ ЭКВИВАЛЕНТЕ ДАЖЕ ЕСЛИ САМ EXCEL РУССКИЙ, т.е не СРЗНАЧ, а AVERAGE; не МИН, а MIN , и т.д.