如何在excel vba中提示选择图纸

当工作簿有多张工作表（如100张）时，可以通过右键单击左下角的箭头快速激活该工作表，然后会出现提示，让您选择要选择的工作表。但是，我希望能够在不单击和仅使用键盘的情况下达到此提示。因此，我想创建一个简单的宏，通过指定ctrl+g之类的值，我可以在其中快速弹出这个提示。但是，我不知道如何在vba中执行此操作。

构建副本激活表单：将用户表单插入到项目中。将其标题设置为“激活”。添加一个标签，上面写着“激活：”。添加一个列表框和两个按钮。标记一个按钮Ok，另一个按钮Cancel

在UserForm的UserForm\u 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的宏。选择它并单击“选项”将其指定为所需的热键。

您希望用户如何选择工作表？按名称？很好的安装说明！