Question

VBA求重复执行某个宏的代码

重复执行某个宏，但每次重复次数不同，设置对话匡提示输入重复次数

Answer 1

就像下面的两个宏一样，在第一个宏中输入一个重复次数，然后循环调用第二个宏。OK！

Sub Macro1()
Dim n As Integer
Dim i As Integer
n = InputBox("输入重复次数")
For i = 1 To n
Macro2
Next i
End Sub

Sub Macro2()
'
' Macro2 Macro
' 录制时间: 2013-10-13
'
Range("B7").Select
ActiveCell.FormulaR1C1 = "234"
Range("B8").Select
End Sub

Answer 2

假设你的宏叫 宏1
新建 宏二,内容为
dim a as integer
dim i as integer
a= inputbox "输入次数"
for i=1 to a
call 宏1
next i

追问

老师你好！执行时a= inputbox "输入次数"这句是红字，并提示缺少语句结束。

Answer 3

a = InputBox("")*1
for i=1 to a
call 你的宏

next