|
こんにちは。かみちゃん です。
> ユーザーフォームにオプションボタンが10個ある。
> チェックされているオプションボタンの数を数える方法はないでしょうか?
チェックボックスではなく、オプションボタンなのでしょうか?
オプションボタンとは、「複数の選択肢の中から、一つを選択するもの」です
ので、チェックされている数を数えたいというのがあまりよくわかりません。
http://www.weblio.jp/content/オプションボタン
ただ、一応、以下のようにすれば、数を数えることはできると思います。
Private Sub CommandButton1_Click()
Dim c As Object
Dim i As Integer
i = 0
For Each c In Controls
' If TypeName(c) = "CheckBox" Then
If TypeName(c) = "OptionButton" Then
If c.Value Then
i = i + 1
End If
End If
Next c
' MsgBox i & " 個のCheckBoxがオンです"
MsgBox i & " 個のOptionButtonがオンです"
End Sub
なお、以下のURLを参考にしています。
http://www.officetanaka.net/excel/vba/tips/tips44.htm
また、投稿の際にご協力いただきたいのですが、
投稿時の種別を質問なら「質問」をお礼なら「お礼」を選択するようにしましょう。
|
|