问题描述

VBA 循环遍历界面获取CheckBox 选中状态，并返回CheckBox.Text上的内容

循环获取的代码如下，界面中包含了 N个GroupBox N 个CheckBox，如遇到GroupBox那么循环跳入继续找CheckBox，直接完成遍历 查找到所有打勾的CheckBox名字 最后 返回

Sub SearchControls(ByRef rControls ByRef value)

    For Each sControl In rControls        If TypeOf sControl Is CheckBox Then            If CType(sControl CheckBox).Checked = True Then                value = vale + CType(sControl CheckBox).Text  '加入值            End If        End If        If TypeOf sControl Is GroupBox Then            SearchControls(CType(sControl Control).Controls value)        End If    NextEnd Sub

代码是在 VB下写的，但是 CType 方法 在 VBA环境下 执行不了，有什么别的方法去替换么？
求指点！

解决方案

VBA中如何用循环来遍历某个窗体中的所有控件?

技巧119、遍历控件的方法