VBAの複数条件分岐について

質問

VBAで下記の構文を使用してシート１にある表より
条件に合致するもののみシート２に抽出するようにしています。

現在はシート１のE２セルの値がシート１のB列の値と比較して
該当するものを抽出しています。

この条件が、

シート１のE１のセルの値が２０より小さい場合、
かつE2のセルの値がシート１のB列の値と比較して該当するものを
シート１に貼り付け、

シート１のE1のセルの値が20以上の場合、
かつE２のセルの値がシート１のD列の値と比較して該当するものを
シート１に貼り付ける

というような条件に変えたいのですが
どのように変更したらよろしいのでしょうか。
よろしくご教授下さい。

ちなみに現在使用している構文です。
これもきれいな構文かはわからないのですが・・・

Sub test()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")

k = 1
sh2.Cells(k, "B") = sh1.Cells(1, "A")
sh2.Cells(k, "C") = sh1.Cells(1, "B")
k = k + 1
d = sh1.Range("A65536").End(xlUp).Row
For i = 2 To d
If sh1.Cells(i, "B") <= sh1.Range("E2") Then
sh2.Cells(k, "B") = sh1.Cells(i, "A")
sh2.Cells(k, "C") = sh1.Cells(i, "B")

k = k + 1
End If
Next i
sh2.Activate
End Sub

回答No.1

hige_082 · ベストアンサー

これでいい？

If sh1.Cells(i, "B") <= sh1.Range("E2") And sh1.Range("E2") < 20 Then
sh2.Cells(k, "B") = sh1.Cells(i, "A")
sh2.Cells(k, "C") = sh1.Cells(i, "B")

k = k + 1
ElseIf sh1.Cells(i, "d") <= sh1.Range("E2") And sh1.Range("E2") >= 20 Then
sh2.Cells(k, "B") = sh1.Cells(i, "A")
sh2.Cells(k, "C") = sh1.Cells(i, "B")

k = k + 1
End If

お礼

ありがとうございます。
試していたら時間がかかってしまい
返事が遅くなってしまいました。
なんとかできました。

ところで、はじめから調べて質問をすればよかったのですが、
条件が増えてしまい、
If sh1.Cells(i, "B") <= sh1.Range("E2") And sh1.Range("E2") < 20 Then
の部分のB列との比較で
B列とC列になってしまったのですが、その場合は
If sh1.Cells(i, "B") <= sh1.Range("E2") And sh1.Cells(i, "C") <= sh1.Range("E2") And sh1.Range("E2") < 20 Then
のようにするしかないでしょうか？

ほかに記述の方法があれば教えていただきたいのですが・・・

何度も申し訳ありません。

回答No.3

imogasi

>シート１のE１のセルの値が２０より小さい場合
if Sh1.Cells(1,"E")<20 Then　となる
>シート１のE1のセルの値が20以上の場合、
if Sh1.Cells(1,"E")>=20 then　とする
または
Else　とする
ーーーー
＞かつE2のセルの値がシート１のB列の値と比較して該当するものを
シート１に貼り付け、
E2はSh1のE2か？あいまいでは。
＞該当するものを
どういう条件に該当することか？この意味は？大小？
＞「シート１に貼り付け、
質問の例からして、シート２ではないのか？

お礼

すみません、ご指摘のとおりです。
E2はSh1のE2、シート１に貼り付けは
シート２に貼り付けです。

回答No.2

hige_082

＞If sh1.Cells(i, "B") <= sh1.Range("E2") And sh1.Cells(i, "C") <= sh1.Range("E2") And sh1.Range("E2") < 20 Then　のようにするしかないでしょうか？
良いのでは、問題無いと思います
＞ほかに記述の方法があれば教えていただきたいのですが・・・
何が知りたいのでしょう？
各値の詳細や処理の目的が解れば、他の規則性や条件を見つけることが
できるかもしれないが、質問者さんの書き込み以上の情報が無いので無理
初心者には、適当だと思いますよ、解りやすいし

お礼

ありがとうございます。
他の記述というのは今後検索の列が増えていく可能性があったので
セルをまとめて記述できないかなと思ったのです。
でもおっしゃるとおり、自分がわかることをすこしずつやっていくのがいいですね。
ありがとうございました。