Настройка макроса, который будет форматировать строку из активной ячейки

Question

Я пытаюсь создать макрос, который будет форматировать строку.Я могу сделать тот, который форматирует определенный диапазон, но мне интересно, как форматировать в соответствии с выбранной строкой.

Я не особо старался, потому что я очень новичок в этом и не знал, с чего начать.Я не хотел выдергивать свои волосы, пробуя случайные вещи.Я едва кодер и просто не знаю никого, кто может мне помочь.

Range("D131").Select
ActiveCell.FormulaR1C1 = "TOTAL"
Range("G131").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("F131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
Range("E131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
Range("F128").Select

Таким образом, вместо того, чтобы иметь диапазон D131, есть ли способ, чтобы это значение было специфичным для активной ячейки?а затем перейти к следующим ячейкам и формулам соответственно.Если мне неясно, дайте мне знать, и я постараюсь объяснить себя по-другому.

Answer 1

Что-то вроде этого должно работать для вас:

Sub tgr()

    If TypeName(Selection) = "Range" Then
        With Intersect(Selection.EntireRow, Selection.Worksheet.Range("D:G"))
            .FormulaR1C1 = Array("TOTAL", "=SUM(R[-1]C)", "=SUM(R[-1]C)", "=RC[-2]-RC[-1]")
        End With
    End If

End Sub