vba - 如何在excel vba中提示工作表选择

Question

当工作簿有很多工作表(例如 100 个)时，您可以通过右键单击左下角的箭头来快速激活工作表，然后会出现提示，让您选择要选择的工作表。但是，我希望能够在不单击并仅使用键盘的情况下达到此提示。所以我想创建一个简单的宏，我可以通过分配给 ctrl+g 之类的东西来快速拉出这个提示。但是，我不知道如何在 vba 中执行此操作。

Answer 1

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

在用户窗体的 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 部分，添加一个 sub 来显示您的用户窗体:

Private Sub ShowActivateForm()
    UserForm1.Show
End Sub

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