Question

Excel表格中多个宏，如何根据制定的数字运行指定的宏

Excel表格中多个宏，如何根据制定的数字运行指定的宏Excel表格中多个宏，如何根据制定的数字运行指定的宏 数字在AG4，数字1运行NUM1公式，数字2运行NUM2公式
Sub NUM1()
Range("A2:J24").Select
'上面输入选择性粘贴表格范围
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Columns("K:BE").Select
'上面输入删除的表格范围
Selection.Delete Shift:=xlToLeft
Rows("25:241").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

End Sub

Sub NUM2()
Range("A2:J192").Select
'上面输入选择性粘贴表格范围
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Columns("K:BE").Select
'上面输入删除的表格范围
Selection.Delete Shift:=xlToLeft
Rows("193:241").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

End Sub

Answer 1

你在单元格的位置输入数字，触发
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 1 Then
Call NUM1
ElseIf Target = 2 Then
Call NUM2
End If
End Sub

追问

不好意思才看见小白一枚！能在详细点吗？谢谢

追答

手把手教你吧。怎么lx

追问

那太谢谢你了！ 910961384

Answer 2

Sub 宏()

Select Case InputBox("输入参数")
Case 1
Call NUM1
Case 2
Call NUM2
Case Else
MsgBox ("未输入合法参数")
End Select
End Sub

追问

不好意思才看见小白一枚！能在详细点吗？谢谢