怎样利用ExcelVBA实现进度条效果
来源:网络收集 点击: 时间:2024-02-25打开Excel2007办公软件,按下快捷键“Alt + F11”进入VBA编辑环境。右击“Microsoft Excel 对象”,选择“插入”-“用户窗体”,新建一用户窗体,并将该用户窗体命令为“百度经验测试用进度条”,并将名称设置为“prgramBarShow”。


在新建的窗体中,拖放三个Label标签,分别命令为“lblBack”,“lblprogress"和“percert"。


设置进度条的外观:将lblBack的背景色设置为淡蓝色,lblProgress背景设置为深蓝色,percert的前景色设置为红色。并将三个标签重叠在一起,其中lblBack处于最低层,lblProgress处于中间层,percert处于最上层。最后调整窗口的大小以适合进度条。
温馨提示:必须将lblBack和lblProgress的高度和宽度设置一样。




右击“Microsoft Excel 对象”,选择“插入”-“模块”,新建一模块,并在该模块中创建一个函数,内容如图如示:

让进度条在文档打开时自动运行:双击“ThisWorkbook”,在弹出的窗口中输入如图所示内容,完成后保存文档退出。

重新打开文档,如果未曾开启宏运行权限,则在提示宏运行时选择“启用宏”,就会看到进度条开始运行的效果啦!


充足利于这一进度条效果可使设计的作品更加人性化。nbsp;
将该进度条效果加入到其它程序中,只需要改变一点代码就能很好的共存,从而更有利于代码的重用。nbsp;
excelvba版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_148024.html