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

Question

你好，

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

Answer 1

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

Private Sub UserForm_Initialize()

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

End Sub

几个要改变的事情：

- 将Sheet1更改为您的。

- 将ProfitOption为按钮的名称。

Answer 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()事件或“保存”按钮将更改后的 state 写回。