Excel VBA实例教程-状态栏进度条显示

Excel VBA实例教程-状态栏进度条显示如果希望在执行一段代码 特别是循环 时 由工作表的状态栏显示代码执行进度 可计算代码进行的百分比并将此数据持续赋值给状态栏 依此做数值式进度展示 同时还可以用不断增长的方格或其他简单符号做图示化进度展示 如上方视频展示 Step1

欢迎大家来到IT世界,在知识的湖畔探索吧!

视频加载中…

如果希望在执行一段代码(特别是循环)时,由工作表的状态栏显示代码执行进度,可计算代码进行的百分比并将此数据持续赋值给状态栏,依此做数值式进度展示。同时还可以用不断增长的方格或其他简单符号做图示化进度展示(如上方视频展示)。

Step1. 功能实现简述

  • 代码激活方式:我们将代码激活方式确定为单元格点选:当鼠标点击当前sheet页中任意单一单元格时,状态栏进行进度信息显示。
  • 进度显示方式:进度显示分两部分,左侧为数值百分比,右侧为黑色方格;两者均动态增加直到数值百分比达到100%
  • 动态显示原理:使用循环语句将所定义的变量由0增加至100,此变量的值可做百分比的数据,循环次数可做方格数量,每次循环此两个数据均会变化,将此变化的两个值持续输出即可。

Step2. 代码的添加

在当前工作表VBE界面(Alt+F11进入)右侧代码区域按①添加Sleep函数声明→②点选Worksheet→③点选SelectionChange→④添加代码的顺序操作

Excel VBA实例教程-状态栏进度条显示



欢迎大家来到IT世界,在知识的湖畔探索吧!

代码先进行点击区域单元格数量判断,若只点击了一个单元格,则进行进度显示(区域选择浪费时间且视觉效果差)。

核心代码使用for循环不断增加百分比数值i及字符串barStr的长度,每次循环后将此两个值直接赋给状态栏使其显示。

Application.StatusBar代表当前开启的Excel程序的下方状态栏,状态栏类似文本框,可以接收普通的文本或数值型变量,整型i及字符串型barStr可被正常显示。

Sleep 10表示程序“暂停”10毫秒,用以增强视觉效果,数值越大,进度百分比及进度条增长越慢。此函数为Window API函数,故代码区头部需先声明才可使用。

注:代码中的方格”■”可更换为其他符号(比如“>”、“o”等)以呈现不同效果

Step3.代码执行

返回前台sheet界面,随机点击任意单元格即可实现进度模拟。

3-1. “方格”进度条

Excel VBA实例教程-状态栏进度条显示

3-2. “大于”号进度条

Excel VBA实例教程-状态栏进度条显示

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/94808.html

(0)
上一篇 5小时前
下一篇 5小时前

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

联系我们YX

mu99908888

在线咨询: 微信交谈

邮件:itzsgw@126.com

工作时间:时刻准备着!

关注微信