Question

Excel vba,执行循环函数的,怎么让他到了一定的部数休息一下?

比如这个

for i to 100000
cells(i,1)="大家好,我就是个测验!"
next

这里有10万步,但是很容易就卡死了.然后电脑就死机了

我想让他每隔1000行,就休息一下,延时一下,或者保存一下,怎么弄?

Answer 1

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
Sub Sleep1sWhen1000Step()
    Dim i As Long
    For i = 1 To 100000
        Cells(i, 1) = "大家好,我就是个测试!"
        If i / 1000 = Int(i / 1000) Then Sleep 1000    '每到1000步延时1秒
    Next
End Sub

下次没有悬赏不回答了哈，客官请自重

追问

我发现你回答的问题,格式严禁,变量定义清晰.怎么学的呀...

追答

大处女座的代码缩进不对齐都行。。。主要还是一种习惯吧，读写代码方便，效率更高一些。