使用默认值填充UserForm组合框

Question

TierStructureTierStructureI试图在用户表单w/ VBA上填充两个梳状框，并根据ws函数为相同的框设置默认值。我想我可以找出ws函数，但是我在数组和默认值方面遇到了一些问题。

Private Sub UserForm_Initialize()

Dim TierStructure() As Variant

TierSturucture = Array("Composite", "2-Tier", "3-Tier", "4-Tier", "5-Tier", "6-Tier")

StopLossCombo.List = TierSturucture 
AdminCombo.List = TierSturucture 
StopLossCombo.Value = TierStructure(1)
AdminCombo.Value = TierStructure(1)

End Sub

我收到的错误是“运行时错误9-下标超出范围”。

Answer 1

你有一个错误- "TierSturucture“在两个地方。

为了避免将来出现这种情况，请确保每个模块在顶部都有“选项显式”。您可以通过Tools>Options>Editor>Require变量声明将其自动化。这将确保任何变量都已声明，从而捕获拼写错误。

另外，请注意，您不需要将TierStructure声明为数组。变量可以自己保存数组。所以，就用：

Dim TierStructure As Variant