Страницы: 1
RSS
Ввод формулы макросом в плавающий диапазон
 
Добрый день!
Задачка вроде не сложная, но не знаю как решить: есть три столбика - цена, кол-во, стоимость.
В этих столбика последняя строка - неопределенная и плавает.
Нужно макросом (циклом) внести формулу перемножения цены на количество - в каждую ячейку "стоимость".
Пример прилагаю.
То что должно получиться - в примере на листе №2.
 
Здравствуйте.
Попробуйте так
Код
Range("F10:F" & rowniz).FormulaLocal = "= D10*E10" 

или так

Код
Range("F10:F" & rowniz).FormulaR1C1 = "=RC[-2]*RC[-1]"
 
gling, спасибо) использовал второй вариант в цикле For Each.
Прилагаю на всякий случай файл с решением, может кому пригодится.
Изменено: Yuriy575 - 27.12.2021 09:02:14
 
Код
Sub iFormula()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "D").End(xlUp).Row
  For i = 10 To iLastRow
    Cells(i, "F").Formula = "=D" & i & "*E" & i
  Next
  Cells(iLastRow + 1, "F").Formula = "=Sum(F10:F" & iLastRow & ")"
End Sub
Изменено: Kuzmich - 27.12.2021 11:27:17
 
А цикл обязателен?
Код
Sub qq()
    rowniz = Worksheets("Ëèñò1").Cells(Rows.Count, 4).End(xlUp).Row
    Cells(10, "F").Resize(rowniz - 9).FormulaR1C1 = "=RC[-2]*RC[-1]"
    Cells(rowniz + 1, "F").FormulaR1C1 = "=SUM(R10C6:R[-1]C)"
End Sub
 
RAN, да, циклом мне показалось удобней, т.к. диапазоны плавающие у меня
Изменено: Yuriy575 - 06.01.2022 16:58:22
Страницы: 1
Наверх