excel中 怎么能够让 我选中一个格子的时候这个格子变色

来源:百度知道 编辑:UC知道 时间:2024/06/30 10:04:57

这个用宏代码做的,比如选中的单元格高亮显示的代码如下,理解以下意思就没什么了,意思大概是这样子的,删除表格上所有有填充的图案的单元格,把选中的单元格用粉红色填充,如果想改用其它颜色可以把代码中的7改为其它颜色代码,即可,比如1代表黑色,6代表黄色等等

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
End With
End Sub

用宏!

用条件格式,自定义条件公式为:
=AND(CELL("row")=ROW(),CELL("col")=COLUMN())

这时,当前单元格为自定义格式了
但不能实时变化,需刷屏才行
因此需要用VBA来激活
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Selection.Interior.ColorIndex = 17
End Sub