如何从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