Excel VBA - Dictonary.Exists (Словарь)?

Question

Хотелось бы лучше понять, как сравниваются ключи типа объекта. dicOverall.exists(dic2) возвращает False в то время как dicOverall.exists(dic1) возвращает True. Я не слишком уверен, как .Exists сравнить материал (цикл?), Но есть ли в любом случае я мог бы получить .Exists(dic2), чтобы вернуть True? Спасибо!

Sub test() 
    Dim dic1 As Object 
    Dim dic2 As Object 
    Dim dicOverall As Object 


    Set dic1 = CreateObject("scripting.dictionary") 
    Set dic2 = CreateObject("scripting.dictionary") 
    Set dicOverall = CreateObject("scripting.dictionary") 

    dic1("Hi") = 1 
    dic1("Hello") = 1 

    dic2("Hi") = 1 
    dic2("Hello") = 1 

    dicOverall(dic1) = 1 

    Debug.Print dicOverall.exists(dic2) 


End Sub 

Answer 1

Я думаю, что если вы

dicOverall(dic1) = 1 

тогда единственный существующий ключ в dicOverall является объектом dic1 и вы спрашиваете, если ключ dic2 существует в dicOverall? Этот ответ не может быть true это всегда false.

dic1 и dic2 - это 2 совершенно разных объекта, даже если они содержат одни и те же ключи. .exists не сравнивает содержимое этих объектов, он просто видит, что эти объекты являются разными объектами.

Пример:
Скажем .exists проверяет, является ли конкретный объект находится в поле и у вас есть 2 яблока, называемых dic1 и dic2. Если вы положите яблоко dic1 в коробку и отметьте с .exists, если яблоко dic2 находится в коробке, вы получаете нет. .exists не проверяет, есть ли a яблоко в коробке проверяет, есть ли конкретное яблоко с именем dic2 находится в коробке. Даже если они оба яблоки и выглядят одинаково.

Sub AppleExample() 
    Dim apple1 As Object 
    Dim apple2 As Object 
    Dim box As Object 

    Set apple1 = CreateObject("scripting.dictionary") 
    Set apple2 = CreateObject("scripting.dictionary") 
    Set box = CreateObject("scripting.dictionary") 

    'apple1 has 1 stem and a red color 
    apple1("stem") = 1 
    apple1("redColor") = 1 

    'apple2 has 1 stem and a red color 
    apple2("stem") = 1 
    apple2("redColor") = 1 

    'put apple1 into the box 
    box(apple1) = 1 

    'check if apple2 is in the box 
    Debug.Print box.exists(apple2) 
End Sub 

Если вы хотите, чтобы проверить, есть ли что-то в коробке, которая выглядит как apple1, но на самом деле apple2, то вы должны проверить все свойства (стебель, цвет, ...) сами.

---

Если вы хотите проверить, если dic1 имеет те же ключи, как dic2 то вы должны проверить ...

1. если dic1 и dic2 имеют одинаковое количество ключей (необходимых, если dic2 имеет все ключи от dic1, но плюс другие ключи!)
2. Если сначала верно, тогда пропустите все клавиши dic1 и проверьте, существует ли каждый ключ в dic2.

Вот хороший ресурс о словарях: VBA Dictionary и Using the Dictionary Class in VBA

Answer 2

Единственный способ, которым я могу думать, чтобы получить .Exists(dic2) вернуться True чтобы установить dic2 обратиться к dic1 - так под капотом dic1 и dic2 являются лишь указателями на того же базового объекта.

Тогда - даже если вы никогда не делаете dicOverall.Add dic2, 1, вы все равно получите True, если вы сделаете dicOverall.Exists(dic2).

Это скорее не хватает реального приложения для жизни - но полезно, если вы играете со словарями. В этом примере кода вы увидите использование Set dic2 = dic1, чтобы они указывали на один и тот же базовый словарь. И это изменение значения dic2 также меняет его на dic1 - показывая, что они являются указателями на одно и то же.

Тогда проверка dic2 будучи ключом dicOverall вернется True:

Option Explicit 

Sub Test() 

    Dim dic1 As New Dictionary 
    Dim dic2 As New Dictionary 
    Dim dicOverall As New Dictionary 

    'add items to first dictionary 
    dic1.Add "foo", "bar" 
    dic1.Add "baz", "qux" 
    'make second refer to first 
    Set dic2 = dic1 
    'add first dictionary to overall 
    dicOverall.Add dic1, 1 

    'change a value in 2nd dictionary and see 1st dictionary change too 
    Debug.Print dic1.Item("baz") 
    dic2.Item("baz") = "hello world" 
    Debug.Print dic1.Item("baz") 

    'shows 1 for both dictionaries 
    '*even though you never added dic2 to dicOverall* 
    Debug.Print dicOverall.Exists(dic1) 
    Debug.Print dicOverall.Exists(dic2) 

End Sub 

Мой отладочный вывод:

qux 
hello world 
True 
True