VBA ユーザーフォーム上のチェックボックスの合計を別シートに標示させるには？

フォーム上にあるチェックボックスのチェック数を合計し、その数を別シートに標示するにはどうしたら良いのでしょうか。教えてください。


Private Sub count_CheckBox()

Dim i As Long

For i = 1 To 20

If Me.Controls("CheckBox" & i).Value = True Then

count = count + 1

End If

Next i

If count > 0 Then

MsgBox count

End If

End Sub

上記コードでフォームにあるチェックボックスの合計を求めています。

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2016/07/21 22:12

以下のようにしてください。

Sheet6のF1のセルへチェック数を設定する場合です。（シート名、セル位置は適宜変更してください）
-----------------------------------------
Private Sub count_CheckBox()

Dim i As Long
Dim count As Long '・・・この行を追加
count = 0 '・・・この行を追加
For i = 1 To 20

If Me.Controls("CheckBox" & i).Value = True Then

count = count + 1

End If

Next i

If count > 0 Then

MsgBox count

End If
Worksheets("Sheet6").Select '・・・この行を追加
Range("F1").Value = count '・・・この行を追加

End Sub

この回答へのお礼

いつもお世話になり、ありがとうございます。
思ったとおりのものができました。

お礼日時：2016/07/22 12:48