VBA値を使って変数を数える方法

Question

私のコードには少なくとも6つの異なる変数があります。そのうち3つは変種、3つはストリングスです。私は値を持つバリアントを数え、2つのバリアント、3つの文字列のような値を持つ文字列を数え、それらが等しいかどうかを確認したいと思います。

アイデア？

Answer 1

多分何かのように：

Sub Tester() 
    Dim WA1, WA2, WA3 
    Dim WS1 As String, WS2 As String, WS3 As String 

    WA2 = Now 
    WS3 = "then" 

    If CountValues(WA1, WA2, WA3) = CountValues(WS1, WS2, WS3) Then 
     Debug.Print "same!" 
    End If 

End Sub 

'of the arguments passed, count how many have a value 
Function CountValues(ParamArray vals()) 
    Dim i As Long, v 
    For Each v In vals 
     If Len(v) > 0 Then i = i + 1 
    Next v 
    CountValues = i 
End Function