ListBox

[РоманС]

Народ, помоготите, пожалуйста!
Нужно организовать список в две колонки (Отдел, Магазин), список инициализируется из названий отделов и магазинов, встречающихся в столбцах таблицы исходной базы данных.

[vikttur]

А исходная база данных, надо полагать, прячется на машине у кого-то из форумчан. Ну, а файл, где нарисовано, куда и как вставлять, у другого посетителя форума. Третий знает, какой нужен список: сразу на листе, выпадающий, организованный формулами, макросом или сводной.
Подозреваю, это модераторы на троих соображают

[РоманС]

Извините, я новенький.
исходную базу данных прилагаю.
список "Выберите отделы": состоит из двух колонок (Магазин, Отдел) и инициализируется из названий магазинов и отделов, которые встречаются соответственно в первом и втором столбцах БД. Нарисовать через ListBox, columncount=2.
В данном списке пользователь может выбирать сразу несколько отделов.
Первый элемент-все

[РоманС]

В Excel 2000-2003

[nilem]

Вот, например, для инициализации формы:

Private Sub UserForm_Initialize()
Dim x, y(), s As String, i As Long
x = Range("A3:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value
With New Collection
    On Error Resume Next
    For i = 1 To UBound(x, 1)
        s = x(i, 1) & " " & x(i, 2)
        If IsEmpty(.Item(s)) Then .Add s, s
    Next i
    ReDim y(1 To .Count, 1 To 2)
    For i = 1 To .Count
        y(i, 1) = Split(.Item(i))(0)
        y(i, 2) = Split(.Item(i))(1)
    Next i
End With

Me.ListBox1.List = y
End Sub