Excel VBA質問箱 IV

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

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


4391 / 13644 ツリー ←次へ | 前へ→

【56944】トグルボタン 江戸Guy 08/7/12(土) 20:43 質問[未読]
【56945】Re:トグルボタン かみちゃん 08/7/12(土) 20:46 発言[未読]
【56946】Re:トグルボタン 江戸Guy 08/7/12(土) 23:23 お礼[未読]
【56948】Re:トグルボタン とおりすがり 08/7/13(日) 11:28 発言[未読]
【56949】Re:トグルボタン とおりすがり 08/7/13(日) 11:30 発言[未読]
【56950】Re:トグルボタン とおりすがり 08/7/13(日) 11:32 発言[未読]

【56944】トグルボタン
質問  江戸Guy  - 08/7/12(土) 20:43 -

引用なし
パスワード
   すいません、誰か教えてくださいm(_ _ )m
今トグルボタン1を押しこむとメッセージボックスが出て来て、
”トグルボタン2もONにしてください”・・・というメッセージが
出るようにしています。
しかし、もう一度押し込まれているトグルボタン2を押してOFFの状態に
しようとすると、またメッセージボックスが出てきてしまいます。
トグルボタンをONにした時はメッセージボックスが出てきて、
トグルボタンをOFFにする時にはメッセージボックスは出てこないように
したいのですが、どうしたらいいでしょうか?
今のコードは↓です。
----------------------------------------

Private Sub ToggleButton1_Click()

MsgBox "ToggleButton2もONにしてください", vbExclamation

End Sub

【56945】Re:トグルボタン
発言  かみちゃん  - 08/7/12(土) 20:46 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>しかし、もう一度押し込まれているトグルボタン2を押してOFFの状態に
>しようとすると、またメッセージボックスが出てきてしまいます。
>トグルボタンをONにした時はメッセージボックスが出てきて、
>トグルボタンをOFFにする時にはメッセージボックスは出てこないように
>したいのですが、どうしたらいいでしょうか?

以下のようにToggleButton1の値で判断すればいいと思います。

If ToggleButton1.Value Then
 MsgBox "ToggleButton2もONにしてください", vbExclamation
Else
 MsgBox "メッセージなし"
End If

【56946】Re:トグルボタン
お礼  江戸Guy  - 08/7/12(土) 23:23 -

引用なし
パスワード
   そうですね、このやり方が
やっぱりシンプルでいいですね。
ありがとうございました!

【56948】Re:トグルボタン
発言  とおりすがり  - 08/7/13(日) 11:28 -

引用なし
パスワード
   こちらは?

コンボボックスから複数選択するには?!
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=56697;id=excel

【56949】Re:トグルボタン
発言  とおりすがり  - 08/7/13(日) 11:30 -

引用なし
パスワード
   こちらも。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=56799;id=excel

【56950】Re:トグルボタン
発言  とおりすがり  - 08/7/13(日) 11:32 -

引用なし
パスワード
   こちらもですね。

フォーム上のトグルボタンについて
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=56811;id=excel

4391 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free