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

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

使用VBA代码将所有工作表名称填充到用户窗体组合框中

使用VBA代码将所有工作表名称填充到用户窗体组合框中

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

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，通过点击 插入 > 用户窗体 来插入一个用户窗体，如下截图所示。

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

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

5. 在打开的 Microsoft Visual Basic for Applications 窗口中，请复制并粘贴以下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中通过组合框选项卡选择特定单元格？