IF文を使用して20個の異なる変数のセルをチェックしようとしています

Question

セルを単語または一連の単語でチェックしようとしています。私が探しているバージョンは約20種類あり、そのうちの1つであれば何もしたくありません。もしそれらの1つでないなら、私はそれを空白にしたい。 1つの特定の項目について正しく機能するようになったのですが、20のIF文を使わずに20種類の項目を検索するにはどうしたらいいですか？私はIF文のために配列や何かを作ることができますか？私はそれをどうやって行うのか本当に分からないが、私はそれを見ることができた。

ActiveSheet.AutoFilterMode = False 
lngRows = Range("A" & Rows.Count).End(xlUp).Row 


For lngRow = lngRows To 2 Step -1 
    If (LCase(ActiveWorkbook.Worksheets("Sheet1").Cells(lngRow, "A").Value) = "transfer" And _ 
     Not InStr(1, LCase(Range("B" & lngRow)), LCase("err")) <> 0) Then 
     ActiveWorkbook.Worksheets("Sheet1").Cells(lngRow, "B").Value = "" 

    End If 

は、私はそれを行う必要があるが、20の他の言葉に：ここで

は、私は私の一つの特定の文の持っているものです。これは、単語「エラー」のセルにエラーがあるかどうかを調べています。

Answer 1

検索用語の配列を作成し、その配列をループします。私は容易にするためにバリアント配列を使用しました：

Sub Test() 
    Dim arr As Variant, v As Variant 

    arr = Array("err", "err2", "err3") 'all 20 in here or get from worksheet as per below 
    'arr = Application.Transpose(ThisWorkbook.Worksheets("Sheet1").Range("A1:A20")) 

    For Each v In arr 
     'IF statement in this loop, using the variable v rather than the string "err" 
     'MsgBox v 
    Next v 
End Sub 

Answer 2

elseifあなたは1つのifステートメントに追加条件を追加することができます。配列をループするのはよりクリーンですが、これはあなたの情報のためにelseifで行う方法です。

ここにいくつかの一般的なコードがあります。最後にelseが含まれていない場合は、条件が満たされていない場合は何も実行されません。

Sub test_elseif() 

If x = 1 Then 
    y = 1 
ElseIf x = 2 Then 
    y = 2 
ElseIf x = 3 Then 
    y = 3 
End If 



End Sub 

Answer 3

「myWords」という名前の範囲をテスト単語とともにシートに作成します。 次にVBAコードに別のループでそれを指す：

ActiveSheet.AutoFilterMode = False 
lngRows = Range("A" & Rows.Count).End(xlUp).Row 
Dim rng As Range, cell As Range 
Set rng = Range("myWords") 

For lngRow = lngRows To 2 Step -1 
    For Each cell In rng 

    If (LCase(ActiveWorkbook.Worksheets("Sheet1").Cells(lngRow, "A").Value) _ 
     = cell And _ 
     Not InStr(1, LCase(Range("B" & lngRow)), LCase("err")) <> 0) Then 
     ActiveWorkbook.Worksheets("Sheet1").Cells(lngRow, "B").Value = "" 
    End If 
    Next cell