Got it, let's tweak your existing VBA code so you can easily toggle the row and column highlighting on or off whenever you need it. Here's a step-by-step solution:

1. 调整工作表事件代码，添加状态控制 #

首先，打开你的工作表模块（在VBA编辑器中找到对应的Sheet，比如Sheet1），替换原来的Worksheet_SelectionChange代码，并添加一个模块级变量来控制高亮状态：

' 模块级变量，用来标记高亮功能是否启用
Private blnHighlightEnabled As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Static xRow As Long
    Static xColumn As Long
    
    ' 如果高亮功能未启用，直接退出，不执行任何高亮操作
    If Not blnHighlightEnabled Then Exit Sub
    
    ' 清除上一次选中行列的高亮
    If xColumn <> 0 Then
        Columns(xColumn).Interior.ColorIndex = xlNone
        Rows(xRow).Interior.ColorIndex = xlNone
    End If
    
    ' 记录当前选中的行列位置
    xRow = Target.Row
    xColumn = Target.Column
    
    ' 给当前选中的行列设置高亮（黄色，ColorIndex=6）
    With Columns(xColumn).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    With Rows(xRow).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

2. 创建切换功能的宏 #

接下来，插入一个标准模块（右键VBAProject → 插入 → 模块），添加一个用于切换高亮状态的宏：

' 切换行列高亮功能的启用/禁用状态
Public Sub ToggleHighlight()
    ' 反转当前状态（启用变禁用，禁用变启用）
    Sheet1.blnHighlightEnabled = Not Sheet1.blnHighlightEnabled
    
    ' 如果切换到禁用状态，清除当前所有高亮的行列
    If Not Sheet1.blnHighlightEnabled Then
        On Error Resume Next ' 防止首次运行还未选中过单元格的错误
        Columns(Sheet1.xColumn).Interior.ColorIndex = xlNone
        Rows(Sheet1.xRow).Interior.ColorIndex = xlNone
        On Error GoTo 0 ' 恢复错误处理
    End If
    
    ' 弹出提示，告诉用户当前状态（可选，可根据需求删除）
    MsgBox IIf(Sheet1.blnHighlightEnabled, "行列高亮功能已启用", "行列高亮功能已禁用"), vbInformation
End Sub

3. 给切换宏添加触发方式 #

为了方便使用，你可以给这个宏添加一个按钮或者快捷键：

方式1：添加表单按钮 #

1. 回到Excel界面，点击开发工具选项卡 → 插入 → 选择按钮（表单控件）
2. 在工作表上绘制一个按钮，弹出的窗口中选择ToggleHighlight宏，点击确定
3. 修改按钮文字为“切换行列高亮”，之后点击这个按钮就能开关功能了

方式2：设置快捷键 #

1. 点击开发工具 → 宏，选中ToggleHighlight宏
2. 点击选项，设置一个快捷键（比如Ctrl+Shift+H），点击确定，之后按下快捷键就能快速切换状态

一些额外说明 #

• 我给静态变量xRow和xColumn添加了类型声明As Long，避免变体类型带来的潜在问题
• 如果你想更改高亮颜色，可以把ColorIndex=6换成其他颜色索引，或者用RGB值（比如.Color = RGB(255, 200, 150)）
• 错误处理部分是为了防止第一次运行宏时，还没有选中过单元格导致的报错

内容的提问来源于stack exchange，提问作者George K