Excel VBA UserForm中ComboBox无法加载命名范围列表问题

问题现象 #

使用命名范围rngEnclosure填充UserForm的cbPrimeEnclosureMat组合框时，控件始终无数据加载且无报错，但完全相同的代码填充cbSecEnclosureMat组合框却能正常显示内容。

根因排查 #

检查UserForm_Initialize事件的完整执行逻辑后发现：GLAZING模块中存在一条错误执行的cbPrimeEnclosureMat.Clear语句，该语句在cbPrimeEnclosureMat完成数据填充后执行，直接清空了已加载的内容。

代码对比 #

无效代码（填充后被清空）：

'Fill primary enclosure material combo box
cbPrimeEnclosureMat.List = Application.WorksheetFunction.Transpose(Range("rngEnclosure"))

有效代码（无后续清空操作）：

'Fill secondary enclosure material combo box
cbSecEnclosureMat.List = Application.WorksheetFunction.Transpose(Range("rngEnclosure"))

解决方法 #

定位到GLAZING模块中的cbPrimeEnclosureMat.Clear语句，将其删除或调整执行时机，确保不会在组合框填充数据后执行清空操作。

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