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

发布网友发布时间：2024-09-27 02:27

共1个回答

热心网友时间：3分钟前

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

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com