Excel如何通过选项按钮将选中行设为可引用变量并修改单元格格式

你可以通过公共变量存储选中行号的方式实现需求，具体操作步骤如下：

步骤1：声明全局公共变量 #

按Alt+F11打开VBA编辑器，在当前工作簿的标准模块（如果没有就右键点击「插入-模块」新建）顶部粘贴以下代码：

' 全局公共变量，存储当前选中的工单行号，全项目代码均可调用
Public SelectedWorkOrderRow As Long

步骤2：给A列选项按钮绑定点击赋值逻辑 #

每个选项按钮的点击事件中，给上述公共变量赋值对应行号即可，比如第21行的选项按钮点击事件代码：

Private Sub OptionButton21_Click()
    ' 选项按钮对应哪一行，就赋值对应行号
    SelectedWorkOrderRow = 21
End Sub

如果是批量生成的选项按钮，可以统一命名为opt_行号的格式（比如第22行的叫opt_22），用类模块批量绑定事件，不需要逐个写代码。

步骤3：功能按钮直接调用变量操作单元格 #

比如实现「点击按钮将选中行I列填充为黄色」的功能，对应按钮的点击事件代码如下：

Private Sub FillYellowBtn_Click()
    ' 校验是否已选中工单，避免空值报错
    If SelectedWorkOrderRow = 0 Or SelectedWorkOrderRow < 21 Then
        MsgBox "请先选中对应工单的选项按钮", vbExclamation
        Exit Sub
    End If
    ' 操作指定行的I列单元格
    Cells(SelectedWorkOrderRow, "I").Interior.Color = vbYellow
End Sub

可选优化方案 #

如果不想逐个制作选项按钮，可以直接用工作表选择事件实现自动选中，代码放在对应工作表的模块中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 只要点击21行及以下的任意单元格，就自动存储为选中行
    If Target.Row >= 21 Then
        SelectedWorkOrderRow = Target.Row
        ' 额外加选中行高亮提示，更直观
        Rows("21:" & Rows.Count).Interior.ColorIndex = xlColorIndexNone
        Rows(SelectedWorkOrderRow).Interior.Color = RGB(240,240,240)
    End If
End Sub

内容的提问来源于stack exchange，提问作者Matthew Palmer