1
2
代码为
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Rows().Interior.ColorIndex = 1 Columns().Interior.ColorIndex = 2 x = ActiveCell.Row Y = ActiveCell.Column Rows(x).Interior.ColorIndex = 6 Columns(Y).Interior.ColorIndex = 6 End Sub
没有学过,仅供参考,如有错误还请指出。
3
4
上述代码中后三行中的6为颜色代码,如果需要更换颜色可以更换为其他数字
如果只需要使行或者列变色,
删除相应的代码即可。
联系客服