Question

好的我是VBA的新手，解决方案可能非常简单。

我有一个Option Button（名为Matrix），如果选中按钮，我希望全局变量rdb从Cell（5,2）中获取值。这是我的尝试：

    Public rdb as Integer
    Public Sub Matrix_Change()
    If Matrix.Value = True Then rdb = Cells(5, 2).Value
    End Sub

我注意到这只有在我在两个单选按钮之间切换时才有效。这可能是因为我选择了“改变”。如何创建仅检查选项按钮是否已选中的子项？只需删除“_Change”部分就会导致错误。是否可以从Sub返回值而不是使用全局变量？

非常感谢帮助！

Answer 1

（第一个问题）选择 MouseUp 事件而不是更改事件

（第二个问题） Sub无法返回值

您只需将代码替换为：

Public rdb As Integer

Public Sub Matrix__MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Matrix.Value = True Then rdb = Cells(5, 2).Value
End Sub

VBA从选项按钮

1 个答案: