excel聚光灯怎么取消

发布网友发布时间：2022-04-23 08:47

共1个回答

热心网友时间：2022-06-18 13:48

通过设置一个按钮来控制聚光灯功能的随时关闭和开启。效果为：

实现过程：
1、开发工具——插入——ActiveX控件复选框——在设计模式下右键复选框——查看代码，打开代码输入界面，粘贴下面的代码：
Private Sub CheckBox1_Click() If CheckBox1.Value = False Then CheckBox1.Caption = "关" ActiveSheet.Cells.Interior.ColorIndex = xlNone Else CheckBox1.Caption = "开" End IfEnd Sub
2、在表单Worksheet_SelectionChange代码编辑区，修改代码：
Private Sub Worksheet_SelectionChange(ByVal target As Range)If CheckBox1.Caption = "开" Then Call 聚光灯(target)End SubSub 聚光灯(rg As Range)If Application.CutCopyMode = False ThenWith rg.Parent.Cells.Interior.ColorIndex = xlNone.EntireRow.Interior.Color = vbGreen.EntireColumn.Interior.Color = vbCyan.Interior.Color = vbRedEnd WithEnd IfEnd Sub