如何在VBA中保存OptionButton会话？实现父子按钮状态记忆

阿华AIGC实验室

2026-5-25

实现VBA选项按钮父子状态记忆的方案

这个需求其实很好解决，核心就是用模块级变量来存储每个父按钮对应的最后选中子按钮，相当于VBA里的「session」——只要Excel不关闭，状态就会一直保留。下面是具体的实现步骤：

1. 声明模块级变量

首先，在你的窗体代码模块最顶部（所有事件过程之外），声明两个变量，专门用来记录两个父选项按钮对应的最后选中子按钮：

' 存储两个父选项按钮对应的最后选中子按钮名称
Private lastOB1Child As String
Private lastOB5Child As String

2. 父选项按钮的点击事件处理

接下来给OptionButton1和OptionButton5编写点击事件，逻辑分为三步：保存当前激活父按钮的子状态、切换子按钮的启用状态、恢复目标父按钮的历史选中状态。

OptionButton1的点击事件：

Private Sub OptionButton1_Click()
    ' 先保存OB5的当前子按钮状态（如果OB5之前被激活过）
    If OptionButton5.Value Then
        If OptionButton6.Value Then lastOB5Child = "OptionButton6"
        If OptionButton7.Value Then lastOB5Child = "OptionButton7"
    End If
    
    ' 切换子按钮的启用状态：开启OB1的子按钮，关闭OB5的
    OptionButton2.Enabled = True
    OptionButton3.Enabled = True
    OptionButton4.Enabled = True
    OptionButton6.Enabled = False
    OptionButton7.Enabled = False
    
    ' 恢复OB1的历史选中状态
    If lastOB1Child = "" Then
        ' 第一次点击OB1，默认选中第一个子按钮
        OptionButton2.Value = True
        lastOB1Child = "OptionButton2"
    Else
        ' 根据存储的控件名称直接设置选中状态
        Me.Controls(lastOB1Child).Value = True
    End If
End Sub

OptionButton5的点击事件：

Private Sub OptionButton5_Click()
    ' 先保存OB1的当前子按钮状态（如果OB1之前被激活过）
    If OptionButton1.Value Then
        If OptionButton2.Value Then lastOB1Child = "OptionButton2"
        If OptionButton3.Value Then lastOB1Child = "OptionButton3"
        If OptionButton4.Value Then lastOB1Child = "OptionButton4"
    End If
    
    ' 切换子按钮的启用状态：开启OB5的子按钮，关闭OB1的
    OptionButton2.Enabled = False
    OptionButton3.Enabled = False
    OptionButton4.Enabled = False
    OptionButton6.Enabled = True
    OptionButton7.Enabled = True
    
    ' 恢复OB5的历史选中状态
    If lastOB5Child = "" Then
        ' 第一次点击OB5，默认选中第一个子按钮
        OptionButton6.Value = True
        lastOB5Child = "OptionButton6"
    Else
        ' 根据存储的控件名称直接设置选中状态
        Me.Controls(lastOB5Child).Value = True
    End If
End Sub

3. 子选项按钮的点击事件处理

最后给每个子按钮添加点击事件，每次点击时更新对应的存储变量，确保我们记录的是最新选中的子按钮：

OB1的子按钮事件：

Private Sub OptionButton2_Click()
    lastOB1Child = "OptionButton2"
End Sub

Private Sub OptionButton3_Click()
    lastOB1Child = "OptionButton3"
End Sub

Private Sub OptionButton4_Click()
    lastOB1Child = "OptionButton4"
End Sub

OB5的子按钮事件：

Private Sub OptionButton6_Click()
    lastOB5Child = "OptionButton6"
End Sub

Private Sub OptionButton7_Click()
    lastOB5Child = "OptionButton7"
End Sub