如何将此下拉列表合并到我的程序代码 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