如果选中了复选框，则超链接到表中的另一个工作表；如果未选中，则不指向该表的超链接

Question

我为excel宏添加了一些代码失败，一旦选中了复选框，该宏会将用户发送到excel表中的另一个工作表，但如果未选中则不执行任何操作。这是一个表单控件复选框，它位于工作表本身上，不在外部。

我已经尝试过了，但是没有运气：

Sub CheckBox28_Click()
    If OptionButton1 = True Then
    Sheets("Sheet3!A1").Select
    ElseIf OptionButton1 = False Then
    End If


End Sub

它可以编译，但是分配给复选框时什么也没发生

请帮助：）

Answer 1

如果它是窗体控件而不是ActiveX，请使用以下内容

Sub CheckBox28_Click()
    If ActiveSheet.Shapes("Option Button 1").OLEFormat.Object.Value = 1 Then
        Worksheets("Sheet3").Select
        Worksheets("Sheet3").Range("A1").Select
    Else 
        'do something else
    End If
End Sub

更多详细信息，请参见：

• The Complete Guide to Excel Form Control Option Button VBA