Excel VBA質問箱 IV

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

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


55362 / 76732 ←次へ | 前へ→

【26146】IF文に関する疑問
質問  知ろう途  - 05/6/24(金) 15:23 -

引用なし
パスワード
   いつもお世話になっております。
まだまだ勉強中の身ですのでご教授お願いします。
ある二つのセルの値AとBを調べる時に・・・

Sub Test()

  If [A4].Value = 4 And [A5].Value = 8 Then

  '処理1

  ElseIf [A4].Value = 8 And [A5].Value = 4 Then

  '処理1

  ElseIf [A4].Value = 10 And [A5].Value = 15 Then

  '処理2

  ElseIf [A4].Value = 15 And [A5].Value = 10 Then

  '処理2
  
  End If

End Sub

といった感じにAとBがBとAとなってる場合でも同一の処理を行いたいのですが
上記のように長々とした文にするしか無いのですか?
Select Caseを使ってチャレンジしましたが、長々となってしまいます。
どなたか良い知恵をお貸し下さい。

1 hits

【26146】IF文に関する疑問 知ろう途 05/6/24(金) 15:23 質問
【26147】Re:IF文に関する疑問 Jaka 05/6/24(金) 15:33 発言
【26159】Re:IF文に関する疑問 [名前なし] 05/6/24(金) 22:23 回答
【26164】Re:IF文に関する疑問 kobasan 05/6/25(土) 6:55 発言
【26167】Re:IF文に関する疑問 知ろう途 05/6/25(土) 9:23 お礼

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