excel vba如何用条件运行宏(高手请进)

Question

用VBA
如何让宏二跟着B1值递增运行(B1每递增1次宏二运行1次:一直运行到200为止)
方法:一
1.不是点数值调节键,
2.是增加一个宏来控制数值调节键和宏二键
3.数值调节键的数值一直向上递增(从1开始递增至200),每递增1次宏二运行1次
方法:二
1.另外(现在数值调节键不是宏来的,也可以用宏来控制)

2.然后再用一个宏来控制值调节键的宏和宏二也可以

Answer 1

你希望用户点数值调节键，宏二就自动运行，是吗？
使用worksheet_change事件，然后调用“宏二”就可以了。

现在数值调节键不是宏来的,也可以用宏来控制——宏xx可以控制B1单元格的值
宏xx可以调用宏二中的代码。
这个宏xx就是你要的连续自动运行200次，也就是B1的数字连续变化200次，宏二也运行200次。

追问

对就是这样的?
可否给个代码.

追答

Sub 新宏()
Dim i As Integer
For i = 1 To 200
    Range("B1") = i
    Call 宏二
Next i
End Sub 

Sub 宏二()
'这里放入宏二的代码
End Sub

Answer 2

sub a()
for i=1 to 200 
    call 宏二
next 
end sub

 不是很明白你想的结果。

可以在宏二的最后加一句代码。让B1增加1

sub 宏二()
'这里是你的代码，最后加一句如下：
[b1]=[b1]+1
end sub