VBA进度条

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

⁶月初¹

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

阅读量1.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： VBA 进度条

本文链接：https://blog.youkuaiyun.com/baidu_15037329/article/details/51482467

本文介绍了如何在VBA中利用ScrollBar控件实现进度条效果，通过调整ScrollBar的值来显示进度，并配合Label控件展示进度信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这里写图片描述
一共三个控件：ScrollBar1、Label1、Label2

这里写图片描述

Private widthSum#

Private Sub ScrollBar1_Change()
    Label1.width = ScrollBar1.Value
    Label2.width = widthSum - ScrollBar1.Value
    Label2.Left = Label1.Left + Label1.width
    '进度条太短或者完成部分太短，不显示进度
    If Label1.width > 15 Then Label1.Caption = Round(Label1.width / widthSum, 2) * 100 & "