如何填充Excel中的用户表单ComboBox以包含所有工作表名称

Microsoft Excel中的用户表单提供了一种设计用于数据录入和操作的专用用户界面的绝佳方法。它们提供了一个用户友好的设置，使您能够创建交互式表单并有效地收集信息。一个典型的情况是要求将Excel工作簿中的工作表名称列表输入到用户表单中的ComboBox中。当您想要为客户提供可选择的可用工作表时，这可能非常有帮助。

在本教程中，我们将向您展示如何填充Excel用户表单的ComboBox以包含所有的工作表名称。这个逐步指南将帮助您构建一个动态的、实用的用户表单，改善用户体验并使数据选择更容易。

填充用户表单ComboBox以包含所有工作表名称

首先我们将创建一个用户表单，然后为其分配一个宏来完成任务。因此，让我们看一个简单的过程，了解如何在Excel中填充用户表单的组合框以包含所有的工作表名称。

步骤 1

考虑任何具有多个工作表的Excel工作簿。

首先，右键单击工作表名称，选择“查看代码”以打开VBA应用程序。

步骤 2

然后点击“插入”，选择“用户表单”，并绘制一个组合框。

**插入 > 用户表单 > 绘制。 **

如何填充Excel中的用户表单ComboBox以包含所有工作表名称？

步骤 3

然后右键单击组合框，选择“查看代码”。将下面的代码复制到文本框中。

**右键单击 > 查看代码 > 复制。 **

代码

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是组合框的名称。

如何填充Excel中的用户表单ComboBox以包含所有工作表名称？