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