一种用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