excel的VBA程序运行进度条

以下是Excel VBA程序运行进度条的示例代码：

Sub ShowProgressBar()
    Dim i As Long
    Dim lastrow As Long
    Dim ufProgress As UserForm
    
    '设置进度条窗体
    Set ufProgress = CreateObject("UserForm1")
    ufProgress.Show
    
    '设置最大值
    lastrow = 100
    
    '循环
    For i = 1 To lastrow
        '更新进度条
        ufProgress.LabelProgress.Width = i / lastrow * ufProgress.FrameProgress.Width
        ufProgress.LabelPercent.Caption = Format(i / lastrow, "0%")
        DoEvents
        
        '模拟程序运行
        Application.Wait (Now + TimeValue("0:00:01"))
    Next i
    
    '关闭进度条窗体
    Unload ufProgress
End Sub

该示例中，我们首先创建了一个名为`UserForm1`的用户窗体，用于显示进度条。然后，我们设置了最大值`lastrow`，并使用`For`循环模拟程序运行。在每次循环中，我们更新进度条的宽度和百分比，并使用`DoEvents`方法确保进度条能够及时更新。最后，当循环结束时，我们关闭进度条窗体。