VBA，复合框的下拉项值，有遍历下拉框的方法吗

来源：蜘蛛抓取(WebSpider) 时间：2018-06-04 22:40 标签： vba 下拉框值遍历
vba中实现下拉框的方法_百度文库
赠送免券下载特权
10W篇文档免费专享
部分付费文档8折起
每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vba中实现下拉框的方法
&&学习vba代码的书写
下拉框的实现
阅读已结束，下载本文需要
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢查看: 1775|回复: 2
如何取复合框值是复合框列表中的第几个
阅读权限20
在线时间 小时
请各位兄弟朋友指点如何取得复合框值是复合框列表中的第几个，
24.jpg (54.01 KB, 下载次数: 0)
20:42 上传
如图房号：选择了20101，怎么取得20101是这个下拉列表中的第几个？谢谢
(33.96 KB, 下载次数: 20)
20:42 上传
点击文件名下载附件
阅读权限20
在线时间 小时
最好是取得20101在H列的行号。谢谢
阅读权限10
在线时间 小时
Dim c As Variant
Dim a As Integer
& & For Each c In [H1:H1000]
& && &&&If c.Value = ComboBox1.Value Then
& && &&&MsgBox ComboBox1.Value & &&&在第& & c.Row & &行，& & c.Column & &列。&
& && &&&a = c.Row
& && &&&End If
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1460|回复: 6
如何动态改变复合框的下拉选择项
阅读权限20
在线时间 小时
如何动态改变复合框的下拉选择项
请各位示教，谢谢！
14:50 上传
点击文件名下载附件
56.27 KB, 下载次数: 28
阅读权限90
在线时间 小时
Private Sub UserForm_Activate()
& &CB_07_ly.RowSource = &L3:L10&
阅读权限20
在线时间 小时
如楼上的话，则下拉选项中是重复的，我的意思是：
1、在下拉选项中各项不重复
2、要按各项在实际表中数量的多少排序，多的排在上面，这样可更方便使用
还请朋友们继续多多帮助，谢谢！
阅读权限90
在线时间 小时
“数量”在哪？
阅读权限20
在线时间 小时
原帖由 热浪2006 于
15:14 发表
“数量”在哪？
我的想法“数量”是通过对L列重复项目的统计得到，因L列的项目有很多是重复的，如“本人提供”是3个，“部门转交”是2个，“上级退回”2个，“自部递送”1个，
希望统计的数量多的放在前，少的放在后
为此，按例子的数据，下拉项应依次为
（在后期的输入过程中，一定是统计数量多的记录也会多，这样，选择起来一直会方便）
我不知道自己表述清楚了没有
阅读权限95
在线时间 小时
(59 KB, 下载次数: 77)
16:14 上传
点击文件名下载附件
阅读权限20
在线时间 小时
终于解决了，谢谢楼上的专家，今晚我把代码再仔细研究一下。非常感谢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 8034|回复: 15
VBA 复合框下拉菜单能自动筛选功能如何实现
阅读权限20
在线时间 小时
比如我一开始如果没有输入的话，下拉菜单里面的是所有的 可选项，
但是如果我输入一个字母的话，比如a，然后下拉菜单里面就只有以a开头的选项，其他的选项就都没了
继续输入的话，可选的选项会逐渐的减少，直到剩下确切的一个选项，请问这个功能可能用vba实现么？
该怎么实现啊？
阅读权限95
在线时间 小时
可以实现，请上附件
阅读权限20
在线时间 小时
本帖最后由 致命之猛兽 于
06:31 编辑
doitbest 发表于
可以实现，请上附件
麻烦您了，
(16.24 KB, 下载次数: 153)
06:31 上传
点击文件名下载附件
阅读权限20
在线时间 小时
& & & & & & & &
doitbest 发表于
可以实现，请上附件
那个附件好像不对，上传了一个新的，麻烦您了
(16.24 KB, 下载次数: 160)
06:33 上传
点击文件名下载附件
阅读权限100
在线时间 小时
Dim Arr, d, k, t
Private Sub ComboBox1_Change()
Dim mc$, j&, b, aa, bb$
mc = Me.ComboBox1.Text
b = d(mc)
b = Left(b, Len(b) - 1)
If InStr(b, &,&) Then
& & aa = Split(b, &,&)
& & For j = 0 To UBound(aa)
& && &&&bb = bb & Arr(aa(j), 2) & &,&
& & Next
Else
& & bb = Arr(b, 2)
End If
If InStr(bb, &,&) Then
& & bb = Left(bb, Len(bb) - 1)
& & Me.ComboBox2.List = Split(bb, &,&)
Else
& & Me.ComboBox2.Text = bb
End If
End Sub
Private Sub UserForm_Initialize()
Dim i&
Set d = CreateObject(&Scripting.Dictionary&)
Arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(Arr)
& & d(Arr(i, 1)) = d(Arr(i, 1)) & i & &,&
Next
k = d.keys
t = d.items
Me.ComboBox1.List = k
End Sub
复制代码
阅读权限100
在线时间 小时
请见附件。
09:42 上传
点击文件名下载附件
18.16 KB, 下载次数: 953
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
请见附件。
非常感谢您的帮助，谢谢
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
请见附件。
高手能帮忙加个注释吗？有的地方看不懂啊
阅读权限100
在线时间 小时
如果一句也不懂又有强烈兴趣学VBA的，建议从看一本VBA入门书开始学习。
阅读权限20
在线时间 小时
& & & & & & & &
蓝桥玄霜 发表于
如果一句也不懂又有强烈兴趣学VBA的，建议从看一本VBA入门书开始学习。
b = d(mc) 这句不太明白
arr也不是太明白
其他的都还好，自己看看就可以了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 155|回复: 4
菜鸟求教组合框combobox下拉选项的赋值
阅读权限20
在线时间 小时
求教高手：从现有的数据表中，选择某列（有重复项），将其数据经过唯一性筛选和排序后，作为组合框Combobox的下拉选项。（类似于在EXCEL表格中，建立筛选那样）。如何运用数组和字典来实现呢？还有没有其它的方法呢？
阅读权限50
在线时间 小时
字典去重后存进数组，再把数组赋值进去
阅读权限20
在线时间 小时
字典去重后存进数组，再把数组赋值进去
能再讲解的详细点吗？比如字典怎么去重。还有我只知道字典有key 和 item，是什么意思啊，怎么操作啊。
阅读权限50
在线时间 小时
能再讲解的详细点吗？比如字典怎么去重。还有我只知道字典有key 和 item，是什么意思啊，怎么操作啊。
建议你看看蓝版的字典详解
阅读权限20
在线时间 小时
通宵学习中
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 vba 下拉框值遍历 的文章

 

随机推荐