Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55355 / 76738

←次へ　｜　前へ→


	【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)
　　　　　　'処理１
　　　　Case .CountIf([A4:A5], 10) And .CountIf([A4:A5], 15)
　　　　　　'処理２
　　　　End Select
　　End With
End Sub

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

Sub Macro2()
　　With WorksheetFunction
　　　　Select Case .Min([A4:A5]) & "|" & .Max([A4:A5])
　　　　Case "4|8"
　　　　　　'処理１
　　　　Case "10|15"
　　　　　　'処理２
　　　　End Select
　　End With
End Sub

0 hits

▼

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