如何將此下拉列表合並到我的程序代碼 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