用VBA
如何让宏二跟着B1值递增运行(B1每递增1次宏二运行1次:一直运行到200为止)
方法:一
1.不是点数值调节键,
2.是增加一个宏来控制数值调节键和宏二键
3.数值调节键的数值一直向上递增(从1开始递增至200),每递增1次宏二运行1次
方法:二
1.另外(现在数值调节键不是宏来的,也可以用宏来控制)
2.然后再用一个宏来控制值调节键的宏和宏二也可以
第1个回答 推荐于2016-03-29
你希望用户点数值调节键，宏二就自动运行，是吗？
使用worksheet_change事件，然后调用“宏二”就可以了。
现在数值调节键不是宏来的,也可以用宏来控制——宏xx可以控制B1单元格的值
宏xx可以调用宏二中的代码。
这个宏xx就是你要的连续自动运行200次，也就是B1的数字连续变化200次，宏二也运行200次。追问
Dim i As Integer
For i = 1 To 200
Range("B1") = i
Call 宏二
Next i
End Sub
Sub 宏二()
'这里放入宏二的代码
End Sub本回答被提问者采纳
使用worksheet_change事件，然后调用“宏二”就可以了。
现在数值调节键不是宏来的,也可以用宏来控制——宏xx可以控制B1单元格的值
宏xx可以调用宏二中的代码。
这个宏xx就是你要的连续自动运行200次，也就是B1的数字连续变化200次，宏二也运行200次。追问
对就是这样的?
可否给个代码.
Dim i As Integer
For i = 1 To 200
Range("B1") = i
Call 宏二
Next i
End Sub
Sub 宏二()
'这里放入宏二的代码
End Sub本回答被提问者采纳
第2个回答 2014-06-11
sub a()
for i=1 to 200
call 宏二
next
end sub
'这里是你的代码，最后加一句如下：
[b1]=[b1]+1
end sub
for i=1 to 200
call 宏二
next
end sub
不是很明白你想的结果。
可以在宏二的最后加一句代码。让B1增加1
sub 宏二()'这里是你的代码，最后加一句如下：
[b1]=[b1]+1
end sub
