窗体组合框如何引用区域不重复值

比如D列的数据有很多重复值,使用窗体组合框要引用这D列数据,但想要显示的是不重复的值,一直困扰着我,没有解决,不知道能否实现?大家一起探讨一下。。

用字典求取不重复值传导给列表框可以实现。代码请参考: ListBox1.Clear '清空列表框 Set d = CreateObject("scripting.Dictionary") '建立字典 maxRow = [D65536].End(xlUp).Row '求取D列最大行,本句必须根据实际情况选择合适的语句(比如隐藏行、EXCEL2007等情况) For i = 1 To maxRow If Cells(i, 4).Value <> "" Then d(Cells(i, 4).Value) = "" '给字典赋值 Next ListBox1.List = d.keys '将字典导入到列表框 Set d = Nothing '释放字典
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-11-23
假设你的数据在sheet1的d列,一下代码可以直接吧不重复值导入组合框1:dim i,jfor i=1 to sheets("sheet1").[d65536].end(xlup).row for j=0 to combobox1.listcount-1 if cells(i,4)=combobox.list(j) then goto 100 next j combobox.additem cells(i,4)100: next i把这段代码复制到窗体打开事件里面就可以了。
第2个回答  2013-11-23
求出不重复值放在别的列,让窗体再引用,excel求不重复值无论函数公式或者VBA相信红兄都能轻易完成,红兄就不要为难窗体了!!

窗体组合框如何引用区域不重复值
一下代码可以直接吧不重复值导入组合框1:dim i,jfor i=1 to sheets("sheet1").[d65536].end(xlup).row for j=0 to combobox1.listcount-1 if cells(i,4)=combobox.list(j) then goto 100 next j combobox.additem cells(i,4)100: next i把这段代码复制到窗体打开事件里面就可以...

窗体组合框如何引用区域不重复值
用字典求取不重复值传导给列表框可以实现。代码请参考: ListBox1.Clear '清空列表框 Set d = CreateObject("scripting.Dictionary") '建立字典 maxRow = [D65536].End(xlUp).Row '求取D列最大行,本句必须根据实际情况选择合适的语句(比如隐藏行、EXCEL2007等情况) For i = 1 To maxRow If...

ACCESS 窗体里的组合框控件,选择了数据后,窗体里的内容不随着组合框里...
1.你要做一个刷新按钮,可以用宏代码选一个REQUER不填就是刷新整个窗体的意思或者你直接用 按钮向导选择刷新 2.你的窗体要有数据源(随意)他才可以支持刷新动作 3.在窗体里面给你的组合框命名,给他在数据拦里选择查询,行来源添加一个报表查询(不带查询参数的源报表)或者直接写SQL数据 如SELECT ...

窗体上建立一个简单的组合框,在组合框的文本框的文本框输入数字字符,按...
一楼回答不错,但我想这个应用一般是要去掉重复数据的。因为我这台电脑没有装VB,去重复你的那个For循环可能有点错误,具体需要您在VB环境下调试下。Private Sub Combo1_KeyPress(KeyAscii As Integer)dim K as long If KeyAscii = 13 Then If IsNumeric(Combo1.Text) Then for k=0 to combo1....

在access的窗体或报表中,可以使用组合框或列表框来显示一组限制性_百...
组合框是一个下拉列表,用户可以从中选择一个选项,也可以直接在组合框中输入值。这种控件特别适用于那些既需要限制性选项,又可能需要用户输入自定义值的情况。例如,在一个订单输入窗体中,可以使用组合框来列出常用的产品名称,但如果用户需要输入一个不在列表中的新产品,他们也可以直接在组合框中输入。

EXCEL单元格如可引用组合框(窗体控)里所选择的数据?
1、点窗体属性;及设置控件格式2、控制选项卡;3、在单元格控制你要控制的单元格就可以了。4、如果需要引用,在数据源那引用单元格就可以了。

在EXCEL中,我复制的窗体中的组合框怎么内容都是同步的
解决这个问题,一是用数据有效性将下拉列表(沙发、餐桌。。。)生成下拉表,可以不用窗体组合框,直接在数据-数据有效性下面。第二步,在价格列使用vlookup函数。这个前提是要有一张表,下拉列表名称及对应的单价。如果价格在B列,则B1的公式可以写为:=vlookup(A1,sheet1!A:B,2,0)

excel 窗体复合框引用表格数据
先添加一个窗体,再在窗体上添加三个复合框控件,然后双击窗体输入下面代码:Private Sub UserForm_Activate()With Sheets("sheet1") For i = 1 To .[a65536].End(xlUp).Row ComboBox1.AddItem .Cells(i, 1).Value '将A列显示在组合框中 ComboBox2.AddItem .Cells(i, 2).Value '...

如何实现ACCESS窗体中在一个组合框内选中目标字段后其对应的字段也自动...
不太理解你的问题,猜测...如果在组合框A中选择字段1,想在文本框B中自动显示字段2的内容,那麼,在文本框B的属性->数据->数据来源中写:=DLookUp("字段2名称","表名","字段1名称=" & [组合框A名称])如果字段1是文本,=DLookUp("字段2名称","表名","字段1名称='" & [组合框A名称] ...

VB组合框
1.在窗体里添加一个Combo1然后到Text属性清空Combo1,属性Style设置为1 Simple Combo,然后用鼠标把控件高度拉开。继续到List属性里按照顺序填入图形内指定的值。再把控件的高度宽度调整到适合即可。2.添加一个命令按钮Command1,到Caption属性改为【交换】文字,可以到Font里面设置文字大小。3.把窗体的布局...

相似回答
大家正在搜