2013-01-18 32 views

回答

8

這裏是一個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 
+1

某人如何做到這一點只有一行的範圍?我需要從單行添加5個單元格到一個組合框 –

相關問題