如何利用vba代码按照tabindex的顺序循环窗体中的控件？

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

楼主
kevinchengcw

Q: 如何利用vba代码按照tabindex的顺序循环窗体中的控件？
A: 利用字典装载控件的tabindex顺序作为key，利用item项装载控件名称，可以轻松实现这一功能，示例代码如下：

Sub test()
Dim N%, Dic, Ctrl
Set Dic = CreateObject("scripting.dictionary") '创建字典
With UserForm1 '工作于userform1
For Each Ctrl In .Controls ‘循环userform1的各个控件
Dic.Add CStr(Ctrl.TabIndex), Ctrl.Name '以控件的tab索引值为key，控件名为item，添加字典项
Next
For N = 1 To Dic.Count '循环字典计数值的次数
Debug.Print .Controls(Dic(CStr(N - 1))).Name '利用对应索引号取得对应的控件名，然后显示出来（注意：控件tab索引值是从0开始，所以减1），在实际应用中可以改为实现想要的功能
Next N
End With
Set Dic = Nothing '清空字典项目
End Sub

2楼
xyf2210

学习

免责声明

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

评论列表