如何在组合框中显示所有工作表名称| excel vba |

Question

我有一种情况，我想在组合框中显示所有工作表名称

在主表上，我有一个下拉组合框

此组合框应显示excel中存在的所有工作表名称

输出：

Sheet1
Sheet2
Sheet3
.
.
.

如何修改下面的代码以在组合框中获取所有工作表名称

Private Sub ComboBoxpgname_DropButtonClick()

    With Worksheets("A1")
                ComboBoxpgname.List = .Range("B2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
    End With

End Sub

Answer 1

尝试以下代码

Private Sub ComboBoxpgname_DropButtonClick()
Dim sh As Worksheet

    ComboBoxpgname.Clear 'Clear combobox
    For Each sh In ThisWorkbook.Worksheets
        ComboBoxpgname.AddItem sh.Name
    Next sh

End Sub