Office 365 Excel中Sheet1 ActiveX选项按钮返回时莫名清空求助

核心问题定位 #

问题根源是Sheet4的Worksheet_Activate事件触发时，与Sheet1的ActiveX选项按钮产生了状态冲突——即使简化代码仍出现问题，大概率是Office 365对ActiveX控件的刷新机制导致的意外重置，而非代码逻辑的直接清空操作。

具体修复步骤 #

1. 用单元格中转替代直接操作Sheet1控件 #

原逻辑可能在Sheet4激活时直接读写Sheet1的控件，改为通过隐藏单元格存储状态，彻底隔离控件间的直接交互：

• 在Sheet1选一组空白单元格（比如Z1:Z10，右键设置列隐藏），用来存选项按钮的选中状态（1=选中，0=未选中）
• 给Sheet1的每个选项按钮添加Click事件，同步更新对应单元格的值
• Sheet4的激活事件只读取这些单元格的值，不碰Sheet1的控件

示例代码

Sheet1中选项按钮的Click事件：

Private Sub OptionButton1_Click()
    Me.Range("Z1").Value = IIf(Me.OptionButton1.Value, 1, 0)
End Sub

Private Sub OptionButton2_Click()
    Me.Range("Z2").Value = IIf(Me.OptionButton2.Value, 1, 0)
End Sub

Sheet4的激活事件修改：

Private Sub Worksheet_Activate()
    Dim mainWs As Worksheet
    Set mainWs = ThisWorkbook.Sheets("Sheet1")
    ' 仅读取中转单元格的值到Sheet4控件，不反向操作Sheet1控件
    Me.Label1.Caption = mainWs.Range("A1").Value
End Sub

2. 强制恢复Sheet1控件状态 #

在Sheet1的Worksheet_Activate事件中，从中转单元格读取状态，强制恢复选项按钮的选中状态：

Private Sub Worksheet_Activate()
    Me.OptionButton1.Value = (Me.Range("Z1").Value = 1)
    Me.OptionButton2.Value = (Me.Range("Z2").Value = 1)
    ' 其他选项按钮按此格式补充
End Sub

3. 检查控件命名与分组 #

• 右键Sheet4的选项按钮 → 属性，确认(名称)与Sheet1的控件不重复（工作簿内ActiveX控件名称必须唯一，重名会导致状态串扰）
• 检查GroupName属性，若Sheet4的选项按钮分组名和Sheet1的一致，修改为唯一名称

4. 改用全局工作表切换事件 #

如果上述方法无效，删除Sheet4的Worksheet_Activate代码，改用ThisWorkbook中的全局事件处理：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sheet4" Then
        Dim mainWs As Worksheet
        Set mainWs = ThisWorkbook.Sheets("Sheet1")
        ' 执行原Sheet4激活逻辑，仅操作Sheet4自身控件
        Sh.Label1.Caption = mainWs.Range("A1").Value
    End If
End Sub

验证流程 #

1. 保存工作簿后关闭重开（清除VBA缓存）
2. 在Sheet1设置选项按钮状态，切换到Sheet4再返回Sheet1，确认状态保留

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