发布网友 发布时间:2022-04-25 19:06
共3个回答
热心网友 时间:2022-05-16 21:31
右键SHEET名,查看代码
复制代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
tr = Target.Row
tc = Target.Column
Rows(tr).Interior.ColorIndex = 41
Columns(tc).Interior.ColorIndex = 41
End Sub
41表示颜色代码,根据你喜好,修改41
热心网友 时间:2022-05-16 22:49
打开vba双击左侧的sheet1,把下面的代码复制进去即可:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 28
Target.EntireColumn.Interior.ColorIndex = 28
End Sub追问但是这样的话,我之前标记单元格填充的颜色就没有了。。。。
追答那好像就不好弄了,因为你点击另外的单元格时,之前的突出显示要取消。。。
热心网友 时间:2022-05-17 00:24
点击视图下的阅读模式