在VBA中散列和传递参数

Question

I have vba code were i need the count of cells that meet a specific string pattern. For example:

Sub WBR()
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    Dim MinDate As String
    Dim MaxDate As String
    MinDate = InputBox("Minimum Date")
    MaxDate = InputBox("Maximum Date")
    If Not (IsDate(MinDate) And IsDate(MaxDate)) Then
        MsgBox "You should have specified valid dates!"
        Exit Sub
    End If
    If CDate(MinDate) > CDate(MaxDate) Then
        MsgBox "You should have specified sensible dates!"
        Exit Sub
    End If

    With ActiveWorkbook.Worksheets("Latency")
        [AE4] = wf.CountIf(.Range("O:O"), "Pass")
        [AE5] = wf.CountIf(.Range("O:O"), "Fail")
        [AE2] = wf.CountIfs(.Range("K:K"), ">=" & CLng(CDate(MinDate)), _
                .Range("K:K"), "<=" & (CLng(CDate(MaxDate)) + 1), _
                .Range("O:O"), "Pass")
    End With

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

    With ActiveWorkbook.Worksheets("TT")                
        [AE44] = wf.CountIfs(.Range("G:G"), "Not Tested")
    End With

This code searches for the specific text and if satisfied gives the count of that in the designated cell.

I need to implement the same code for more than 30+ cells.

So how do I create a hash and pass the "keywords" here as an argument and if that condition is met then the count should be updated in the cell.

Answer 1

I am struggling to fully understand what your code is doing but you could make a makeshift "hash" by basically having a big string with some separators, and then split those separators at the end...

YourHash="Key_1:Value_1->Key_2:Value_2->Key_3:Value_3"
Split_1 = Split(YourHash,"->")
For i = 0 to UBound(Split_1)
    Split_2 = Split(Split_1(i),":")
    DesiredKey = Split_2(0)
    DesiredValue = Split_2(1)
Next

Something like that could work for you but I might not be fully understanding what you need.

Answer 2

I wonder why you are doing this in VBA to begin with. Why not use the worksheetfunctions you have in your VBA code already as normal functions in the cells you are placing their results into and use two cells for start and end date?