Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4412 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
今トグルボタン１を押しこむとメッセージボックスが出て来て、
”トグルボタン２もONにしてください”・・・というメッセージが
出るようにしています。
しかし、もう一度押し込まれているトグルボタン２を押してOFFの状態に
しようとすると、またメッセージボックスが出てきてしまいます。
トグルボタンをONにした時はメッセージボックスが出てきて、
トグルボタンをOFFにする時にはメッセージボックスは出てこないように
したいのですが、どうしたらいいでしょうか？
今のコードは↓です。
----------------------------------------

Private Sub ToggleButton1_Click()

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

End Sub
【56945】Re:トグルボタン
発言  かみちゃん  - 08/7/12(土) 20:46 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>しかし、もう一度押し込まれているトグルボタン２を押して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 -
引用なし
パスワード
   こちらは？

コンボボックスから複数選択するには？！
ｈｔtp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=56697;id=excel
【56949】Re:トグルボタン
発言  とおりすがり  - 08/7/13(日) 11:30 -
引用なし
パスワード
   こちらも。

ｈｔtp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=56799;id=excel
【56950】Re:トグルボタン
発言  とおりすがり  - 08/7/13(日) 11:32 -
引用なし
パスワード
   こちらもですね。

フォーム上のトグルボタンについて
ｈｔtp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=56811;id=excel
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4412 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free