此例适用于微软办公软件microsoft excel,WPS有更便捷的设置。
二、在弹出的如下方框中输入以下代码
PrivateSub 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
三、按照先关闭小框,再关闭大框的顺序,关闭该页面,若有弹窗则点确定。
上述代码中倒数第三、二行中的6为黄色的颜色代码,如果需要更换颜色可以更换为其他数字,如果只想使行或者列变色,删除相应的代码即可。