[已解决]程序错在哪儿!

wszbd · 发表于 2013-12-27 21:03

本帖最后由 wszbd 于 2013-12-27 22:24 编辑

程序错在哪儿.rar (9.56 KB, 下载次数: 8)

yyyydddd8888 · 发表于 2013-12-27 21:28

已经看过了，不知道你要做什么，不知道怎么改。

zjdh · 发表于 2013-12-27 21:34

ar(i, j) = Application.Sum(Mid(.............

wszbd · 发表于 2013-12-27 21:46

yyyydddd8888 发表于 2013-12-27 21:28
已经看过了，不知道你要做什么，不知道怎么改。

谢谢！！！

wszbd · 发表于 2013-12-27 21:54

zjdh 发表于 2013-12-27 21:34
ar(i, j) = Application.Sum(Mid(.............

改过来了，还是不求第二个和第三个的和，光求后面的差，再请老师看看什么原因。

我的意思是：比如D3的680，第二个和第三个的和是8+0=8/10=8，第二个和第三个的差是8-0=8/10=8，那么sheet2的D3就是88，以此类推。

谢谢！！！

yyyydddd8888 · 发表于 2013-12-27 22:10

这个最佳答案由 yyyydddd8888 给出，感谢 yyyydddd8888 的回答。

单击隐藏图章

wszbd 发表于 2013-12-27 21:54
改过来了，还是不求第二个和第三个的和，光求后面的差，再请老师看看什么原因。

我的意思是：比如D3的 ...

是不是这样？

程序错在哪儿.zip (13.38 KB, 下载次数: 9)

wszbd · 发表于 2013-12-27 22:27

yyyydddd8888 发表于 2013-12-27 22:10
是不是这样？

加Val是什么作用？

这句：Sheets(2).[d3].Resize(UBound(ar) + 2, UBound(ar, 2) + 2) = ""什么意思？

谢谢！！！

yyyydddd8888 · 发表于 2013-12-27 22:39

本帖最后由 yyyydddd8888 于 2013-12-27 22:42 编辑

wszbd 发表于 2013-12-27 22:27
加Val是什么作用？

这句：Sheets(2).[d3].Resize(UBound(ar) + 2, UBound(ar, 2) + 2) = ""什么意思？ ...

val可以把文本转化为数值。文本的加：8+0相当于8&0=80，所以80 mod 10=0。所以得不到8+0=8，8 mod 10=8
用VAL转化以后，它进行的就是数字的加减了。即：8+0=8

Sheets(2).[d3].Resize(UBound(ar) + 2, UBound(ar, 2) + 2) = ""什么意思？ ...
这句的作用是把sheet(2)要写入数据的区域清空，这样再写入数据时可以加快速度。另外多清除了2行，2列数据区域，防止原来的数据比新数据多的时候分不清楚正确的结果是哪些。

wszbd · 发表于 2013-12-27 22:59

yyyydddd8888 发表于 2013-12-27 22:39
val可以把文本转化为数值。文本的加：8+0相当于8&0=80，所以80 mod 10=0。所以得不到8+0=8，8 mod 10=8 ...

多谢老师，并恭贺老师今日荣登榜首！！！

		自动登录	找回密码
密码			注册