如何在excel vba中提示表格select

当工作簿有许多工作表（如100）时，可以通过右键单击左下angular的箭头来快速激活工作表，然后通过提示来select要select的工作表。 不过，我希望能够达到这个提示，而不用点击和使用键盘。 所以我想创build一个简单的macros，我可以快速通过分配类似ctrl + g的东西来提示这个提示。 但是，我不知道如何做到这一点在vba中。

Answer 1

构build您的副本激活表单：将一个用户表单插入到您的项目中。 将其标题设置为“激活”。 添加一个标签，它说“激活：”。 添加一个列表框和两个button。 标签一个button确定和其他取消。

在用户窗体的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，然后单击开发人员选项卡上的macrosbutton。 您应该看到一个名为ShowActivateForm的macros。 select它，然后单击“选项”以将其分配给所需的热键。