Question

​ACTIVEX 组合框如何执行按钮功能 EXCEL

见图，右边三个按钮分别设置三个功能
现在要用一个ACTIVEX 组合框，添加“按钮1、按钮2、按钮3”
执行效果与右边的三个按钮功能相同。
因为小的是VBA盲，不太会如何编写组合框，谢谢大家先。
Private Sub ComboBox1_Change()
With ComboBox1
ComboBox1.AddItem "按钮1"
ComboBox1.AddItem "按钮2"
ComboBox1.AddItem "按钮3"
End With
End Sub
。。。。到这里COMBO 如何控制按钮就不会写了…… ……
以下是假设按钮功能。
Private Sub 按钮1_Click() '定为I9单元格。
Range("I9").Select '定为I9单元格。
End Sub

Private Sub 按钮2_Click() '定为I9单元格。
End Sub

Private Sub 按钮3_Click() '隐藏列
Dim str$
str = "关闭附表,展开附表"
Cells(3, 3).EntireColumn.Hidden = Not Cells(3, 3).EntireColumn.Hidden
按钮3_Caption = Split(str, ",")(-Cells(4, 4).EntireColumn.Hidden)
End Sub
上面COMBO代码不一定正确，可以按正确的编,

Answer 1

了就没有必要用按钮了

Private Sub ComboBox1_Change()
select cast ComboBox1
case "按钮1"
Range("I9").Select '定为I9单元格。
case "按钮2"
case "按钮3"
end select

end if

private sub Form_Load()
With ComboBox1
.AddItem "按钮1"
.AddItem "按钮2"
.AddItem "按钮3"
End With
end sub