|
- Private Sub Workbook_Open()
- Dim arr, i&, d As Object
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("sheet1")
- For j = 0 To 15 Step 3
- If IsArray(arr) = True Then Erase arr
- arr = [a22:b32].Offset(0, j)
- For i = 1 To UBound(arr)
- d(arr(i, 1)) = arr(i, 2)
- Next
- Select Case j / 3 + 1 '这里我水平有限,暂时没想到有什么好方法。。。
- Case 1
- .ComboBox1.List() = d.keys
- Case 2
- .ComboBox2.List() = d.keys
- Case 3
- .ComboBox3.List() = d.keys
- Case 4
- .ComboBox4.List() = d.keys
- Case 5
- .ComboBox5.List() = d.keys
- Case 6
- .ComboBox6.List() = d.keys
- End Select
- d.RemoveAll
- Next
- End With
- End Sub
复制代码 关于批量导入combobox的方法,我也不是很清楚,如果需要你最好另开贴提问。不需要用复选按钮的 |
|