VBA Collection

[Replicant]

Вопрос по Collection:

Dim aList As Collection
Set aList = New Collection
...
aList.Add(n)
...
aList(1)=""

посему не происходит присвоение значения элементу? Как задать ему значение, не удаляя элемент?

[Казанский]

Сообщение от Replicant

Как задать ему значение, не удаляя элемент?

Никак. Коллекция этого не позволяет, в отличие от словаря (поищите по scripting.dictionary).
Хотя есть обходной маневр: класть в коллекцию ссылку на экземпляр модуля класса, в котором хранить и менять значения.
Создайте модуль класса с именем по умолчанию (Class1) и кодом из одной строки

Public v

, и попробуйте такой код:

Sub test()
Dim aList As Collection
  Set aList = New Collection
  aList.Add New Class1
  aList(1).v = "one"
  Debug.Print aList(1).v
  aList(1).v = "two"
  Debug.Print aList(1).v
End Sub

[Replicant]

Какой неудобный язык, сделал через динамический массив, так проще оказалось.

[Hugo121]

Скорость работы с динамическим массивом устраивает? Тогда хорошо...