我有以下下拉列表/组合框列表,其中包含两个选项,即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
要实现上述代码,我需要使用什么?
谢谢您的帮助
答案 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