如何调用带有组名或标签的复选框？ Download


Am创建一个表单，用户可以在其中选择4个复选框。蓝色，绿色，黄色，红色。他们必须至少这样做两次，总共最多5次。

第一个复选框位于表单上，其他4个分组的复选框位于多页上。

我试图给他们一个组名“ Reeks”到“ Reeks4”，然后将它们的值打印到一个用逗号分隔的单元格中。

到目前为止，我发现的代码确实可以很好地打印出值，但是，它抓住了表单上每个可用的复选框，而不仅仅是从“ Reeks”组中获取。

我尝试将组名（或标签，将它们命名为相同的名称）添加到代码中的方式，仅给我错误。 

For Each Control In Me.Controls
   If TypeName(Control) = "CheckBox" Then
               'If Control.GroupName = "Reeks" Then
                If Control.Value Then 
            Reeks = IIf(Reeks <> "", Reeks & ", ", "") & Control.Caption
        End If
        End If
    Next

With ws 
.Cells(iRow, 5).Value = Reeks
End With

欢迎任何帮助，但请尽可能添加评论，因为我上周才刚开始使用VBA。

（旁注。我在多页上还带有带框的复选框，用户可以在其中选择所述颜色的位置。侧面+顶视图。这需要与颜色相同，但打印在不同的列中。 ）

0 个答案:

没有答案



Similar searches