ユーザーフォームに4つのオプションボタン(Opt1,Opt2,Opt3,Opt4)があり、一つも押さなかった場合に注意メッセージを出したいのですが、下記だとメッセージがでてくれません。
どのように修正すればいいか、ご教授頂ければ幸いです。
optボタンのプロパティ value は 4つとも false です。excel2000です。
If UserForm1.Opt1.Value = False And UserForm1.Opt2.Value = False And UserForm1.Opt3.Value = False And UserForm1.Opt4.Value = False Then
MsgBox "いずれかを選んでください", vbExclamation, "区分を選んでください"
End If
No.1ベストアンサー
- 回答日時:
例えば、コマンドボタンを押したときに、どのオプションボタンも選択されていない場合
Sub userform_initialize()
End Sub
Private Sub CommandButton1_Click()
If (OptionButton1 Or OptionButton2 Or OptionButton3 Or OptionButton4) = False Then
MsgBox ("動作を選択して下さい")
End If
End Sub
解答ありがとうございました。
解答頂いたコードで、うまくいきました。
とてもシンプルで分かりやすかったです。
ありがとうございました。
No.3
- 回答日時:
質問者のコードとは、別に下記をやって考えてみてください。
Userform1にFrameコントロールを2つ貼り付け。わざと複数個にした。
(質問者はFrameは書いてないが、こうすると、6つのうちの上下3つずつが別の設定が出来るようになる。何かのときに使えるだろう)
それぞれのFrameにオプュションボタンを3つづつ貼り付け(同数にする意味は無いが)。
下記はFrame2でテストすることに注意。
UserForm1の_Initializeイベントに
Private Sub UserForm_Initialize()
For i = 1 To UserForm1.Frame2.Controls.Count
Sheet1.Cells(1, i).Value = UserForm1.Frame2.Controls(i - 1).Value
Next
For ID = 0 To UserForm1.Frame2.Controls.Count - 1
UserForm1.Frame2.Controls(ID).Value = False
Next ID
'UserForm1.Frame1.OptionButton2.Value = True
'UserForm1.Frame2.OptionButton3.Value = True
End Sub
ーー
UserFormのコマンドボタンのイベントに
Private Sub CommandButton1_Click()
For ID = 0 To UserForm1.Frame2.Controls.Count - 1
If UserForm1.Frame2.Controls(ID).Value = True Then
'チェックされているオプションの処理を行う。
'選択されたオプションはCaption内容などで区別します。
MsgBox (ID + 1) & "が選択されています"
Exit Sub
End If
Next ID
MsgBox "オプションボタンが選択されていません"
End Sub
ーー
「Sub/ユーザーフォームの実行」後、
Frame2の、どれかオプションボタンをクリックして、コマンドボタンをクリックしてみてください。
どれをクリックしたか、してないか判別します。
こういうのが通常の、解説書などのオプションボタンの判別の記載例です。
Frameで、3つともドレもオプションボタンがクリックして無いというのを判別できないか、やってみましたが
現在までは見つからなかった(たぶん不可能か?)
何かまとめるコントロールでも無いと、質問の4つのボタンのどれか1つが選択されて居るかどうかは、一発で判別できないはずと考えてやって見たが、AND,ORで列挙するか、ForNextで繰り回すかの違いになった。
回答ありがとうございました。
コードを読んだだけでは、理解できませんでしたので、実際に動作させてなんとか理解することができました。
これが、プロのコードなのかと感銘をうけました。
ありがとうございました。
No.2
- 回答日時:
アナタの書いたマクロは,まぁ色々冗長に見えるとかもっとクールに書けるとかはあるにしても,間違ってはいません。
Opt1から4が正しくFalseであれば,msgboxが上がってくるはずです。
にもかかわらず実行できないとすると,可能性としては
1.そもそもマクロの実行が,ご質問の箇所に辿り着いていない(別のルートで抜けてしまっているなど)
2.実際にはfalseになっていない(ご質問に掲示されたスナップショットも,falseではない絵のようにも見えます)
などの状況も考えられます。
マクロを書いて漫然と実行し,「うごいたーとまったー」と一喜一憂するのではなく,動作がおかしいと思ったらその少し手前で「ブレイクポイント」を設け(若しくはStop命令を記入し),「ステップ実行(F8を連打)」を行ってマクロの動作を一行ずつトレースしてください。こういう作業を「デバッグ」と言いますが,マクロの開発では絶対に手抜きしてはいけない作業の一つです。
参考:
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub0 …
ステップ実行によって,マクロの実行が間違いなくif opt1.value = false and … の行に辿り着いているか,前段の意図しないルートで終了してしまったりしてないかなどを確認します。
また間違いなくifの行に辿り着いているのにあっさりend ifに抜けてしまったなら,その時はopt1,2,3,4の値がfalseでは無いということです。イミディエイトウィンドウなどを使って「その時の実際の値」を再確認したり,更に前段のマクロに遡って,妙な値の操作をしていたりしないか確認します。
解答ありがとうございました。
アドバイスいただいた、デバッグを実践して、自分のマクロを検証することが、できました。
(今頃ですみません)
最終的には、明確に原因はつかめませんでしたが、Isnull関数を用いることで解決いたしました。
とても勉強になりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- その他(プログラミング・Web制作) pythonのエラーについて 2 2022/08/17 17:17
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) このマクロの説明文を教えてほしいです。 1 2023/01/12 09:17
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルVBAでOptionButtonのオンオフ取得
Excel(エクセル)
-
エクセルVBAでオプションボタンを無効にする方法
Excel(エクセル)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
-
4
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
5
フレーム内のオプションボタンの選択結果をセルに書き出したい。 図のような預金種目というフレームにオプ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドボタンで「終了ボタン...
-
押したボタンの位置取得(共通の...
-
コマンドボタンを押すたびに大...
-
Excel:コマンドボタンの移動
-
コマンドボタンがあるかどうか...
-
マクロ登録ボタンに色をつける
-
オートフィルタで非表示セルの判定
-
ShowAllDataのエラーを回避したい
-
Excel VBA --- コマンドボタ...
-
[ExcelVBA] コマンドボタンを押...
-
VisualStudioCodeで、Excelのク...
-
実行中の作業を中止させるコマンド
-
コマンドボタンで印刷ボタンを...
-
エクセルVBA シート上にあるコ...
-
エクセルVBAでOptionButtonのオ...
-
エクセルでマクロを使わずに複...
-
MS_AccessからPDFファイルを開...
-
Excel VBAについて【図形を組み...
-
エクセルでコマンドボタンを押...
-
Wordでドラッグした文字列を括...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
スクロールしてもボタンを常に...
-
押したボタンの位置取得(共通の...
-
コマンドボタンがあるかどうか...
-
エクセルVBAでOptionButtonのオ...
-
コマンドボタンで「終了ボタン...
-
Excel VBA --- コマンドボタ...
-
エクセルVBA シート上にあるコ...
-
ShowAllDataのエラーを回避したい
-
Accessのコマンドボタンの立体...
-
エクセルVBA
-
EXCELでNo.を変えて印刷したい
-
PPTのコマンドボタンがクリック...
-
マクロ登録ボタンに色をつける
-
実行中の作業を中止させるコマンド
-
エクセルのコマンドボタンの位...
-
[ExcelVBA] コマンドボタンを押...
-
Wordでドラッグした文字列を括...
-
チェックボックスで「いずれか1...
おすすめ情報