如何根据单元格值自动填充 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() 事件或“保存”按钮将更改后的状态写回。

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

How to autofill the option button in excel user form based on a cell value?

forms

excel

vba

autofill