VBAが自動化

Question

私は自分のコードのこの部分でいくつかのトラブルを持っていると私は1行

If Workbooks("A.xlsm").Sheets("1").Cells(i, 14).Value > 100000 _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(2, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(3, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(4, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(5, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(6, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(7, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(8, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(9, 5) _ 
And Workbooks("A.xlsm").Sheets("1").Cells(i, 6) <> Workbooks("A.xlsm").Sheets("B").Cells(10, 5) _ 
Then ... 

変更する唯一の変数でこのアクションをまとめるための非常に簡単な方法があると確信している行番号です各行の末尾に あなたの助けを前もっておかげで、私はそれを自動化する簡単な方法があると確信しています

Answer 1

あなたはあなたのコードサンプルにエラーが発生している可能性があります。その後、値が範囲内か存在するかどうかを確認するためにマッチを（）を使用します。 そうでなければ、複数の行を見ているAndステートメントの束を作成しています.5つのセルは一致するものを探しています。

この場合、複数の行の5つのセルのそれぞれが等しく、比較する単一の（i、6）値に一致する必要があります。

このコードが正しければ、合格または不合格の場合と同じように1つのチェックを行うだけで、他のすべての "And"行も同様になります。

Answer 2

まず、繰り返すタイピングを止めるためにブロックを使用します。

With Workbooks("A.xlsm") 
If .Sheets("1").Cells(i, 14).Value > 100000 _ 
    And IsError(Application.Match(.Sheets("1").Cells(i, 6), .Sheets("B").Range(.Sheets("B").Cells(2, 5), .Sheets("B").Cells(10, 5)), 0)) Then 

    'the rest of your code 

End With