Проблемма в следующем: есть горизонтальный динамический диапазон с именем Objects (задан через СМЕЩ и СЧЕТЗ). При создании ComboBox и задания RowSource = "Objects" происходит отображение только первого значения из диапазона. Был найден и подправлен под мои нужды вот такой код:
Dim r As Range
ComboBox1.Clear
For Each r In [II4].CurrentRegion
ComboBox1.AddItem r.Value
Next r
ComboBox1.ListIndex = 0
End If
Но, данный диапазон используется в 60 ComboBox'ах и для каждого переписывать одно и тоже как то не лаконично...
Как вариант вижу создание на скрытом листе вертикальной копии диапазона. Есть ещё свежие и красивые идеи?
Dim r As Range
ComboBox1.Clear
For Each r In [II4].CurrentRegion
ComboBox1.AddItem r.Value
Next r
ComboBox1.ListIndex = 0
End If
Но, данный диапазон используется в 60 ComboBox'ах и для каждого переписывать одно и тоже как то не лаконично...
Как вариант вижу создание на скрытом листе вертикальной копии диапазона. Есть ещё свежие и красивые идеи?