如何在Excel中用所有工作表名称填充用户窗体组合框？

本文讨论的是将当前工作簿的所有工作表名称填充到Excel中的用户窗体组合框中。

使用VBA代码用所有工作表名称填充Userform ComboBox

使用VBA代码用所有工作表名称填充Userform ComboBox

下面的VBA代码可以帮助您将当前工作簿的所有工作表名称插入到用户窗体组合框中。 请执行以下操作。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口，请点击插入用户表单 插页 > 用户表格 如下图所示。

3.然后绘制一个组合框控件并将其插入用户窗体。 看截图：

4.右键单击插入的组合框，然后选择 查看代码 从上下文菜单中。 看截图：

5.在开幕 Microsoft Visual Basic应用程序 窗口，请复制并粘贴以下VBA代码以替换“代码”窗口中的原始代码。

VBA代码：使用当前工作簿的所有工作表名称填充用户窗体组合框

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

备注：在代码中，ComboBox1是插入的组合框的名称。 请更改为您自己的一个。

6。 按 F5 键来运行代码。 在打开的用户窗体中，您可以看到当前工作簿的所有工作表名称都显示在组合框中，如以下屏幕截图所示：

相关文章：

• 如何将组合框值复制到Excel中的活动单元格？
• 如何在Excel中的组合框输出中显示日期格式？
• 如何通过Excel中的组合框的选定值打开特定的工作表？
• 如何防止或禁用在Excel中的组合框中键入？
• 如何跳出组合框以选择Excel中的特定单元格？