如何将此下拉列表合并到我的程序代码VBA中

时间:2018-10-11 10:15:07

标签: vba excel-vba

我有以下下拉列表/组合框列表,其中包含两个选项,即InternalExternal。我的下拉列表如下:enter image description here

然后我有一个通过以下按钮运行的宏:enter image description here

我的问题不是围绕代码的实际内容,而是围绕包含下拉列表的代码结构,因此为了简单起见,我对其进行了很多简化。我的(简化)代码最初进行了基本计算。

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

要实现上述代码,我需要使用什么?

谢谢您的帮助

1 个答案:

答案 0 :(得分: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