Dictionnaire VBA avec touches composées

Question

Existe-t-il une structure dans VBA qui permette d'utiliser des tuples comme des clés, comme Python? Je cherche à stocker une grande matrice de valeurs dans un tableau associatif, indexé par des noms de clé dans les deux dimensions.

EDIT:

Voici un exemple d'une table de données simple:

 

+--------+--------+--------+--------+--------+ 
|  | City 1 | City 2 | City 3 | City 4 | 
+--------+--------+--------+--------+--------+ 
| City 1 | 0 | 7 | 8 | 6 | 
| City 2 |  | 0 | 1 | 6 | 
| City 3 |  |  | 0 | 5 | 
| City 4 |  |  |  | 0 | 
+--------+--------+--------+--------+--------+ 

Je veux être en mesure de stocker ces valeurs dans un tableau associatif (dictionnaire), car ils seront lus millions de fois tout au long de l'exécution de mon script. J'aimerais pouvoir avoir les clés du dictionnaire en tuples. Ainsi, le je voudrais créer un dictionnaire (nous l'appellerons distance), où les clés et les valeurs sont les suivantes:

(City 1, City 2) = 7 
(City 1, City 3) = 8 
(City 1, City 4) = 6 
(City 2, City 3) = 1 
(City 2, City 4) = 6 
(City 3, City 4) = 5 

J'accéderiez la distance entre la ville et la ville 1 2 avec quelque chose comme ceci:

Distance("City 1", "City 2") 

Answer 1

Si vous utilisez Excel, je vous suggère d'utiliser une fonction dans une cellule, vous pouvez trouver votre valueBy simple fornula comme =Distance("ct1","ct2"):

et la fonction est:

Public Function Distance(RowCity As String, ColCity As String) As String 
    Dim RowNo As Long, ColNo As Long 
    RowNo = 0: ColNo = 0 

    On Error Resume Next 
    With ActiveSheet 
     RowNo = .Columns("A").Find(What:=RowCity).Row 
     ColNo = .Rows(1).Find(What:=ColCity).Column 

     If RowNo <> 0 And ColNo <> 0 Then 
      Distance = Trim(.Cells(RowNo, ColNo).Value & " ") 
     Else 
      Distance = "#N/A" 
     End If 
    End With 
End Function 

Note: Lorsque vous utilisez Excel, des feuilles de calcul Excel sont des tableaux en deux dimensions avec de nombreuses options que vous avez besoin.

---

Il y a une sorte de dictionnaire que vous pouvez utiliser (à partir d'objets COM):

Dim dict As Object 
Dim key As Variant 

Set dict = CreateObject("Scripting.Dictionary") 

dict.Add "City 1", "City 2" 

For Each key In dict.Keys 
    If key = condiction Then 
     'use dict.Item(key) 
    End If 
Next key