能否实现根据下拉选项在某个位置显示运行不同的按钮

wcj6376tcp

因为各种宏代码不一样，不想到处都设置不同宏按钮，能否实现根据下拉选项在某个位置显示运行不同的按钮，执行对应的宏？

wcj6376tcp

相当于模糊匹配这些关键词，因为宏名称我就按这些设置的，包含有这些词语

qline302

是可以实现的：
1. 参数要有具体每项的下拉选项规则或数据条件。
2.放到worksheet_chang代码中，根据target的列号位置显示就好。

wcj6376tcp

qline302 发表于 2024-1-28 20:11
是可以实现的：
1. 参数要有具体每项的下拉选项规则或数据条件。
2.放到worksheet_chang代码中，根据targ ...

麻烦写个例子，假设我的下来选项放在h5的位置，实在不好写我就把宏名称改成与选项完全一致，谢谢

qline302

看看是你需要的样子么

wcj6376tcp

qline302 发表于 2024-1-28 20:48
看看是你需要的样子么

能用但好像不完善，可不可以用if？

Option Explicit

Sub 列表框1_更改()
Dim st As String
   st = Range("H5").Value
Select Case st
    Case "工资"
        Call 工资
    Case "个税"
        Call 个税
    Case Else
        Call 其他
   
End Select

End Sub

Sub 工资()
    MsgBox "算工资"
End Sub

Sub 个税()
    MsgBox "算个税"
End Sub

wcj6376tcp

qline302 发表于 2024-1-28 20:48
看看是你需要的样子么

OK，可以了，非常感谢