Excel VBA質問箱 IV

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

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


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

【20379】長い文を複数行に分けて書きたいのですが・・・ ringo 04/12/7(火) 18:44 質問[未読]
【20380】Re:長い文を複数行に分けて書きたいのです... IROC 04/12/7(火) 18:45 回答[未読]
【20381】Re:長い文を複数行に分けて書きたいのです... ringo 04/12/7(火) 18:50 お礼[未読]

【20379】長い文を複数行に分けて書きたいのですが...
質問  ringo  - 04/12/7(火) 18:44 -

引用なし
パスワード
   こんばんは、はじめまして。
VBA初心者でIFの分岐処理を作るのに悪戦苦闘しています。
レベルの低い質問で申し訳ないのですが、どうか教えていただけますか?

C3、C4、F3、F4の4つのセルの値がすべて5の場合には、"正解"というメッセージボックスを、どれかひとつでも違う値があれば、"不正解"というメッセージボックッスを出したいです。

私は、

IF Range("C3") = 5 and Range("C4") = 5 and Range("F3") = 15 and Range("F4")=15 Then
  MsgBox "正解"
  Else MsgBox "不正解"
End IF

といった感じで作ってみました。

このIFの条件をANDでつないだのですが、文が長くなってすごく見ずらい場合に、
何行かに分けてかくことは出来るのでしょうか?

また、もっと効率よく実行できる文が他にありますか?

【20380】Re:長い文を複数行に分けて書きたいので...
回答  IROC  - 04/12/7(火) 18:45 -

引用なし
パスワード
   改行は _ です。

  If Range("C3").Value = 5 And _
    Range("C4").Value = 5 And _
    Range("F3").Value = 5 And _
    Range("F4").Value = 5 Then
 
    MsgBox "正解"
  Else
    MsgBox "不正解"
  End If

【20381】Re:長い文を複数行に分けて書きたいので...
お礼  ringo  - 04/12/7(火) 18:50 -

引用なし
パスワード
   改行コードは_ですね。

どうも有難うございます。

これからもっと自分で勉強したいと思います。

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