Страницы: 1
RSS
Добавление значений в ячейку с формулой, vba
 
Добрый день, извиняюсь за глупость вопроса, но толкового ответа не нашел. Есть макрос vba, который выполняет определенные действия, нужно чтобы он так же добавлял в ячейку с формулой значение, не стирая при этом уже написанную в ячейке формулу. Например, есть ячейка R74C101, в которой есть формула =RC[-49]*RC[-31], нужно чтобы макрос добавил к этой формуле ячейку B(B= ActiveCell.Offset(1, 0)). В итоге в формуле получится, например =RC[-49]*RC[-31]+R75C101. Дело в том, что ссылаться именно на RC[-49]*RC[-31] нельзя, тк диапазон большой, и формулы в ячейках разные, нужно именно оставлять то, что уже написано в ячейке, просто приписывать к формуле значение.
Изменено: Gogo Pav - 22.10.2021 10:15:52
 
Код
'Это основной макрос для добавления формулы
Sub AddFormula(cl As Range)
    cl.FormulaR1C1 = cl.FormulaR1C1 & "+R[1]C"
End Sub

'Например, для ячеек из выделенного диапазона добавить формулу можно так
Sub AddToSelection()
    Dim cl As Range
    For Each cl In Selection
        AddFormula cl
    Next
End Sub
 
МатросНаЗебре,Спасибо!
Страницы: 1
Наверх