Excel VBA — 给选择的单元格添加填充色

介绍

当选中某个单元格时，给单元格所属的行或者列设置填充色，方便查看数据。

第一种方法

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    With ActiveCell
        .EntireRow.Interior.Color = RGB(233, 84, 32) 
        .EntireColumn.Interior.Color = RGB(233, 84, 32)
    End With
    
End Sub

注意点

  • 该代码要存放在要设置该功能的工作表里面，属于Worksheet事件
  • EntireRow 意思是整行，EntireColumn意思是整列，可以根据自己的需求设置填充色，不一定都要设置。不要就删掉。
  • 颜色看自己喜好。

缺点

  • 只能选中一行或者一列

第二种方法，可以选择多行或者多列

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim Cel As Range
    
    Cells.Interior.ColorIndex = xlNone
    
    
    For Each Cel In Selection
        Cel.EntireRow.Interior.Color = RGB(232, 83, 31)
        
    Next Cel
    
End Sub
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容