|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Function MATCH_dictionaryCnt(Dictionary1 As Object, Dictionary2 As Object) As Long '2つのDictionaryを比較し、Itemが合致したカウントを返す 'Dictionary1を基準として、Dictionary2を確認。 'Keyがない場合、カウントされないので双方向で確認した方がよい。 Dim myKeys Dim i As Long, Cnt As Long myKeys = Dictionary1.keys For i = 1 To Dictionary1.Count - 1 If Dictionary1(myKeys(i)) = Dictionary2(myKeys(i)) Then Cnt = Cnt + 1 Next i MATCH_dictionaryCnt = Cnt End Function |
2つのDictionaryを比較し、Itemが合致したカウントを返すファンクション
ファンクション


コメント