Как включить этот выпадающий список в мой программный код VBA

Question

У меня есть следующий выпадающий / комбинированный список, который имеет две опции, а именно Internal и External.Мой выпадающий список выглядит следующим образом:

И затем у меня есть макрос, который проходит через следующую кнопку:

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

Sub InsertEquitiesBonds(Dim x as Double, Dim y as Double)
Dim ws as Worksheet
Set ws = Worksheets("PnL")
ws.Range("C4").Value = x + y
End Sub

Я бы хотел создать логику принятия решений в этом коде после нажатия populate, например:

If DropDown6_Change.Value = "Internal" Then
ws.Range("C4").Value = x + y 
Else 
ws.Range("C4").Value = x - y
End If

Что мне нужно использовать, чтобы приведенный выше код былпоняла?

Спасибо за помощь

Answer 1

Почти там.

Sub DropDown1_Change()
    Dim ws As Worksheet
    Set ws = Sheets("Sheet1")
    x = 10
    y = 5
    With ThisWorkbook.Sheets("Sheet1").Shapes("Drop Down 1").ControlFormat
        Select Case .List(.Value)
        Case "Internal": ws.Range("C4").Value = x + y
        Case "External": ws.Range("C4").Value = x - y
        End Select
    End With
End Sub