行标和列表位置本来就是高亮的,
不过下面代码可以是行列都变为指定颜色,
一、行列都变色,可填充,不能复制,可多行多列变色、可不断变化各种色彩(推荐使用)
按ALT F11 进入 VB
在工程窗口 双击要高亮的工作表,
弹出窗口将下面代码复制进去,关闭就可以了
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
iColor = Int(50 * Rnd() + 2)
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = iColor
End With
With Target.EntireColumn.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = iColor
End With
End Sub