комбинированный combobox

[Kefirrr]

Добрый день форумчане.
Вновь обращаюсь к Вам за помощью. Никак не могу понять как мне сделать комбинированный комбобокс (вроде правильно назвала).
Что мне нужно: у меня есть табличка, к ней я хочу сделать форму, с 4 выпадающими списками. Но я запуталась с фильтрацией данных. вернее в выводе отфильтрованных данных в combobox.
Очень надеюсь на вашу помощь. хотя бы наведите на путь истинный

p.s. в сети нашла примеры, но там только один выпадающий список

Заранее благодарю

[doober]

Здравствуйте.
Давно вас не было.

вернее в выводе отфильтрованных данных в combobox

Подробнее поясните,что вы хотите получить в комбобоксы,наверное уникальные значения.Основная задача комбобоксов?

[IgorGO]

см.вложение

[Kefirrr]

Здравствуйте, ранее как-то справлялась с задачами. а тут пришлось с комбобоксами работать, да еще и с 4мя.
Да, мне нужны уникальные значения. Вроде даже у самой в что-то похожее получилось , только все через одно место у меня работает (см. прикрепл. файл).
Сейчас у меня форма работает, но данные обновляются только если несколько раз по ней тыкнуть (после выбора условия)

[Kefirrr]

IgorGO, спасибо.

[IgorGO]

трех комбобоксов достаточно для Вашей задачи))
люди легко представляют себе 3-х мерную организацию данных и совершенно теряются если добавить четвертое измерение..

см. модуль standard
функция

Function DictRange(rg, Optional ShowPB As Boolean = True, Optional Prompt As String = "Групп (0) ")
  Dim i As Long, a As Long, s As String, k As Long, ar, d
  Set d = CreateObject("Scripting.Dictionary")
  k = 0:  If rg.Count < 1000 Then ShowPB = False
  If ShowPB Then InitProgressBar rg.Count, Prompt
  For a = 1 To rg.Areas.Count
    If rg.Areas(a).Count = 1 Then ar(1, 1) = rg.Areas(a) Else ar = rg.Areas(a)
    For i = 1 To rg.Areas(a).Count
      If ShowPB Then ProgressBarAt k + i
      If d.exists(ar(i, 1)) Then
        Set d(ar(i, 1)) = Application.Union(d(ar(i, 1)), rg.Areas(a).Cells(i))
      Else
        Set d(ar(i, 1)) = rg.Areas(a).Cells(i):  NewStartStr "Групп(" & d.Count & ") "
      End If
    Next
    k = k + rg.Areas(a).Count
  Next
  Set DictRange = d:  If ShowPB Then Application.StatusBar = False
End Function

с ее помощью я год решаю практически 99% задач связанных с расчетами или копированием табличных данных
она еще на ProgressBar завязана, если данных много, ProgressBar отвлекает пользователя от грустных и навязчивых))) мыслей пока происходит группирование данных
идея и реализация DictRange и ProgressBar - мои
Сергей, принимаются замечания и улучшения.
Использование без ограничений со ссылкой на авторство: IgorGO

[Kefirrr]

IgorGO , еще раз спасибо.
обязательно воспользуюсь вашим кодом