高亮显示活动单元格所在行和列
本文为随书问题参考答案
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
版权声明
本文来自投稿,不代表本站立场,转载请注明出处。