TheWindReturns

右击工作表,选择查看代码,弹出VBA界面,直接将下边代码复制粘贴过来,最后关闭VBA界面即可。

代码如下:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

If Target.Count > 1 Then Set Target = Target.Cells(1)

Target.EntireColumn.Interior.ColorIndex = 6

Target.EntireRow.Interior.ColorIndex = 6

End Sub

 

致敬原创:

Excel情报局

 

分类:

技术点:

相关文章:

  • 2022-12-23
  • 2022-12-23
  • 2021-10-06
  • 2021-12-15
  • 2022-12-23
  • 2021-08-23
  • 2022-12-23
  • 2021-09-29
猜你喜欢
  • 2021-05-21
  • 2021-06-15
  • 2022-12-23
  • 2021-10-26
  • 2021-11-28
  • 2022-02-07
  • 2022-02-02
相关资源
相似解决方案