Excel VBA: 编辑新行的现有条件格式规则
Excel VBA: Editing existing conditional formatting rules for new rows
我有一个电子表格,其中对特定范围的单元格应用了一些条件格式(例如 $B:$F
)。我设置了一个宏来添加一个新行,复制当前最后一行中的格式+公式。问题是,每次我添加新行时,都会创建一个仅影响新行的附加条件格式设置规则。
如何使用 VBA 扩展我已经设置的条件 - 使规则影响 $B:$F
?
填写并删除常量,而不是复制和粘贴特殊值和格式。这应该明确地将 CFR 扩展到新行。
With Worksheets("sheet1")
With .Range(.Cells(4, "B"), .Cells(.Rows.Count, "F").End(xlUp))
.Offset(.Rows.Count - 1, 0).Resize(2, .Columns.Count).FillDown
On Error Resume Next
'Debug.Print .Offset(.Rows.Count, 0).Resize(1, .Columns.Count).Address(0, 0)
.Offset(.Rows.Count, 0).Resize(1, .Columns.Count).SpecialCells(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0
End With
End With
我有一个电子表格,其中对特定范围的单元格应用了一些条件格式(例如 $B:$F
)。我设置了一个宏来添加一个新行,复制当前最后一行中的格式+公式。问题是,每次我添加新行时,都会创建一个仅影响新行的附加条件格式设置规则。
如何使用 VBA 扩展我已经设置的条件 - 使规则影响 $B:$F
?
填写并删除常量,而不是复制和粘贴特殊值和格式。这应该明确地将 CFR 扩展到新行。
With Worksheets("sheet1")
With .Range(.Cells(4, "B"), .Cells(.Rows.Count, "F").End(xlUp))
.Offset(.Rows.Count - 1, 0).Resize(2, .Columns.Count).FillDown
On Error Resume Next
'Debug.Print .Offset(.Rows.Count, 0).Resize(1, .Columns.Count).Address(0, 0)
.Offset(.Rows.Count, 0).Resize(1, .Columns.Count).SpecialCells(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0
End With
End With