ComboBox加载工作表名称至下拉列表失败问题求助

嘿，我一眼就瞅出问题所在了！你把填充工作表名称的逻辑写在了ComboBox1_Change()事件里——这个事件只有当ComboBox的内容被修改时才会触发，而初始化的时候（比如打开窗体/打开工作表时），它根本不会自动运行，难怪下拉框里啥都没有😅

正确的姿势：把代码放到初始化/触发时机合适的事件里 #

分两种场景给你解决方案：

场景1：ComboBox在用户窗体（UserForm）上 #

如果你的ComboBox是在用户窗体里，把代码移到UserForm_Initialize()事件里就行——这个事件会在窗体打开的瞬间自动执行，完美适配初始化需求：

Private Sub UserForm_Initialize()
    Dim WS As Worksheet
    ' 先清空ComboBox，防止重复添加内容
    ComboBox1.Clear
    ' 遍历所有工作表，把名称加到下拉框里
    For Each WS In ThisWorkbook.Worksheets
        ComboBox1.AddItem WS.Name
    Next WS
End Sub

场景2：ComboBox直接在工作表上（ActiveX控件） #

如果你的ComboBox是直接插在工作表里的，有两种好用的方式：

方式1：切换到该工作表时自动填充

把代码放到工作表的Worksheet_Activate()事件里，每次切到这个工作表，下拉框就会自动更新：

Private Sub Worksheet_Activate()
    Dim WS As Worksheet
    ComboBox1.Clear
    For Each WS In ThisWorkbook.Worksheets
        ComboBox1.AddItem WS.Name
    Next WS
End Sub

方式2：点击按钮手动触发填充

插个按钮到工作表上，把代码绑定到按钮的点击事件，想更新的时候点一下就行：

Private Sub CommandButton1_Click()
    Dim WS As Worksheet
    ComboBox1.Clear
    For Each WS In ThisWorkbook.Worksheets
        ComboBox1.AddItem WS.Name
    Next WS
End Sub

小提醒 #

• 每次填充前一定要调用ComboBox1.Clear，不然重复触发的话，下拉框会堆一堆重复的工作表名
• 用ThisWorkbook.Worksheets代替直接写Worksheets，能避免切换到其他工作簿时出错哦

内容的提问来源于stack exchange，提问作者Moe