Question

当我选择单选按钮选项时，我无法自动运行宏。有两个单选按钮选项，它们链接到代号为“MAIN”的工作表上名为“SimType”的单元格。我已经从MSDN调整了以下代码，并将其包含在MAIN工作表的模块中，但无法使其正常运行：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("SimType")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
       RefreshSimsList 
    End If
End Sub

我理解Target指的是ActiveCell，所以当我手动输入1或2的值到Range（“SimType”）时，宏会触发。但是，当链接的单选按钮更改单元格时，不会触发任何操作。如果没有它是ActiveCell，我该怎么做才能让表识别出值已经改变了？

Answer 1

将此代码放在模块中

Sub OptCommon()
    '
    '~~> Rest of the code
    '
End Sub

只需右键单击选项按钮并为其指定宏。现在不仅单元格值会改变，宏也会运行。

VBA - 选择单选按钮时触发宏

1 个答案: