[问题] vba被f(x)卡住的问题

楼主: waiter337 (给开司一罐苏格登)   2016-10-04 05:07:06
(若是和其他不同软件互动之问题 请记得一并填写)
软件:
版本:
小弟的excel报表目前在慢慢锻炼中
总档案41mb多
因为之前不会vba 所以很多都用f(x)来写
目前已经开始慢慢重写转由vba来运算,减轻压力
评估未来可少掉10-20多mb
不过小弟遇到一个问题
我目前蛮多的引数都是靠f(x)的排序或者索引来代入
当我将15000-20000笔的网页原始码以纯文字汇入后
竟然发现某行程式码出问题
Sheets("员工分析").Range("a:k").ClearContents
Sheets("原始码").Range("a:k").Copy
Sheets("员工分析").Range("a:k").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
在这样的情况下,他说发现错误,几乎都是第三行跟第四行出错
然后我改成以下这样
Sheets("员工分析").Select
Sheets("员工分析").Range("a:k").ClearContents
Sheets("原始码").Select
Sheets("原始码").Range("a:k").Copy
Sheets("员工分析").Select
Sheets("员工分析").Range("a:k").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
用select来当作缓冲的时间巴Q.Q (自以为啦)
但确实程式码就不再出问题了
怀疑有时后vba会被来不及运算的excel工作表,或者被f(x)还来不及运算完
导致excel工作表,来不及运作
不晓得小弟的猜测是否有错
楼主: waiter337 (给开司一罐苏格登)   2016-10-04 14:01:00
最扯的一页有15*3万多个f(x)运算
作者: lin99 (lin99)   2016-10-04 16:21:00
2010 版本? 转成二进制 压缩 档案可砍一半 size
楼主: waiter337 (给开司一罐苏格登)   2016-10-04 17:12:00
谢谢 慢慢来 我昨天已经靠vba删掉大概30多万个f(x)就原先是靠f(x) 改成用vba传纯文字这样

Links booklink

Contact Us: admin [ a t ] ucptt.com