А как это сделать? Как сформировать массив? если можно, подробнее, пожалуйста...

Спасибо, СЛЭН за внимание... Вы очень добры, как вижу... Если вас не затруднит, до конци прочитать мою задачу, я вам ее предложу :-)  
 
Ну... тогда целиком поставлю задачу:  
 
В sheets(1) имею таблицу, где:  
- columns(4) - это идентификаторы организации (Integer)  
- columns(5) - названия организации (String)  
- columns(6) - руковадители организации (String)  
- columns(8) - названия продуктов (журналы, газеты и т.д.), которых они заказали.  
 
Я написал макрос, с помощью которого в ListBox1 (с флажками) занес названия продуктов (columns(8)). Когда оператор вставит флажки в ListBox1, программно делаю новый ListBox2, который состоит из отмеченных в ListBox1. Для этого и понадобился словарь (переделал функцию, которую нашел на этом сайте (UniqueValues со своей процедурой BubbleSort)).  
 
Тепер моя задача - внести в ListBox2 (с флажками, с 3-мя колонками: 1. идентификаторы; 2. названия; 3. руковадители организации) упорядоченный, отфильтрованный массив из columns(4:6).  
 
Заранее благодарю...

тестирование объекта "доброта слэна" продолжается...  
следите за нашими анонсами!!!

{quote}{login=слэн}{date=14.05.2011 10:47}{thema=}{post}ну.. в вашем случае, наверное, лучше additems.. - читайте справку  
{/post}{/quote}  
это вам ещё утром отвечено.  
читали?  
что именно не поняли?

Здравствуйте.  
Есть некая UserForm, в которой есть ListBox.  
Возможно ли средствами VBA заполнить второй (к примеру) столбец выделенной строки значением из TextBox? (Не прибегая к ячейкам листа).  
Пыталась сделать с помощью addItem, но безуспешно.  
Спасибо.

Диана, привет!  
Может быть передумаете - не на событие изменения?  
Ведь ввод КАЖДОГО символа будет вызывать это событие.

Тогда пробуем так:  
Private Sub TextBox1_Change()  
   If Len(Me.TextBox1) = 2 Then  
       For i = 0 To Me.ListBox1.ListCount - 1  
       If Me.ListBox1.Selected(i) = True Then  
           Me.ListBox1.AddItem ""  
           ListBox1.List(i, 1) = Me.TextBox1  
           x = x + 1  
       End If  
   Next  
   End If  
End Sub

Юрий! Спасибо в очередной и далеко не последний раз! Разбираюсь :)

И все вроде работает.... :)  
Последний момент... заголовки вряд-ли получится присвоить, если не прибегать к ячейкам листа? :)

Далее по свойствам ListBox :)  
Возможно ли как-нибудь несложно сделать, чтобы можно было вручную раздвигать и сдвигать ширины столбцов? (как в стандартных окнах Windows)?

Написала небольшой макрос добавления sText в выделенную строку ListBox в столбец column.  
 
Sub changeGruntDirectory(sText As String, column As Integer)  
With UserForm1.LBB  
   'Запись значений в listbox  
   For i = 0 To .ListCount - 1  
       If .Selected(i) = True Then  
           UserForm1.LBB.List(i, column - 1) = sText  
       End If  
   Next i  
End With  
End Sub  
 
Но проблемка, при значении column больше 10 (а их всего 13)  
Run-time error '380':  
Could not set the List property. Invalid property value и выделяет строку: "UserForm1.LBB.List(i, Icolumn - 1) = sText"  
Что сие может означать?

У меня работает (см. файл). Пробовал и строки длиннее 256 символов - тоже ошибки нет:  
changeGruntDirectory String(257, "s"), TextBox1

Привет, Ди! А так?  
arr = Range("A1:M5").Value  
А где твоя аватара с роскошныи декольте? ;)

:) ага, действительно, работает. Здравствуйте, Игорь :) Пароль как раз помню, вот логин - нет :)  
 
В общем, только что заново создала UserForm пустую, заполнила ее программно через массив (mData (1to25, 1 to 13)), все работает.... видимо, где-то просчиталась... буду искать...  
Всем спасибочки за помощь!