Страницы: 1
RSS
Как писать формулы в формате Cells?
 
Извините если было, но мозг уже не в состоянии воспользоваться поиском)

как записать формулу вида
Range("P3").Formula = "=J3-D3"
в формате Cells?

Cells(3, i).Formula = "=" & Cells(3, i - (LastColTek - 3)) & "-" & Cells(3, i - (LastColTek + LastColSr - 6)) не работает)
 
Немного не по теме :) Если макрос - зачем формулы?
 
Логичный вопрос))) Попробую подумать в другом направлении))))

Таблица просто большая, хотел заполнить верхнюю ячейку и протянуть формулы)))
Изменено: TankSpb - 21.04.2013 11:42:45
 
вопрос решился таким способом
Код
For i = LastColSr + LastColTek - 2 To LastColSr * 2 + LastColSr - 6
    For j = 3 To LastRow
Cells(j, i).Value = Cells(j, i - (LastColTek - 3)) - Cells(j, i - (LastColTek + LastColSr - 6))
    Next
Next
 

Работает, только считает долго. Можно ускорить?
 
... подумал сам и решил, что будет быстрее сделать расчеты в массиве в выгрузить результат)
 
Как i вычисляется?

Код
Range(Cells(3,1),cells(3,i)).FormulaR1C1 = "=R3C10-R3C4"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Сложно объяснить как i вычисляется, но решение я понял) Спасибо)
 
Код
For i = LastColSr + LastColTek - 2 To LastColSr * 2 + LastColSr - 6
Cells(3, i).FormulaR1C1 = "=R[3]C" & i - (LastColTek - 3) & "-R[3]C" & i - (LastColTek + LastColSr - 6)
Next
Range(Cells(3, LastColSr + LastColTek - 2), Cells(3, LastColSr * 2 + LastColSr - 6)).AutoFill Destination:=Range(Cells(3, LastColSr + LastColTek - 2), Cells(LastRow, LastColSr * 2 + LastColSr - 6))


Всем спасибо, все получилось)
 
Может без цикла лучше?
Код
Range(Cells(3, LastColSr + LastColTek - 2), Cells(LastRow, LastColSr * 2 + LastColSr - 6)).FormulaR1C1 = "=R[3]C-R[3]C"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх