如何将单元格内容增加到ComboBox List？

作者：绿色风分类：时间：2022-08-17 浏览：154

楼主
zzmxy

Q: 请问有什么方法可以将单元格的值添加到ComboBox下拉List里？

A: 方法如下：

1. 使用UserForm_Initialize()事件，通过AddItem的方法，将单元格值输入到ComboBox里，

- A列无重复的话用数组直接赋值就行了

Private Sub UserForm_Initialize()
Dim arr
arr = Sheet1.Range("A2:A" & Sheet1.[A65536].End(xlUp).Row)
Me.ComboBox1.List = arr
End Sub

2. 如果单元格列表里有重复的话可以用字典，如下

Private Sub UserForm_Initialize()
Dim d As Object, arr, i&
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("A2:A" & Sheet1.[A65536].End(xlUp).Row)
For i = 1 To UBound(arr)
d(arr(i, 1) & "") = ""
Next i
Me.ComboBox1.List = d.keys
End Sub

3. 可以用ComboBox_Click()事件，当点击下拉箭头时，就可以实现List内容的更新，这个方法也是可以实现动态更新的；
具体代码请参考下面帖子：
[Excel VBA] ComboBox動態增減下拉清單的完整範例
http://www.exceltip.net/thread-3219-1-1.html

4. 如果ComboBox是ActiveX控制，那还可以通过ListFillRange属性直接赋值，用DropButtonClick就可以实时更新！

Private Sub ComboBox1_DropButtonClick()
ComboBox1.ListFillRange = "$A$2:" & Cells(Rows.Count, 1).End(xlUp).Address
End Sub

2楼
じ☆潴の︵ゞ

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表