Коллекции

[Debugger]

Код: Выделить всё

Dim col As Collection
Private Sub Form_Load()
    Set col = New Collection
    col.Add 1, "test"
    Debug.Print col("test")
    col("test") = 2
End Sub

Единичка-то выводится, а на двоечку меняться не хочет.

[Хакер]

С какой стати должна-то?

Это укороченный вариант, в котором выражение Col("test") подразумевает Col.Item("Test"), где Item — функция по умолчанию.

Так вот, Item — это функция, а не Let-свойство. Если это было бы Let-свойством с параметром, тогда ты бы получил то, что хочешь. А так ты пытаешься присвоить значение возвращённому функцией значению.

Т.е. примерно следующее:

Код: Выделить всё

Function Get777() As Long
    Get777 = 777
End Function

Sub Foo
    Get777() = 123
End Sub

[Debugger]

Всё, понятно
Спасибо!