VBA自学应用（18）——制作进度条

最新推荐文章于 2025-03-16 20:22:31 发布

star星梦

最新推荐文章于 2025-03-16 20:22:31 发布

阅读量3k

点赞数

分类专栏： VBA自学应用

本文链接：https://blog.youkuaiyun.com/qq_24818403/article/details/104662713

版权

VBA自学应用专栏收录该内容

18 篇文章

订阅专栏

一、使用ProgressBar控件制作

Private Sub UserForm_Activate()
    Dim i As Integer
    With Me.ProgressBar1
        .Min = 1
        .Max = 10000
        .Scrolling = 0
        '设置进行条的显示是连续的还是隔断的
        For i = 1 To 10000
            .Value = i
            UserForm3.Caption = "正在运行，已完成" & i / 100 & "%，请稍后!"
        Next
    End With
End Sub