[已解决]求助代码。谢谢

chensir

B2的值自动从1按1、2、3这样递增，直至B11初次大于0为止；                                       

用宏实现，加个按钮，开始，然后满足上面条件自动停止。                                       

有位朋友帮助做了代码：
Private Sub CommandButton1_Click()
    [b2] = 0
    Do While [b11] < 0
        [b2] = [b2] + 1
    Loop
End Sub

上面代码运行时，如果出货成本率小于（成本率+费用率），是B11就永远不会大于0，代码就会一直运行下去。
求代码 如果B2越来越大，B11越来越小时，就停止运行。反之就继续运行。

保本销售额也就是销售额等于成本+费用，但是出货折扣是变量，有时出货折扣低，导致销售额会小于成本+费用，此时就无保本销售了，就希望程序停止。反之，希望程序继续运行，直至F11>0为止。

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-10-30 09:10

可以考虑先定义变量，比如rng，
rng =[b11]，运行后如果[b11]<rng,then exit sub

跳转到最佳答案楼层

这儿有肥猫

看代码，你是要B11大于0时，停止运行。
但是第一句：B2的值自动从1按1、2、3这样递增，直至B6初次大于0为止。
到底是要哪样？

这儿有肥猫

如果你是要B11大于0时，停止运行，那根据你的公式来看，是不可能的~
因为B11展开之后，应该是-B2*10%-100。B2是正值且不断增加~所以B11会一直小于0

而且B2越大，B11越小，这是肯定的，求什么代码？

chensir

这儿有肥猫 发表于 2014-10-30 08:58
如果你是要B11大于0时，停止运行，那根据你的公式来看，是不可能的~
因为B11展开之后，应该是-B2*10%-100。 ...

是的，这种情况就要求停止程序，并跳出提示框“无保本销售，越卖越赔”。如何停止，求代码。

这儿有肥猫

可以考虑先定义变量，比如rng，
rng =[b11]，运行后如果[b11]<rng,then exit sub

zyouong

指标间计算存在问题，B2取小于-1000，B11才会大于0。

chensir

zyouong 发表于 2014-10-30 09:13
指标间计算存在问题，B2取小于-1000，B11才会大于0。

可能例子有问题，最终要求就是B11越来越小就停止运行

chensir

这儿有肥猫 发表于 2014-10-30 09:10
可以考虑先定义变量，比如rng，
rng =，运行后如果

我不会，请帮忙，谢谢

这儿有肥猫

例子肯定有问题，按你的要求改了一下，感觉无意义

chensir

这儿有肥猫 发表于 2014-10-30 09:28
例子肯定有问题，按你的要求改了一下，感觉无意义

谢谢，虽然F11>0,且越来越小时，可以了；但比如B3=90%是有保本销售了（此时希望F11大于0就停止），却也会一直运行下去。
希望2种情况都可以兼顾。最终是求保本销售额，只不过无保本销售额就停止了。