如何通过VBA切换Excel的Focus Cell选项？实现按需触发设置

完全可以通过Excel的SelectionChange事件实现这个需求，以下是具体方案：

实现步骤 #

1. 打开目标工作簿，按下Alt + F11打开VBA编辑器
2. 在左侧工程资源管理器中，双击需要应用该功能的工作表（例如Sheet1）
3. 将下方代码粘贴到代码窗口中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 清除全局高亮残留
    Cells.Interior.ColorIndex = xlColorIndexNone
    
    ' 判断选中行是否满足条件
    If Target.Row >= 10 Then
        ' 高亮选中单元格所在行与列
        Target.EntireRow.Interior.Color = RGB(245, 245, 245)
        Target.EntireColumn.Interior.Color = RGB(245, 245, 245)
        ' 保留选中单元格本身的格式（可选）
        Target.Interior.ColorIndex = xlColorIndexNone
    End If
End Sub

代码说明 #

• Worksheet_SelectionChange：每次选中单元格区域变化时自动触发的事件
• Cells.Interior.ColorIndex = xlColorIndexNone：清除所有单元格的背景色，避免之前的高亮残留
• Target.Row >= 10：判断选中区域的首行行号是否≥10（若选中多行，默认取第一行的行号）
• RGB(245,245,245)：浅灰色高亮，可根据需求替换为其他颜色值（如RGB(255,255,204)表示浅黄色）
• 最后一行代码用于让选中的单元格保持透明，和高亮的行列形成区分，可根据需要删除

扩展优化 #

如果需要支持选中多行时只要有一行≥10就开启高亮，可将判断条件修改为：

If Application.Max(Target.Rows) >= 10 Then

若要在整个工作簿的所有工作表生效，可将代码移至ThisWorkbook模块，改用Workbook_SheetSelectionChange事件：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlColorIndexNone
    If Target.Row >= 10 Then
        Target.EntireRow.Interior.Color = RGB(245, 245, 245)
        Target.EntireColumn.Interior.Color = RGB(245, 245, 245)
        Target.Interior.ColorIndex = xlColorIndexNone
    End If
End Sub

内容的提问来源于stack exchange，提问作者John Joseph