excel中vba问题

显示全部楼层 · 2011-2-17 01:34:01

请看下面这个代码：

dim myarry()

dim timer1 as double

dim numelements as long ,i as long

dim writtime as string, readtime as string

numelemets = 60000

redim myarry(1 to numelements)

for i to numelements

myarry(i) = i

next i

timer1 =timer

for i to numelements

cells(i,1)= myarry（i)

writtime = format(timer- timer1,\\\"00:00\\\")
问题：这里设置timer1 =timer

后面公司writtime =format(timer-timer1,\\\"00:00\\\"）表示啥？timer-timer1应该等于零啊？有什么意义？

千问 · 2011-2-17 01:34:01

<pre id=\\\"best-answer-content\\\">timer1=timer
这时已经给timer1赋值了
而后面并没有再给timer1赋值
后面writtime =format(timer-timer1,\\\"00:00\\\"）就表示当前时间减去timer1就等于从给timer1赋值的时间起到这个公式时候的时间差，不可能是0
另前一个循环已经给你的数组赋值了，为什么不直接把数组的值赋给单元格，还用循环来给单元格赋值？？？？晕
还有，你的循环是不是写错了？？？
没有for i to numelements 这样的写法，你这样的代码也可以运行吗？没有提示错误？
注意看下for .......next 的写法
for i=1 to mumelements