选择了 VBA 选项按钮 - VBA

在 VBA 中，选项按钮是一种常见的用户界面控件，它允许用户从一组互斥的选项中选择一个。当用户单击选项按钮时，相应的选中值会写入到相应单元格或变量中。

创建选项按钮

在 VBA 中，可以使用 OptionButton 对象来创建选项按钮。选项按钮通常与 Frame 控件一起使用，以将它们分组在一起。以下是创建选项按钮的基本代码：

Dim optionButton As OptionButton
Set optionButton = ActiveSheet.OptionButtons.Add(Left:=50, Top:=50, Width:=100, Height:=20)
optionButton.Text = "Option 1"

该代码会在活动工作表上添加一个新的选项按钮，并将其放置在位置 (50, 50)，宽度为 100，高度为 20，文本为 "Option 1"。

处理选项按钮事件

当用户单击选项按钮时，可以为 OptionButton 对象的 Click 事件编写代码来处理该事件。例如，以下代码会在选项按钮被选中时显示一个消息框：

Private Sub optionButton_Click()
    If optionButton.Value = True Then
        MsgBox "您选择了选项按钮。"
    End If
End Sub

在此示例中，如果选项按钮的 Value 属性为 True，则显示一个消息框，表明用户已选择了该选项。

获取选项按钮的选中值

使用选项按钮时，您通常需要在代码中获取用户选择的选项。为此，可以使用选项按钮的 Value 属性。例如，以下代码会将 OptionButton 的选中值写入到单元格 A1 中：

Range("A1").Value = optionButton.Value

总结

在 VBA 中，选项按钮是一种非常实用的用户界面控件，可以让用户从多个选项中选择一个。使用 OptionButton 对象可以很容易地在 VBA 代码中创建和处理选项按钮。