如何從我的Excel電子表格的列中填充組合框？

Question

我有兩個excel電子表格，一個有組合框，另一個有部門名稱列表。我需要用部門名稱填充組合框。我如何實現這一點。

Answer 1

這裏是一個VBA代碼：

Dim vArr as Variant 
Dim i as Integer 
vArr = WorksheetFunction.Transpose(Sheets(2).Range("A2:A10").value) 
With Sheets(1).OLEObjects("ComboBox1").Object 
    .Clear 
    For i = Lbound(vArr) to Ubound(vArr) 
     .AddItem vArr(i) 
    Next i 
End With 

這裏是加載組合框的最簡單的方法，給你的部門範圍也不會是空的......

Private Sub Workbook_Open() 
    Sheets(1).ComboBox1.List = Sheets(2).Range("A2:A10").Value 
End Sub 

或在工作表Sheet1：

Private Sub Worksheet_Activate() 
    ComboBox1.List = Sheets(2).Range("A2:A10").Value 
End Sub