Question

当工作簿有多张（如100张）时，您可以通过右键单击左下角的箭头快速激活工作表，然后显示提示，让您选择要选择的工作表。但是，我希望能够在不单击并仅使用键盘的情况下达到此提示。所以我想创建一个简单的宏，我可以通过指定类似ctrl + g的方式快速提取此提示。但是，我不知道如何在vba中这样做。

Answer 1

构建副本激活表单：将userform插入项目中。将其标题设置为＆＃34;激活＆＃34;。添加一个标签，上面写着＆＃34;激活：＆＃34;。添加一个列表框和两个按钮。标记一个按钮确定，另一个取消。

在userform的UserForm_Initialize子中，循环显示工作表的名称并将它们添加到列表框....类似于：

Private Sub UserForm_Initialize()
    Dim oSheet As Worksheet

    For Each oSheet In Worksheets
        ListBox1.AddItem oSheet.Name
    Next
End Sub

Private Sub CommandButton1_Click()
    Sheets(ListBox1.Text).Activate
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

现在，在VBA项目的ThisWorkbook部分中，添加一个子以显示您的用户表单：

Private Sub ShowActivateForm()
    UserForm1.Show
End Sub

返回Excel并单击开发人员选项卡上的“宏”按钮。您应该看到一个名为ShowActivateForm的宏。选择它并单击“选项”为其指定所需的热键。

如何在excel vba中提示表单选择

1 个答案: