🏆本文收录于《CSDN问答解惑-专业版》专栏,主要记录项目实战过程中的Bug之前因后果及提供真实有效的解决方案,希望能够助你一臂之力,帮你早日登顶实现财富自由🚀;同时,欢迎大家关注&&收藏&&订阅!持续更新中,up!up!up!!
问题描述
VBA中在窗体中遍历所有checkbox控件,提取出被选中的checkbox的caption值。VBA中在窗体中遍历所有checkbox控件,判断是否被选中,提取出被选中的checkbox中的caption值,调试无错误提醒,就是没有值显示。
Private Sub cmdFY_Click()
Dim i As Integer
Dim checkboxes(1 To 50) As MSForms.checkbox
For i = 1 To 50
If TypeOf choiceForm.Controls(i) Is MSForms.checkbox Then
Dim checkbox As MSForms.checkbox
checkbox = choiceForm.Controls(i)
If checkbox.Value = True Then
MsgBox "Checkbox '" & checkbox.Caption & "' is selected."
End If
End If
Next i
End Sub
如上问题有来自我自身项目开发,有的收集网站,有的来自读者…如有侵权,立马删除。
解决方案
如下是上述问题的解决方案,仅供参考:
在VBA中,如果你希望在用户窗体中遍历所有的复选框(Checkbox)控件,并提取出被选中的复选框的标题(Caption),你可以使用以下代码。你的代码中有一些需要调整的地方,以下是修改后的代码:
Private Sub cmdFY_Click()
Dim i As Integer
Dim selectedCheckboxes As New Collection ' 使用Collection来存储选中的复选框的标题
For i = 0 To choiceForm.Controls.Count - 1 ' 从0开始,直到控件数量减1
If TypeName(choiceForm.Controls(i)) = "CheckBox" Then ' 检查控件类型是否为CheckBox
Dim checkbox As MSForms.CheckBox
Set checkbox = choiceForm.Controls(i)
If checkbox.Value = True Then ' 判断复选框是否被选中
selectedCheckboxes.Add checkbox.Caption ' 将选中的复选框标题添加到集合中
End If
End If
Next i
' 显示选中的复选框标题
If selectedCheckboxes.Count > 0 Then
Dim result As String
result = "Selected Checkboxes: " & vbCrLf
For Each caption In selectedCheckboxes
result = result & caption & vbCrLf
Next
MsgBox result
Else
MsgBox "No checkboxes are selected."
End If
End Sub
代码解释:
- 使用
Collection
对象:使用Collection
对象来存储被选中的复选框的标题。 - 遍历控件:从
0
开始遍历到choiceForm.Controls.Count - 1
,因为控件索引是从0开始的。 - 检查控件类型:使用
TypeName
函数检查控件类型是否为CheckBox
。 - 判断复选框是否被选中:如果复选框的
Value
属性为True
,则表示复选框被选中。 - 显示结果:如果有任何选中的复选框,将它们显示在一个消息框中。
注意事项:
- 确保
choiceForm
是正确引用你的用户窗体对象。 - 确保复选框控件的
Value
属性被正确设置,通常在设计时或通过代码设置。
通过这种方式,你可以获取并显示所有被选中的复选框的标题。如果仍然没有值显示,可能需要检查复选框的Value
属性是否被正确设置,或者复选框是否在窗体加载时被正确初始化。
希望如上措施及解决方案能够帮到有需要的你。
PS:如若遇到采纳如下方案还是未解决的同学,希望不要抱怨&&急躁,毕竟影响因素众多,我写出来也是希望能够尽最大努力帮助到同类似问题的小伙伴,即把你未解决或者产生新Bug黏贴在评论区,我们大家一起来努力,一起帮你看看,可以不咯。
若有对当前Bug有与如下提供的方法不一致,有个不情之请,希望你能把你的新思路或新方法分享到评论区,一起学习,目的就是帮助更多所需要的同学,正所谓「赠人玫瑰,手留余香」。
☀️写在最后
ok,以上就是我这期的Bug修复内容啦,如果还想查找更多解决方案,你可以看看我专门收集Bug及提供解决方案的专栏《CSDN问答解惑-专业版》,都是实战中碰到的Bug,希望对你有所帮助。到此,咱们下期拜拜。
码字不易,如果这篇文章对你有所帮助,帮忙给 bug菌 来个一键三连(关注、点赞、收藏) ,您的支持就是我坚持写作分享知识点传播技术的最大动力。
同时也推荐大家关注我的硬核公众号:「猿圈奇妙屋」 ;以第一手学习bug菌的首发干货,不仅能学习更多技术硬货,还可白嫖最新BAT大厂面试真题、4000G Pdf技术书籍、万份简历/PPT模板、技术文章Markdown文档等海量资料,你想要的我都有!
📣关于我
我是bug菌,CSDN | 掘金 | InfoQ | 51CTO | 华为云 | 阿里云 | 腾讯云 等社区博客专家,C站博客之星Top30,华为云2023年度十佳博主,掘金多年度人气作者Top40,掘金等各大社区平台签约作者,51CTO年度博主Top12,掘金/InfoQ/51CTO等社区优质创作者;全网粉丝合计 30w+;硬核微信公众号「猿圈奇妙屋」,欢迎你的加入!免费白嫖最新BAT互联网公司面试真题、4000G PDF电子书籍、简历模板等海量资料,你想要的我都有,关键是你不来拿哇。