VBA实现进度条的显示 Sub Test() ' The UserForm1_Activate sub calls Main UserForm1.LabelProgress.Width = 0 UserForm1.Show End Sub Private Sub UserForm_activate() Call Main End Sub Sub Main() ' Inserts random numbers on the active worksheet Dim Counter As Inte
如何实现动态单行刷新，答案是——覆盖
但是怎么实现覆盖呢
关键在于不换行而且能回退到开始位置
那么就要用到 \r
这个东西就是让光标回退到当前行初始位置
记得不能让换行
上码
#文本进度条.py
import time
scale = 50
print("执行开始".center(scale, "-"))//居中对齐
start = time.perf_counter()//获取起始时间
for i in range(scale+1):
a = i*'*'
b = (scale-i)
有的时候程序需要有进度条显示，比如说安装程序、下载文件等场合。 下面有一段小程序可达到效果
程序代码
import time
for i in range(0, 101, 2):
time.sleep(0.3)
num = i // 2
if i == 100:
process = \r[%3s%%]: |%-50s|\n % (i, '|' * num)
else:
process = \r[%3s%%]: |%-50s| % (i, '|' * num)
