欢迎大家来到IT世界,在知识的湖畔探索吧!
如果希望在执行一段代码(特别是循环)时,由工作表的状态栏显示代码执行进度,可计算代码进行的百分比并将此数据持续赋值给状态栏,依此做数值式进度展示。同时还可以用不断增长的方格或其他简单符号做图示化进度展示(如上方视频展示)。
Step1. 功能实现简述
- 代码激活方式:我们将代码激活方式确定为单元格点选:当鼠标点击当前sheet页中任意单一单元格时,状态栏进行进度信息显示。
- 进度显示方式:进度显示分两部分,左侧为数值百分比,右侧为黑色方格;两者均动态增加直到数值百分比达到100%
- 动态显示原理:使用循环语句将所定义的变量由0增加至100,此变量的值可做百分比的数据,循环次数可做方格数量,每次循环此两个数据均会变化,将此变化的两个值持续输出即可。
Step2. 代码的添加
在当前工作表VBE界面(Alt+F11进入)右侧代码区域按①添加Sleep函数声明→②点选Worksheet→③点选SelectionChange→④添加代码的顺序操作
欢迎大家来到IT世界,在知识的湖畔探索吧!
代码先进行点击区域单元格数量判断,若只点击了一个单元格,则进行进度显示(区域选择浪费时间且视觉效果差)。
核心代码使用for循环不断增加百分比数值i及字符串barStr的长度,每次循环后将此两个值直接赋给状态栏使其显示。
Application.StatusBar代表当前开启的Excel程序的下方状态栏,状态栏类似文本框,可以接收普通的文本或数值型变量,整型i及字符串型barStr可被正常显示。
Sleep 10表示程序“暂停”10毫秒,用以增强视觉效果,数值越大,进度百分比及进度条增长越慢。此函数为Window API函数,故代码区头部需先声明才可使用。
注:代码中的方格”■”可更换为其他符号(比如“>”、“o”等)以呈现不同效果
Step3.代码执行
返回前台sheet界面,随机点击任意单元格即可实现进度模拟。
3-1. “方格”进度条
3-2. “大于”号进度条
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/94808.html