word vba 如何vba遍历文件夹中的文件所有combobox（为统计数量并重新命名）

来源：蜘蛛抓取(WebSpider) 时间：2018-07-14 14:24 标签： vba遍历工作表
查看: 2883|回复: 6
如何获取combobox更改之前的一个listindex值？
阅读权限20
在线时间 小时
如何获取combobox之前的一个listindex值？
例如：combobox当前的listindex值为3，当点击combobox选择其它项时，listindex值变成6,如何获取之前的3这个值？
阅读权限95
在线时间 小时
Private Sub ComboBox1_Change()
a = ComboBox1.Text
阅读权限20
在线时间 小时
楼上理解错了，我是说如何获得之前的一个listindex？
阅读权限95
在线时间 小时
你就设一个公共变量,在ComboBox1_Change前先给他赋值.
阅读权限95
在线时间 小时
回复 3楼 webstorm 的帖子
把Text换成listindex不就得了
阅读权限30
在线时间 小时
原帖由 zjdh 于
21:35 发表
你就设一个公共变量,在ComboBox1_Change前先给他赋值.
这个不错！顶起。
阅读权限20
在线时间 小时
gjj 发表于
这个不错！顶起。
恩，好主意！
我是在Worksheet_Activate()事件里给它附初值的。你呢？
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2134|回复: 8
有多个ComboBox,如何在循环里依次调用
阅读权限20
在线时间 小时
请问各位DX，在同一UserForm内有多个ComboBox，若70个，如何在循环依次调用。
阅读权限30
在线时间 小时
按你要的顺序设定comboBox的TabIndex值，从1~70。即可。
阅读权限20
在线时间 小时
能讲多一些吗? 我还是不明白.
阅读权限30
在线时间 小时
你所说的循环调用是什么意思呢
阅读权限30
在线时间 小时
& & & & & & & &
是不是指这70个COMBOBOX的内容都是一样的意思呢？
如果是，可以采用70个TEXTBOX，当这些TEXTBOX中某一个获得焦点时，将FOCUS交给COMBOBOX，并将其LEFT及TOP设置成此TEXTBOX的LEFT及TOP值，并将COMBOBOX值赋给此TEXTBOX，然后再将焦点移给下一个。不知道你是不是这个意思。
阅读权限30
在线时间 小时
COMBOBOX失云FOCUS时，将其VISIBLE设置高FALSE（载入FORM时最好将其大小设置成其他TEXTBOX大小相同，VISIBLE设置为FALSE）
阅读权限20
在线时间 小时
对，在这70个combobox里的item都是一样的，即把很多文件名加入combobox，这样我就可以用鼠标分别操作没一个combobox, 每个combobox的value(文件名）都不同。在后面的程序中将分别引用每个combobox的value.
阅读权限100
在线时间 小时
Private Sub CommandButton1_Click()For i = 1 To 70Debug.Print Me.Controls("ComboBox" & i).ValueNextEnd Sub
阅读权限20
在线时间 小时
谢谢taller DX, 用你的Me.Controls("ComboBox" & i)实现了我的要求。
谢谢的热心回复
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师VBA如何遍历WORD文档中的某一级标题_百度知道
VBA如何遍历WORD文档中的某一级标题
一个WORD文档较大段落较多，如何遍历所有的标题3并取得其文本内容。如果取得所有段落再判断是不是标题3，这样可行，但文件太大效率很差，想直接取得第一个标题3的文本然后直接取得下一个标题3的文本。
我有更好的答案
使用Find方法，看看是不是快了。'样式、符合样式的当前段文本 Dim wdSty$, strTxt$
wdSty = &标题 1&
With Selection
.HomeKey unit:=wdStory, Extend:=wdMove'光标移到文档首
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(wdSty)'设置查找文本的样式为wdSty(“标题1”)
End With'循环查找文档里所有为“标题1”样式的段落，
Do While Selection.Find.Execute(findtext:=&*^13&, MatchWildcards:=True, Format:=True)
strTxt = Selection.Text '获取符合样式的文本
'.......在这里录入处理代码
Selection.Move unit:=wdWord, Count:=1
If Selection.MoveRight && 1 Then'文档尾退出
Selection.MoveLeft
采纳率：83%
来自团队：
为您推荐：
其他类似问题
word文档的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。EXCEL VBA中,如何清空ComboBox列表中的“数据”_百度知道
EXCEL VBA中,如何清空ComboBox列表中的“数据”
For i = 5 To 29 Step 4
Sheet1.ComboBox1.AddItem Cells(2, i)
NextEnd Sub还有以上这段代码每执行一次它的“数据”都叠加进去了，如何过滤，让重复的“数据”不加进去
我有更好的答案
Sub&s()&&&&&&&Sheet1.ComboBox1.clearEnd&Sub
下面那个叠加的怎么解决
For i = 5 To 29 Step 4
Sheet1.ComboBox1.AddItem Cells(2, i)
NextEnd Sub还有以上这段代码每执行一次它的“数据”都叠加进去了，如何过滤，让重复的“数据”不加进去
Sub&ss()&&&&Sheet1.ComboBox1.Clear&&&&For&i&=&5&To&29&Step&4&&&&&&&&Sheet1.ComboBox1.AddItem&Cells(2,&i)&&&&NextEnd&Sub
来自：求助得到的回答
Sheet1.ComboBox1.clear
For i = 5 To 29 Step 4
Sheet1.ComboBox1.AddItem Cells(2, i)
NextEnd Sub
这样无法选择下拉的数据
如果要过滤重复数据，最好是先将数据写入字典，利用字典的自动过滤重复数据的功能来保证数据不会重复，再将字典中的数据导出到ComboBox，就OK了。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 vba遍历工作表 的文章

 

随机推荐