如何从excel电子表格中的列填充组合框?

时间:2013-01-18 03:54:27

标签: excel-vba combobox spreadsheet vba excel

我有两个excel电子表格,一个有一个组合框,另一个有一个部门名称列表。我需要用部门名称填充组合框。我如何实现这一点。

1 个答案:

答案 0 :(得分:12)

这是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