VBA进度条

如何在Excel VBA中设置进度条

Jack

1．进入Visual Basic编辑器，选择 插入-用户窗体，即生成一个userform1，从右下方的属性栏中（右键单击可以选择弹出属性栏），将caption设置为“正在进行模拟运算……”（这是一个标题，你自己可以随便取名字），width设置为350，Height设置为50。

2．紧接着需要插入四个Label标签（即控件工具栏中的大写字母A，如下图1）。

3．Label1放置在UserForm1的中间偏右一点，caption设置为空值，BackColor设置为白色，SpecialEffect设置为2-fmspecialeffectsunken，Width=285，Height=15。

4．Label2放置在Label1的外部左边，紧贴着Label1， caption设置为“进度”，颜色你自己随便选择（Forecolor中设置）

5．Label3放置在Label1的内部，紧贴着其左边，caption设置为空，BackColor设置为蓝色，Height=15，Width=20

6．Label4的caption设置为0%，ForeColor设置为“红色”（当然你可以随便设置你喜欢的颜色），BackStyle设置为0-fnbackstyletransparent（也就是把属性设置为透明的），Height=