Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

Excel进度条

Excel在日常工作生活中应用的很普遍,VBA的出现大大的方便了大家的工作,可以有效的提高工作效率,所以,今天给大家介绍另外一种很好用的工具--进度条。

进度条,顾名思义就是一种显示进度的状态条,能够非常清晰明了的告诉我们程序执行到哪里了,下面先介绍一下Excel自身带有的一种进度条--Progressbar.

p1.gif

详细步骤就不讲了,新建xlsb格式文件,插入窗体,在工具箱里找到progressbar,添加到新建的窗体里。这里要注意的一点是,如果有的同学在toolbox里没有找到progressbar控件,请按照如下方法添加:

p2.gif


代码如下:

Private Sub CommandButton1_Click()

    Dim i, n As Long

    Dim t, x

    n = 50000

    With UserForm1.ProgressBar1

        .Max = n

        .Min = 0

        For i = 0 To n

            .Value = i

            t = CStr(Int(i / n * 100)) + "% Completed!"

            x = (i - 1) Mod 8 + 1

            Label2.Caption = "系统正运行中 " & Application.Rept(".", x)

            DoEvents

            Label1.Caption = t

        Next

    End With

    Unload Me

    MsgBox "恭喜你,更新完成", 16 + 48, "Message"

End Sub


点击次数:  更新时间:2017-03-30 16:46:48  【打印此页】  【关闭】
上一条:Excel设计文本透视效果  下一条:批量修改文件名
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

Excel交流网 版权所有 1999-2020 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2023  www.metinfo.cn