[[20240428065328]]　『ユーザーフォーム上のチェックボックス』（珈琲）　ページの最後に飛ぶ

『ユーザーフォーム上のチェックボックス』（珈琲）

　ユーザーフォーム上に20個程度、チェックボックスをおいています。実行した際、チェックボックスにチェックが入った個数（つまり、checkboxの値がTrueの個数）をカウントしたいのですが、どのように記述したらよいでしょうか。
　お知恵を貸していただきたく質問させていただきました。よろしくお願いいたします。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 こんな感じ。

    Dim ctrl As Control
    Dim cnt As Long

    For Each ctrl In UserForm1.Controls
        If TypeName(ctrl) = "CheckBox" Then
            cnt = cnt + IIf(ctrl.Value, 1, 0)
        End If
    Next ctrl

    Debug.Print cnt

（半平太） 2024/04/28(日) 09:06:23

ありがとうございます。助かりました!!
（珈琲） 2024/05/01(水) 11:25:09

コメント返信：

[ 一覧(最新更新順) ]

[[20240428065328]] 『ユーザーフォーム上のチェックボックス』（珈琲） ページの最後に飛ぶ

[[20240428065328]]　『ユーザーフォーム上のチェックボックス』（珈琲）　ページの最後に飛ぶ