VBA 进度条

最新推荐文章于 2025-06-02 00:41:02 发布

原创最新推荐文章于 2025-06-02 00:41:02 发布 · 2k 阅读

15 ·

CC 4.0 BY-SA版权

文章标签：

#VBA

VBA 专栏收录该内容

68 篇文章

订阅专栏

STEP 1:新建用户窗体(ProgressBarShow)

STEP 2:插入一个框架(percent，Caption:0%)

STEP 3:插入两个重叠标签(lblBack、lblProgress)

STEP 4:在标准模块中插入如下代码

Sub ShowProgressBar()
    Dim i, j, k As Integer
    Dim intMax As Long
    
    Application.ScreenUpdating = False
    intMax = 500
    ProgressBarShow.Show 0
    
    
    
    For i = 0 To intMax Step 1
        ProgressBarShow.lblProgress.Width = ProgressBarShow.lblBack.Width / intMax * i
        ProgressBarShow.percent.Caption = Format(i / intMax * 100, "0") & "%"
        ProgressBarShow.Repaint
        
        For j = 1 To 1000
            For k = 1 To 1000
            Next k
        Next j
        
    Next i
    
    
    ProgressBarShow.Hide
    MsgBox "Done."
    
End Sub

STEP 5:运行效果如下：