这是一个用VBA编写的Excel进度条,可供喜欢VBA编程的朋友使用。
使用方法:
1、下载本软件并解压;
2、打开“进度条.xls”(启用宏),按Alt+F11键,调出VBA编辑器。在左侧“窗体”的UserForm2上击右键,选择“导出文件”并保存到你的电脑的某个文件夹中。
3、关闭文件。再打开你的需要加入进度条的文件,调出VBA编辑器。点击“文件”——“导入文件”,将刚才保存的文件导入。
4、将下面代码做适当修改(根据你的需要)后加入你的VBA代码中即可(特别是蓝色部分要放到适当位置):
Sub jdt()
UserForm2.Show vbModeless
UserForm2.ProgressBar1.Min = 1
UserForm2.ProgressBar1.Max = 50000
For i = 1 To 50000
Cells(i, 1) = “进度" & i
UserForm2.ProgressBar1.Value = i
Next i
Unload UserForm2
MsgBox "处理完毕!"
End Sub