Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28893 / 76732

←次へ　｜　前へ→


	【53129】Re:Optionbuttonのチックしていないメッセージを出す方法

りん

- 07/12/16(日) 15:58 -


	引用なし

	パスワード

Yoshida さん、こんにちわ。

>全く同じような構文で、bykinさんのアドバイスをまねて
>作成した下のコードが、又正確な動作をしません。

>Private Sub CommandButton5_Click()
>　　Dim c As Object, buf As String, flg As Boolean
'↓コレを追加してみてください
flg = False

>　　For Each c In Controls
>　　　　If Left(c.Name, 12) = "OptionButton" Then
>　　　　　　If c.Value Then buf = buf & c.Caption & vbCrLf
>　　　　　 flg = True
>　　　　 Exit For
>　　　　End If
>　　Next c
>　　If flg = False Then
>　　　 MsgBox "オンないです"
>　　Else
>　　　 MsgBox buf & "がオンです"
>　　End If
>End Sub

また、
　　If buf = "" Then
　　　 MsgBox "オンないです"
　　Else
　　　 MsgBox buf & "がオンです"
　　End If
これでもいいかも。

1 hits

▼

【53115】Optionbuttonのチックしていないメッセージを出す方法 Yoshida 07/12/15(土) 21:08