引数を渡してvbaのセルに数えられるのです

Question

特定の列、特定のテキスト、特定のワークシートからの検索に基づいてセルの数が更新される以下のコードがあります。

Sub WBR() 
Dim wf As WorksheetFunction 
Set wf = Application.WorksheetFunction 

With ActiveWorkbook.Worksheets("TT")    'no of tickets processed - summary 
[AE43] = wf.CountIfs(.Range("I:I"), "<>Duplicate TT", _ 
         .Range("G:G"), "<>Not Tested", _ 
         .Range("U:U"), "Item") 
End With 

With ActiveWorkbook.Worksheets("TT")    'not tested tickets - summary 
[AE44] = wf.CountIfs(.Range("G:G"), "Not Tested") 
End With 

With ActiveWorkbook.Worksheets("TT")    'Tickets moved back- outdated OS and App Versions - summary 
[AE45] = wf.CountIf(.Range("I:I"), "Outdated App Version") + wf.CountIf(.Range("I:I"), "Outdated OS") 
End With 

条件を満たすと、指定したセルでカウントが更新されるように引数を渡すにはどうすればよいですか？

Answer 1

サンプルすべての定数格納する配列を使用してコード：

これは、すべてのケースを処理しません

Sub WBR() 
    Dim Count1Criteria As Variant 
    Dim Count3Criteria As Variant 
    Dim test As Variant 
    Dim wf As WorksheetFunction 
    Set wf = Application.WorksheetFunction 

    Count1Criteria = Array(Array("AE44", "TT", "G:G", "Not Tested"), _ 
          Array("AF44", "TT", "U:U", "Item")) 

    Count3Criteria = Array(Array("AE43", "TT", "I:I", "<>Duplicate TT", _ 
               "G:G", "<>Not Tested", _ 
               "U:U", "Item"), _ 
          Array("AF43", "TT", "I:I", "<>Duplicate TT", _ 
               "G:G", "<>Not Tested", _ 
               "U:U", "Item")) 


    For Each test In Count1Criteria 
     With Worksheets(test(1)) 
      Range(test(0)) = wf.CountIfs(.Range(test(2)), test(3)) 
     End With 
    Next         
    For Each test In Count3Criteria 
     With Worksheets(test(1)) 
      Range(test(0)) = wf.CountIfs(.Range(test(2)), test(3), _ 
             .Range(test(4)), test(5), _ 
             .Range(test(6)), test(7)) 
     End With 
    Next         
End Sub 

- あなたには、いくつか持っているあなたが2つ（またはそれ以上）を追加する必要がある場所は一緒に結果を - しかし、どのようにコードを「反復的」にするのかを考えなければなりません。