如何在Excel中用所有工作表名稱填充用戶窗體組合框？

本文討論的是將當前工作簿的所有工作表名稱填充到Excel中的用戶窗體組合框中。

使用VBA代碼用所有工作表名稱填充Userform ComboBox

使用VBA代碼用所有工作表名稱填充Userform ComboBox

下面的VBA代碼可以幫助您將當前工作簿的所有工作表名稱插入到用戶窗體組合框中。 請執行以下操作。

1。 按 其他 + 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是插入的Combo Box的名稱。 請更改為您自己的。

6。 按 F5 鍵來運行程式碼。 在開啟的使用者窗體中，您可以看到目前工作簿的所有工作表名稱都顯示在組合方塊中，如下圖所示：

相關文章：

• 如何將組合框值複製到Excel中的活動單元格？
• 如何在Excel中的組合框輸出中顯示日期格式？
• 如何通過Excel中的組合框的選定值打開特定的工作表？
• 如何防止或禁用在Excel中的組合框中鍵入？
• 如何跳出組合框以選擇Excel中的特定單元格？