Question

excel VBA 单击按钮 链接到工作表中如何写代码

如图点击分析试卷的按钮就可以链接到张三的工作表中

Answer 1

你的下拉菜单是W14单元格吧。

'方法一：用循环判断工作表是否存在，代码如下：
Private Sub CommandButton2_Click()
    Dim sh As Worksheet
    For Each sh In Sheets
        If sh.Name = [w14].Value Then sh.Activate: Exit Sub
    Next
End Sub

'方法二：直接判断工作表是否存在，若存在，那么激活该工作表
Private Sub CommandButton1_Click()
    Dim sh As Worksheet
    On Error Resume Next
    Set sh = Sheets([w14].Value)
    If Err.Number <> 9 Then sh.Activate
End Sub

Answer 2

思路：worksheets（“张三”）.actived