0

我正在创建一个表单，用户可以在其中选择 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。

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

4

0 回答 0