Странное поведение диапазона при использовании в качестве ключа в словаре

Question

У меня есть следующий код:

Dim dicMyHash As Dictionary 
Dim rngMyRange As Range 

' A1 is empty - although the outcome is the same in any case 
Set rngMyRange = Range("A1") 
Set dicMyHash = New Dictionary 

dicMyHash.Add Key:=rngMyRange(1), Item:=0 

Debug.Print dicMyHash.Exists(rngMyRange(1).Value) ' returns False 
Debug.Print rngMyRange(1) = rngMyRange(1).Value  ' returns True 

Такое поведение является несколько неожиданным. Есть ли какой-то тип кастинга в фоновом режиме? rngMyRange(1).Value возвращает имущество variant, тогда как rngMyRange(1) составляет rngMyRange.item(1), что составляет range. Однако, отбрасывая rngMyRange(1) к Variant дает те же результаты ..

Кроме того, добавление ключей является значением (так копия rngMyRange(1) передается в качестве ключа). Но все же я не могу понять, почему .Exists не находит ключа.

Заранее благодарю вас!

Answer 1

Так вот, у нас есть три различных значения передается вокруг:

1. оригинальный диапазон.
2. Range.Value, который является вариантом.
3. Копия (1), которая является внутренней для словаря.

Если вы сравните их с равными знаками, они все одинаковы. Но согласно Dictionary.Exists они все разные.

Почему? Когда вы используете знак равенства с объектом, знак равенства заставляет объект вызывать его свойство по умолчанию. Свойством по умолчанию Range является Range.Value, поэтому r = r.Value, а также r = r.Offset(0, 0).

Но для словаря это не так уж умно. Подумайте об этом: Каждый вызов Dictionary.Exists вызовет каждый объект, используемый в качестве ключа для вызова его свойства по умолчанию.Это может стать очень дорогостоящим и потенциально может вызвать множество побочных эффектов. Таким образом, Dictionary.Exists проверяет следующее:

1. Вы сравниваете объект с не объектом? Автоматический сбой.
2. Вы сравниваете два не-объекта? Возврат a = b.
3. Вы сравниваете два объекта? Возврат a Is b.

Так r не то же самое, как r.Value, так как один является объектом, а другой не является объектом. И если вы делаете экземпляр из r, например, с r.Offset(0, 0), это не то же самое, поскольку они все еще указывают на два разных объекта, даже если объекты имеют одинаковое содержимое.

Это, с другой стороны, будет работать, так как вы будете делать r в тот же объект как d.Keys(0):

Dim d As Scripting.Dictionary 
Dim r As Range 
Set r = [a1] 
Set d = New Dictionary 
d.Add r, 0 
Set r = d.Keys(0) 
Debug.Print d.Exists(r) 

Answer 2

Я думаю, что причиной вашей ситуации является то, что rngMyRange распознается как двумерный массив, и оба размера массива передаются в словарь.

Если вы измените строку, которая при добавлении элемента в словарь в этот:

dicMyHash.Add Key:=rngMyRange(1).value, Item:=0 

он начинает работать, как вы Expect- как проверка точек возврата true.

Вы можете дополнительно проанализировать эту ситуацию в Locals Window во время отладки вашего кода.

Answer 3

Я не знаю, как вы кладете это использовать, но это будет возвращать True:

Sub test() 
Dim dicMyHash As Dictionary 
Dim rngMyRange As Range 

Set rngMyRange = Range("A1") 
Set dicMyHash = New Dictionary 

dicMyHash.Add Key:=rngMyRange(1).Value, Item:=0 ' assign it with Value 
Debug.Print dicMyHash.Exists(rngMyRange(1).Value) 
End Sub 

Итак вы будете иметь элемент с ключом Что бы ни в A1.

Я считаю, что причина, по которой она не работает без Value, заключается в том, что вы назначаете RangeKey. Для меня было бы больше смысла, если бы вы назначили диапазон для словаря.