如何根据单元格值自动填充excel用户表单中的选项按钮？

Posted 2023-02-24

【中文标题】如何根据单元格值自动填充excel用户表单中的选项按钮？

【英文标题】：How to autofill the option button in excel user form based on a cell value?

【发布时间】：2021-01-12 08:58:32

【问题描述】：

嗨，

我想让用户窗体能够检测单元格B4 中的文本并选择正确的选项按钮，而无需在用户窗体中进行任何额外的点击。我可以知道我应该如何实现吗？谢谢。

【参考方案1】：

将此添加到您的用户表单模块中：

Private Sub UserForm_Initialize()

If Sheets("Sheet1").Range("B4") = "Profit" Then Me.ProfitOption.Value = True

End Sub

几件事要改变：

-将Sheet1 更改为您的。

-将ProfitOption 更改为按钮的名称。

【讨论】：

实际上Me.ProfitOption.Value 是Boolean 而不是String 因此应该是Me.ProfitOption.Value = True

我正要发表评论，但不管怎样都行。

好吧“意外工作” != “工作因为它是正确的” :)

【参考方案2】：

我推荐这样的东西

Private Sub UserForm_Initialize()
    Select Case Sheet1.Range("B4").Value 'evaluate the value of the cell
        Case "Profit"
            Me.OptionButton1.Value = True
            
        Case "Loss"
            Me.OptionButton2.Value = True
            
        Case Else 'if it is none of the above then go into undefined state
            Me.OptionButton1.Value = Null
            Me.OptionButton2.Value = Null
    End Select
End Sub

请注意，如果您更改用户表单中的选项，这不会更改单元格值。因此，您需要使用Private Sub OptionButton1_Change() 事件或“保存”按钮将更改的状态写回。