Private Sub 创建下拉列表框()
OLEObjects.Add ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=0, Top:=29, Width:=55, Height:=20
End Sub
Sub 添加列表数据()
Dim brr()
n = Range("IV3").End(xlToLeft).Column
ReDim brr(1 To n / 2)
For i = 2 To n Step 2
brr(i / 2) = Cells(3, i)
Next i
ComboBox1.List = brr
End Sub
Private Sub ComboBox1_Change()
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载