0

ユーザーが 4 つのチェックボックスを選択できるフォームを作成しています。青、緑、黄、赤。これを少なくとも 2 回、合計で 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