请教 我编的那里有错?
<p>Sub su()<br/> Dim k As Long, dd As Single<br/> While dd <= 10000<br/> k = k + 1<br/><font color="#f70938"> dd = dd + Cells(k, 1)</font> <br/> <br/> Wend<br/> MsgBox Cells(k - 1, 1).Address<br/> <br/> <br/>End Sub<br/></p><p>总是提示红色语句错误 但是我照着赵老师 的程序编的怎么也出错?</p><p>还是我的电脑有问题?</p><p>Sub su()<br/> Dim k As Long, dd As Single<br/> While dd <= 10000<br/> k = k + 1<br/><font color="#f70938"> dd = dd + Cells(k, 1)</font> <br/> Wend<br/> MsgBox Cells(k - 1, 1).Address<br/>End Sub</p><p>如果A列的数值和小于10000,那么它就会一直循环下去,循环的结果是K>65536,而excel2003最大行数是65536,大于这个行数程序当然就会出错.<br/></p>
谢谢
页:
[1]