用户表单Combobox无法读取非常隐藏工作表数据的问题求助

问题根源 #

• 原代码未明确指定数据源所在工作表，默认读取当前激活工作表，无法获取非常隐藏表的数据
• RowSource 属性在工作表非常隐藏时加载数据不稳定，且直接使用地址字符串易引发错误

修正后的代码 #

Private Sub UserForm_Initialize()
    Dim wsData As Worksheet
    Dim lastRow As Long
    Dim productRange As Range
    
    ' 指定非常隐藏的数据源工作表（替换为你的实际表名，如"保密产品数据"）
    Set wsData = ThisWorkbook.Worksheets("你的工作表名称")
    
    ' 动态获取T列从T7开始的有效数据最后一行
    lastRow = wsData.Cells(wsData.Rows.Count, "T").End(xlUp).Row
    ' 容错处理：若T7以下无数据，强制保留T7行
    If lastRow < 7 Then lastRow = 7
    Set productRange = wsData.Range("T7:T" & lastRow)
    
    ' 直接将数据加载到Combobox，不受工作表隐藏状态影响
    Me.produit.List = productRange.Value
End Sub

关键说明 #

• 必须明确指定工作表对象：不能省略工作表引用，否则会默认读取当前激活表（非目标隐藏表）
• 用List替代RowSource：List直接将单元格值存入内存，完全不受工作表隐藏状态限制，稳定性更高
• 更可靠的动态行计算：从列底向上查找最后一行（xlUp），避免xlDown因中间空行导致的数据截断问题
• 容错逻辑：防止因T7以下无数据导致Combobox无内容

注意事项 #

• 替换代码中的"你的工作表名称"为实际的非常隐藏工作表名称
• 非常隐藏工作表的Visible属性设为xlSheetVeryHidden不影响代码读取数据，可继续保持保密状态

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