Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10697 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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つのセルの値がすべて５の場合には、"正解"というメッセージボックスを、どれかひとつでも違う値があれば、"不正解"というメッセージボックッスを出したいです。

私は、

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 -
引用なし
パスワード
   改行コードは_ですね。

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

これからもっと自分で勉強したいと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10697 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free