Combobox Activex错误

Question

我正在尝试运行具有三个值“AD”，“LN”和“RSA”的组合框activex，这些值分别运行不同的宏。我无法做到的事情。每当我选择任何选项时，我都会在行Select Case .List中收到错误“对象不支持此属性或方法”。有任何想法吗？这是代码。

Private Sub ComboBox1_Change()
    With ThisWorkbook.Sheets("Operations").Shapes("ComboBox2").ControlFormat
        Select Case .List
            Case "AD": AD_Email
            Case "LN": LN_Email
            Case "RSA": RSA_Email
        End Select
    End With
End Sub

Answer 1

请尝试使用此代码：

Dim ws as Worksheet 
Dim cb as Combobox

Private Sub ComboBox1_Change()
    Set ws = ThisWorkbook.Sheets("Operations")
    Set cb = ws.OLEObjects("ComboBox2").Object
        Select Case cb.Value
            Case "AD": AD_Email
            Case "LN": LN_Email
            Case "RSA": RSA_Email
        End Select
End Sub

此代码尚未经过测试，因此可能需要进行少量调整。