Excel VBA質問箱 IV

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

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


29199 / 76732 ←次へ | 前へ→

【52817】Caseに複数の条件
質問  セイチ  - 07/12/4(火) 23:34 -

引用なし
パスワード
   皆様よりレベルの低い質問をするという事は重々承知しておりますが、どうぞお許しください。

私はExcelで、イラストロジックを途中まで解いてくれるプログラムを、最終的には作ろうと思っています。
そのために、3つのセルに、それぞれ入力されているかされていないかで、異なる動きをするプログラムを作ろうと思っています。
例えば、
「B5は入力あり」かつ「C5は入力なし」かつ「D5は入力あり」のとき「「成功!」というメッセージボックスを表示する」
当てはまらないときは、「「失敗・・・」というメッセージボックスを表示する」
といった風にです。
これをCaseで作りたく、下のように作ってみたのですが、思うように動きません。

Sub テスト()
  Select Case Range("B5,C5,D5")
      Case Is = Not Empty, Is = Empty, Is = Not Empty
        MsgBox "成功!"
      Case Else
        MsgBox "失敗・・・"
  End Select
End Sub

Caseには、複数のセルに関する条件は設定できないのでしょうか?
設定できるにしても、やり方が違っているのでしょうか?
ヒントだけでも良いので、教えていただけたら嬉しいです。
よろしくお願いいたします。

0 hits

【52817】Caseに複数の条件 セイチ 07/12/4(火) 23:34 質問
【52820】Re:Caseに複数の条件 りん 07/12/5(水) 6:40 回答
【52840】Re:Caseに複数の条件 neptune 07/12/5(水) 20:42 回答
【52842】Re:Caseに複数の条件 ponpon 07/12/5(水) 21:57 発言
【52844】Re:Caseに複数の条件 セイチ 07/12/5(水) 23:31 お礼
【52855】Re:Caseに複数の条件 neptune 07/12/6(木) 12:05 回答
【52845】Re:Caseに複数の条件 ichinose 07/12/5(水) 23:32 発言
【52889】Re:Caseに複数の条件 セイチ 07/12/7(金) 22:46 お礼

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