Экземпляр исходного кода ComboBox/formcontrol

Question

Я создаю список распада ComboBox из выбранных ячеек с помощью VBA. Как получить адрес (пример A1) выбранного элемента списка (ячейка источника списка элементов) с помощью VBA?

Answer 1

Здесь идет ... Это одна из тех неясных вещей. Свойство ListFillRange здесь для OLEObject вложенного в Shape("Drop Down 1")

Sub FillComboRange() 

    Dim Cb As Object 
    Set Cb = ActiveSheet.Shapes("Drop Down 1").OLEFormat.Object 
    Cb.ListFillRange = "D16:N30" 
    Set Cb = Nothing 
End Sub 

и если вам нужна строка диапазона, просто сделать:

Sub GetComboRange() 

    Dim Cb As Object, Str as String 
    Set Cb = ActiveSheet.Shapes("Drop Down 1").OLEFormat.Object 
    Str = Cb.ListFillRange 

    MsgBox(Str) 

    Set Cb = Nothing 
End Sub 

Для выбранной ячейки, в частности, адрес может быть задан Cb.LinkedCell и варианты затенения задаются Cb.Display3DShading