[已解决]求自动分列计算数据，及汇总，谢谢

wgxfhi11

求自动分列计算数据，及汇总，谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-22 10:03

135NS 上车总成工时20160224-02bbbbbbbbb.rar (51.74 KB, 下载次数: 16)

2016-3-22 10:03 上传

点击文件名下载附件

找到原因了：当变量gs（工时）小于1时，比如 0.8 被表示为 .8
x = Replace(x, gx & gs, "")
x并未被替换，x保持不变，造成死循环。
在两句中加一句，就可以了:



            gs = Val(Mid(x, k))    '工时
            If gs < 1 Then gs = Format(gs, "0.0")
            y = gs * sl     '工时*数量

跳转到最佳答案楼层

grf1973

不是已经做过了？http://www.excelpx.com/thread-385935-1-1.html

grf1973

还是死机？我这运行得好好的。

wgxfhi11

grf1973 发表于 2016-3-17 10:34
还是死机？我这运行得好好的。

真心不行的，我运行了一个晚上，还是没用

grf1973

换台电脑试试。

爱疯

135NS 上车总成工时20160224-02bbbbbbbbb.rar (51.74 KB, 下载次数: 16)

2016-3-22 10:03 上传

点击文件名下载附件

找到原因了：当变量gs（工时）小于1时，比如 0.8 被表示为 .8
x = Replace(x, gx & gs, "")
x并未被替换，x保持不变，造成死循环。
在两句中加一句，就可以了:



            gs = Val(Mid(x, k))    '工时
            If gs < 1 Then gs = Format(gs, "0.0")
            y = gs * sl     '工时*数量

wgxfhi11

爱疯 发表于 2016-3-22 10:03
找到原因了：当变量gs（工时）小于1时，比如 0.8 被表示为 .8
x = Replace(x, gx & gs, "")
x并未被替 ...

非常感谢，太谢谢了