Question

我似乎无法在网上找到任何内容。我想知道是否有办法调用宏的循环。我有 Macro1（） - Macro16（），我想根据另一个单元格中的值连续运行它们。使用此代码会导致编译错误：

Sub或Function未定义。

这可以实现吗？

Sub PlotAll()
    Dim i As Integer
    Application.ScreenUpdating = False
    If Sheet1.Range("T66") <> 0 Then
        For i = 1 To Sheet1.Range("T66") ' T66 is number of Macro's to perform
            Call Macroi
        Next i
    Else
        MsgBox "You do not have any points to plot.", vbExclamation
    End If
    Application.ScreenUpdating = True
End Sub

Answer 1

这有用吗？

Sub dural()
    For i = 1 To 3
        Application.Run "Macro" & i
    Next i
End Sub

调用宏（i）（For循环）

1 个答案: