Словарь VBA с составными ключами

Question

Есть ли в VBA структура, которая позволит использовать кортежи в качестве ключей, аналогичные Python? Я ищу для хранения большой матрицы значений в ассоциативном массиве, индексированном по именам ключей в обоих измерениях.

EDIT:

Вот пример простой таблицы данных:

 

+--------+--------+--------+--------+--------+ 
|  | 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 | 
+--------+--------+--------+--------+--------+ 

Я хочу, чтобы иметь возможность хранить эти значения в ассоциативном массиве (словарь), так как они будут читать миллионы раз во время выполнения моего скрипта. Я хотел бы иметь ключи словаря, например, кортежи. Таким образом, я хотел бы создать словарь (мы будем называть его Distance), где ключи и значения:

(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 

Я бы доступ расстояние между городом 1 и 2 города с чем-то вроде этого:

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

Answer 1

Если вы используете Excel, я предлагаю вам использовать функцию, которая в любой клетке вы можете найти ваш valueby простой fornula как =Distance("ct1","ct2"):

И функция является:

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 

Примечание: При использовании Excel, Excel листы двумерные массивы с большим количеством опций, которые вам нужны.

---

Существует своего рода словарь, который вы можете использовать (от объектов 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