我想在Excel工作表上突出显示当前所选行的图案(不是颜色,因为该行上的某些单元格可能已经着色)。
我编写了以下VBA宏,但是当选择新单元格时,它会重置整个工作表的颜色。如果它清除了工作表上的整个模式(因为没有使用模式格式化单元格),但是,即使我指定仅清除模式(使用ActiveSheet.Cells.Interior.Pattern = xlPatternNone
),它也会清除颜色和边框
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'remove past colors
ActiveSheet.Cells.Interior.Pattern = xlPatternNone
With Me
.Rows(Target.Row).Interior.Pattern = XlPattern.xlPatternChecker
End With
End Sub
答案 0 :(得分:1)
使用xlPatternAutomatic
代替xlPatternNone
。请注意,它也将删除网格(但不会删除您添加的边框)。