使用默認值填充用戶窗體組合框

Question

TierStructureTierStructureI我試圖在用戶窗體上填充兩個梳子框，併爲基於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」在兩個地方。

爲了避免將來出現這種情況，請確保每個模塊的頂部都有「Option Explicit」選項。您可以通過工具>選項>編輯器>需要變量聲明自動執行此操作。這將確保任何變量已被聲明，從而捕獲拼寫錯誤。

此外，請注意，您不需要將TierStructure聲明爲數組。變量變量可以自己保存數組。所以，只需使用：

Dim TierStructure As Variant