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 = 6
End With
End Sub
ColorIndex=6 可以改颜色。
设置方式:右键表格名字-查看代码-贴入代码 。就可以了。
【阅读视图 只有WPS才有,亏我百度一圈在office 里面找了好久。丢~~~~】













网友评论