[已解决]求助：COMBOBOX控件填入单位区域不重复值的问题

走进EXCEL · 发表于 2011-8-9 13:31

求助：
如何将单元格区域中的不重复值自动填入Cobobox中？
详见附件，谢谢！！

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-8-9 13:52

回复走进EXCEL 的帖子

Private Sub UserForm_Initialize()
Dim arr
Dim i As Long
Dim j As Long
Dim D As Object '定义字典步骤1
Set D = CreateObject("scripting.dictionary") '定义字步骤2
With ListView1
.ColumnHeaders.Add , , "姓名", 38
.ColumnHeaders.Add , , "等级", Width / 6
.ColumnHeaders.Add , , "排名", Width / 6
.View = lvwReport 'listivew的显示格式为报表格式
.Gridlines = True '显示网格线
.FullRowSelect = True '允许整行选中
End With
' Set D = CreateObject("Scripting.Dictionary")
With ComboBox1
arr = Range("k1:M" & Range("a65536").End(xlUp).Row)
For j = 1 To 3
For i = 1 To UBound(arr)
If arr(i, j) <> "" Then
D(arr(i, j)) = ""
End If
Next i
Next j
ComboBox1.List() = D.keys
End With
ComboBox1.ListIndex = 0
End Sub

复制代码

跳转到最佳答案楼层

fjmxwrs · 发表于 2011-8-9 13:50

本帖最后由 fjmxwrs 于 2011-8-9 14:03 编辑

用字典来处理即可
如果你只有这三种，可以在初始化的时候直接
combobox1.list=array("初级","中级","高级")
如果需要变化的从那三列中来，代码如附件

B02.rar (14 KB, 下载次数: 53)

搁浅2008 · 发表于 2011-8-9 13:52

回复走进EXCEL 的帖子

Private Sub UserForm_Initialize()
Dim arr
Dim i As Long
Dim j As Long
Dim D As Object '定义字典步骤1
Set D = CreateObject("scripting.dictionary") '定义字步骤2
With ListView1
.ColumnHeaders.Add , , "姓名", 38
.ColumnHeaders.Add , , "等级", Width / 6
.ColumnHeaders.Add , , "排名", Width / 6
.View = lvwReport 'listivew的显示格式为报表格式
.Gridlines = True '显示网格线
.FullRowSelect = True '允许整行选中
End With
' Set D = CreateObject("Scripting.Dictionary")
With ComboBox1
arr = Range("k1:M" & Range("a65536").End(xlUp).Row)
For j = 1 To 3
For i = 1 To UBound(arr)
If arr(i, j) <> "" Then
D(arr(i, j)) = ""
End If
Next i
Next j
ComboBox1.List() = D.keys
End With
ComboBox1.ListIndex = 0
End Sub

复制代码

xiaoni · 发表于 2011-8-9 16:30

本帖最后由 xiaoni 于 2011-8-9 16:32 编辑

老师我的工具箱里面没有：listview 这个按钮呀？
listview这个按钮在哪找？

走进EXCEL · 发表于 2011-8-10 15:18

回复 xiaoni 的帖子

打开作表后：
按ALT+F11
插入用户窗体
ALT+T
选择附加控件，出现如下：
file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/807071085/QQ/WinTemp/RichOle/K6~O]$SSWR4~JFMM]9U%$)0.jpg
然后勾选Microsoft MonthView Control 6.0 (SP6)
控件工具箱中就有了ListView控件选项了。

		自动登录	找回密码
密码			注册