Question

Excel中，如何实现组合控件选择选项时，运行其对应的VBA程序？

如图：
1、当在组合控件中选择COG时，运行VBA程序COG

VBA程序：
Sub COG()
'
' COG Macro
'
'
Range("A3:T16").Select
Selection.Copy
Sheets("Sheet1").Select
Range("H13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

2、当在组合控件中选择COF时，运行VBA程序COF：

VBA程序：
Sub COF()
'
' COF Macro
'
'
ActiveWindow.SmallScroll Down:=3
Sheets("Sheet2").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=6
Range("A17:T25").Select
Selection.Copy
Sheets("Sheet1").Select
Range("H13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

以上，如何实现？请告诉指点？
我使用推荐答案的命令，但是提示错误：

请再给予指教





Answer 1

在设计模式，双击控件，会自动跳到代码页面的

追问

感谢你的回答，但是我不是要进行设置编写，而是要实现：组合控件不同选项，运行不同VBA程序。

Answer 2

Private Sub ComboBox1_Change()
If ComboBox1.Value = "COF" Then call COF
if ComboBox1.Value = "GOG" Then call GOG
End Sub

Answer 3

重开一个问吧

追问

我已经重新开问了，地址：
http://zhidao.baidu.com/question/446814428.html?quesup2

Answer 4

大大大十五大的