Excel VBA質問箱 IV

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

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


55349 / 76732 ←次へ | 前へ→

【26159】Re:IF文に関する疑問
回答  [名前なし]  - 05/6/24(金) 22:23 -

引用なし
パスワード
   ▼知ろう途 さん:
こんな考え方ではいかがでしょうか。

方法1 CountIfで、入力範囲にそれぞれの数字が入ってることを確認

Sub Macro1()
  With WorksheetFunction
    Select Case True
    Case .CountIf([A4:A5], 4) And .CountIf([A4:A5], 8)
      '処理1
    Case .CountIf([A4:A5], 10) And .CountIf([A4:A5], 15)
      '処理2
    End Select
  End With
End Sub


'方法2 小さい数字 & "|" & 大きい数字 という文字列を作って、その文字列で分岐

Sub Macro2()
  With WorksheetFunction
    Select Case .Min([A4:A5]) & "|" & .Max([A4:A5])
    Case "4|8"
      '処理1
    Case "10|15"
      '処理2
    End Select
  End With
End Sub
2 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 お礼

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