我有两个excel电子表格,一个有一个组合框,另一个有一个部门名称列表。我需要用部门名称填充组合框。我如何实现这一点。
答案 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