求Excel2007单元格鼠标选中变色代码

这是网上搜到的Excel行列选中变色代码（供参考）：PrivateSubWorksheet_SelectionChange(ByValTargetAsExcel.Rang... 这是网上搜到的Excel行列选中变色代码（供参考）：

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 = 35
End With
With Target.EntireColumn.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 35
End With
End Sub 展开

 我来答

1个回答

#合辑# 面试问优缺点怎么回答最加分？

大巢小0z
2018-04-04 · TA获得超过3704个赞

知道大有可为答主

回答量：4287

采纳率：75%

帮助的人：1335万

我也去答题访问个人页

关注

展开全部

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 = 35
End With
End Sub

本回答由提问者推荐