マクロの条件別分岐について

質問

集計表のマクロを作成しています。
その際に条件によって、使用するマクロを使い分けたいと思っていますが上手くいきません。

次のように、Ｅ列に倉庫コード・Ｇ列に数量が表示されている書式を使用しています。

(例)
　（Ｅ列）（Ｇ列）
1　　22Ｂ　 0
2　　31A　　1
3　　54A　　0
4　　456　　40
5　　65C　　41
6　　32B　　60
7　　33A　　40
※1行目から300行目まで文字が投入される可能性があります。

そして、次の条件によって、使用するマクロを分岐したいと思っています。

「１」．Ｅ列で文字列"Ｂ"が含まれている　　 かつ　その行のＧ列の数量が1以上　の組み合わせがある
「２」．Ｅ列で文字列"Ｂ"が含まれていない　かつ　その行のＧ列の数量が１以上　の組み合わせがある

「１」「２」２つの条件に当てはまる場合は「ａ」の処理
「１」の条件にのみ当てはまる場合は「ｂ」の処理
「２」の条件にのみ当てはまる場合は「ｃ」の処理
（「１」「２」のどちらにも当てはまらない場合は無いので省略）

ちなみに処理の内容は次のとおり
「ａ」：Ａ・Ｂ２つのピボットテーブルを作成する
「ｂ」：Ｂの１つのピボットテーブルを作成する
「ｃ」：Ａの１つのピボットテーブルを作成する

例の場合の処理は次のようになります。
●1行目はセル（E1）は"Ｂ"が含まれているが、セル(G1)の数量が
1以上ではないので、「１」にも「２」にも当てはまらない。
●2・4・5・7行目はＥ列に"Ｂ"が含まれていなくて、Ｇ列が
1以上なので「２」の条件
●3行目はＥ列に"Ｂ"が含まれていないものの、Ｇ列の数量が
0なので「１」にも「２」にも当てはまらない。
●6行目はＥ列に"Ｂ"が含まれていてセル(G6）の数量が1以上
なので「１」の条件
よって「１」「２」のそれぞれにあてはまる行があるので「a」の処理を行う。

セル範囲（E1:G300）の全ての行に関して上記の「1」「２」の条件に当てはまるか検索して、それぞれ当てはまった条件によって「ａ」「ｂ」「ｃ」の処理を行うようにしたいです。

(例)の場合だったら 6行目まで検索した時点で「ａ」の処理が決定します。

Select Case のマクロを使用したら良いと思ったが、どのようにマクロを記述したらよいのか解らないので教えていただけると助かります。

イメージとしては

Select Case （1から300行目で「１」と「２」の条件に当てはまる行がある場合）
処理「ａ」を行う。

Select Case （1から300行目で「１」の条件に当てはまる行はあるが「２」の条件にあてはまる行はない場合）
処理「ｂ」を行う。

Select Case （1から300行目で「２」の条件に当てはまる行はあるが「１」の条件にあてはまる行はない場合）
処理「ｃ」を行う。

というところまではわかりますが、括弧の中の記述方法が分かりません。あるいは別の処理があれば教えていただけると助かります。

回答No.4

gt-t · ベストアンサー

#3です。
>Ｅ列に倉庫コード・Ｇ列に数量
を見逃していました。
1列空くので、条件チェックしている部分を次のように変更してみてください。
----変更前----
　If Rng(i, 2) >= 1 And Not (InStr(Rng(i).Value, "B") = 0) Then Bol1 = True
　If Rng(i, 2) >= 1 And InStr(Rng(i).Value, "B") = 0 Then Bol2 = True
----変更後----
　If Rng(i, 3) >= 1 And Not (InStr(Rng(i).Value, "B") = 0) Then Bol1 = True
　If Rng(i, 3) >= 1 And InStr(Rng(i).Value, "B") = 0 Then Bol2 = True

また、判定後の処理の「B」と「C」が反対になっていたので、その点も確認しながら処理してみてください。
Case Bol1 = True
'「処理Ｂ」　→　「処理Ｃ」
　MsgBox ("B")　→　MsgBox ("C")　
Case Bol2 = True
'「処理Ｃ」　→　「処理Ｂ」
MsgBox ("C")　→　MsgBox ("B")

回答No.3

gt-t

次のようにフラグを2つ使い判定すればいいかと思います。
---参考コード---
Sub test()
Dim Rng As Range
Dim Bol1 As Boolean
Dim Bol2 As Boolean
Dim i As Integer
Bol1 = False
Bol2 = False

Set Rng = Worksheets("sheet1").Range("a1")
For i = 1 To 300
　If Rng(i, 2) >= 1 And Not (InStr(Rng(i).Value, "B") = 0) Then Bol1 = True
　If Rng(i, 2) >= 1 And InStr(Rng(i).Value, "B") = 0 Then Bol2 = True
　If flg1 And flg2 Then Exit For
Next

Select Case True
Case Bol1 = True And Bol2 = True
'「処理Ａ」
　MsgBox ("A")
Case Bol1 = True
'「処理Ｂ」
　MsgBox ("B")
Case Bol2 = True
'「処理Ｃ」
MsgBox ("C")
Case Else
　MsgBox ("発生しない条件です。")
End Select
Set Rng = Nothing

End Sub

補足

「貼り付け」というシート名なので、Worksheets("貼り付け")として、
倉庫コードはＥ列から始まるので Range("e1")としました。

その結果、質問の「２」の条件に合わないにも関わらず「ａ」の処理に
進むマクロへと進んでしまいます。
解答のマクロは正しいか、もう一度見ていただけると助かります。
条件分岐から処理「ａ」までのＶＢＡは以下のように記述しました。

Dim Rng As Range
Dim Bol1 As Boolean
Dim Bol2 As Boolean
Dim i As Integer
Bol1 = False
Bol2 = False

Set Rng = Worksheets("貼り付け").Range("e1")
For i = 3 To 300
If Rng(i, 2) >= 1 And Not (InStr(Rng(i).Value, "B") = 0) Then Bol1 = True
If Rng(i, 2) >= 1 And InStr(Rng(i).Value, "B") = 0 Then Bol2 = True
If flg1 And flg2 Then Exit For
Next

Select Case True
Case Bol1 = True And Bol2 = True

処理「ａ」

回答No.2

ASIMOV

いろいろ有ると思いますが、こんなのはどうでしょう

図で
Ｇ列とＨ列を作業用に使います
G1 =IF(E1="","",(F1>0)*2-(RIGHT(E1,1)="B")*1)
とし、下にコピー
H1 =COUNTIF(G$1:G$300,1)
H2 =COUNTIF(G$1:G$300,2)
H3 =IF(H2>0,IF(H1>0,"a","c"),"b")
とします

あとは、VBAでH3セルを読んで、判断します
-----------------------------------
Select Case Cells(3, "H")
Case "a"
　　 処理「ａ」
Case "b"
　　 処理「ｂ」
Case "c"
　　 処理「ｃ」
End Select

回答No.1

chuchuo

シートのrow方向の数が浮動するのかによってスクリプトが
若干かわりますが
コラムＥ列の文字情報を一文字ずつ評価する必要がありますね。
倉庫のコードが３桁固定なのかそうでないのかでも
スクリプトが変わります。
先頭の番号もセルですか？

補足

先頭の番号はセルではありません。

ＢＤＥＦＧ列にデータが投入されていて、その中の
ＥとＧから条件を判断しようと思っています。