VBA組合框不要「介意」我的動態範圍選擇

Question

我已經爲組合框定義了一個數據庫列表。在每一列上，我都有各種選項分別填充組合框。當我運行我的用戶表單時，頭兩個組合框（客戶端和產品）顯示選項就好了。爲什麼其他組合框會列出客戶端選項？

Private Sub UserForm_Initialize() 
 
Dim cClient As Range 
 
Dim cProduct As Range 
 
Dim cSize As Range 
 
Dim cType As Range 
 
Dim cTax As Range 
 

 
Dim ws As Worksheet 
 
Set ws = Worksheets("aux") 
 

 
For Each cClient In ws.Range("ClientList") 
 
    With Me.comboClient 
 
    .AddItem cClient.Value 
 
    End With 
 
Next cClient 
 

 
For Each cProduct In ws.Range("ProductList") 
 
    With Me.comboProduct 
 
    .AddItem cProduct.Value 
 
    End With 
 
Next cProduct 
 

 
For Each cSize In ws.Range("ClientList") 
 
    With Me.comboSize 
 
    .AddItem cSize.Value 
 
    End With 
 
Next cSize 
 

 
For Each cType In ws.Range("ClientList") 
 
    With Me.comboType 
 
    .AddItem cType.Value 
 
    End With 
 
Next cType 
 

 
For Each cTax In ws.Range("ClientList") 
 
    With Me.comboTax 
 
    .AddItem cTax.Value 
 
    End With 
 
Next cTax 
 

 
Me.textDate.Value = Format(Date, "Medium Date") 
 
Me.textDate.SetFocus 
 

 
End Sub

Answer 1

看來你填補這些組合框從客戶端列表範圍值。嘗試從工作表上的其他範圍提取值（例如For Each cSize In ws.Range ("SizeList")）