VBA 调用下拉列表里的子过程(宏调用宏)

一种用Call ,  另外一种用application.run

1.首先完成子过程宏的编写

2.选择一个sheet, 把子过程宏的名字都写出来,选一个新的单元格(如下C3)设置下拉菜单

3. 为图1的宏assign 以下任意代码,点击就OK, 第2种更简单。

Sub Run_Macro_LIST()
    
    Sheets("Content").Select    '选择下拉列表的sheet
        If Range("C3").Value = "Sht_Copy" Then ' 
            Call Sht_Copy
        End If
        If Range("C3").Value = "Dir_WBS_Link" Then
            Call Dir_WBS_Link
        End If
        If Range("C3").Value = "Same_1WB_link" Then
            Call Same_1WB_link
        End If
   End sub

Sub application_run()
    
    Dim a As String
    
    Sheets("content").Select
   
        a = Range("C3").Value
        
        Application.Run a  

End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值