excel 选择一个单元格，所在行列变色

最新推荐文章于 2024-08-01 09:39:12 发布

【ql君】qlexcel

最新推荐文章于 2024-08-01 09:39:12 发布

阅读量1.1w

点赞数 3

分类专栏：生活记录&DIY

原文链接：https://zhidao.baidu.com/question/557741756484472612.html

版权

生活记录&DIY 专栏收录该内容

34 篇文章 52 订阅

订阅专栏

打开excel，在左下角的工作表名字上右键，然后点击“查看代码”

在出来的窗口中，双击左边的“Sheet1”，在打开的窗口中，粘贴下面的代码进去。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete

With Target.EntireRow.FormatConditions        '行变色
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 12             '颜色选择，改变该值，行的颜色会改变
End With

With Target.EntireColumn.FormatConditions     '列变色
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 12
End With

End Sub

参考：https://zhidao.baidu.com/question/557741756484472612.html