本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'清除工作表中所有单元格的底纹颜色
Cells.Interior.ColorIndex = xlNone
'为活动单元格所在列填充颜色
ActiveCell.EntireColumn.Interior.Color = RGB(180, 220, 230)
'为活动单元格所在行填充颜色
ActiveCell.EntireRow.Interior.Color = RGB(180, 220, 230)
End Sub
声明：本站所有文章均出自互联网，只为学习之用；如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
评论(0)