在 VBA 表单控件和活动 x 控件组合框中分配宏答案

【问题标题】：Assigning macros in VBA form control and active x control combo box在 VBA 表单控件和活动 x 控件组合框中分配宏
【发布时间】：2016-10-27 13:29:54
【问题描述】：

我正在尝试将宏分配给活动 x 组合框我已经做了表单控件版本并且它可以工作，但是当我在活动 x 上尝试相同的事情时，我不断收到错误，我错过了什么？

listfillrange 位于所选单元格上，30_06_16 和 29_06_16 显示正常，只是当您单击任何日期的列表时，会出现错误

宏 1:30_06_16 宏 2:29_06_16

表单控件组合框：

Sub DropDown13_Change()
  With ThisWorkbook.Sheets("Sheet2").Shapes("Drop Down 13").ControlFormat
    Select Case .List(.Value)
    Case "30_06_2016": 30_06_16
    Case "29_06_2016": 29_06_16
    End Select
  End With  
End Sub

活动 x 组合框：

Private Sub ComboBox2_Change()
  With ThisWorkbook.Sheets("Sheet2").Shapes("Combo Box 2").ControlFormat
    Select Case .List(.Value)
    Case "30_06_2016": Bank_Prompt_30_06_16
    Case "29_06_2016": Bank_Prompt_29_06_16
    End Select
  End With  
End Sub

表单控件只要激活 x 就可以了，可能缺少一些明显的东西，但感谢任何帮助。

【问题讨论】：

标签： vba excel combobox

【解决方案1】：

The syntax for ActiveX is completely different:

Private Sub ComboBox2_Change()

With ThisWorkbook.Sheets("Sheet2").ComboBox2
    Select Case .List(.ListIndex)
      Case "30_06_2016": Bank_Prompt_30_06_16 
      Case "29_06_2016": Bank_Prompt_29_06_16
    End Select
End With

End Sub

【讨论】：

如果我在用户表单中这样做会一样吗？