excel - 插入新行 VBA 宏

Question

我想使用 VBA 宏在 MS Excel 中插入新行，并修改新行中特定单元格的背景颜色(即 Interior.ColorIndex)。

我正在使用 ActiveCell.Offset(1).EntireRow.Insert在事件单元格下方插入新行，但我不确定如何更改新行中特定单元格的背景颜色。

例如:

如果我插入了一个新行(即第 4 行)，我想更改单元格 B4 的背景颜色和 C4是灰色的。

非常感激任何的帮助!

问候

马丁

Answer 1

这将做到:

Sub insertRowAndHighlightCells()

    Dim rng As Range
    Dim rw As Long

    With ActiveCell
        rw = .Row
        .Offset(1).EntireRow.Insert
    End With

    Set rng = Rows(rw + 1)
    rng.Columns("B:C").Interior.Color = RGB(191, 191, 191)

End Sub

编辑

一个更简单的版本:

Sub insertRowAndHighlightCells()

    Dim rw As Long

    With ActiveCell
        rw = .Row
        .Offset(1).EntireRow.Insert
    End With

    Rows(rw + 1).Columns("B:C").Interior.Color = RGB(191, 191, 191)

End Sub