Excel2003高级VBA编程--第八章 代码时间测试

第八章 代码运行时间测试

大家帮忙看看下面代码问题错在哪里？

Sub 代码时间测试()
bO"b/w2L k?0'给活动工作表[A1:F5000]赋值精英博客Zp&O O1ld:O
'timer表示从午夜开始到目前经过的秒数
o.u(u9f'RC q y0Dim StartTime As Date精英博客s"e4NA#?1^(R7yA
Dim EndTime As Date
mR0tPk'P!j.w0Dim i As Integer精英博客CZJ"q C'Q(q
Dim j As Integer
GZML+iK T0StartTime = Timer
K5Y+~+u a [7j*a0With ActiveSheet精英博客;G D2v3U}O[ r5s"wF
For i = 1 To 5000
C}*u5s.fRf"JD0   '此处为什么改为10列，系统就溢出？精英博客5sz XzQ"d0Ct\Oy
   For j = 1 To 5精英博客:{fca/u,R
      .Cells(i, j) = i & "*" & j & "=" & i * j
*nGN$?'u~4kW0   Next j精英博客oFrH abu
Next i
8JPI6w2k]0End With精英博客r7@,QPT oFa
EndTime = Timer

MsgBox "代码运行完毕！共运行：" & Format(EndTime - StartTime, "00:00") & "秒"

+YR1f3Rq O:N)Y)AbMs U)X0'疑问：1、如果将列再拓宽，运行结果为什么会溢出？精英博客)ku(Zj1{2?Wt
'      2、Timer表示从午夜开始到现在经过的秒数，如果系统运行是从23：56秒开始，0：15结束，那么运行时间怎么算？
ZK c,Z"]w-D0End Sub精英博客Kw^)q mY

'S;J)?(re`0