如何在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=
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=