EXCEL 中也玩进度条

我们使用一些编译语言进行开发的时候，常常会涉及到一些进度条的开发。可是大家有没有想过就在MS的Excel中也实现一下该功能，如果各位有兴趣，请跟我来， 我将教大家一步一步实现，过后你将觉得极其简单，呵呵.....
1、打开Excel,将Range("C4:I4")合并单元格，并设置格式：双边框，粉红色底，水平向左对齐，垂直居中。字体请选择Webdings字体，字号为6号吧。
2、选中Cells("J4"),设置格式：双边框，粉红色底，水平居中，垂直居中。数值请选百分比，没有小数.并输入：“=C1/B1”
3、选中Cells("C1"),赋值1700
4、再次选中Cells("C4"),输入"=REPT("g",C1/B1*60)",记住这里，只有小写字母g的Webdings字体显示如一条方框式的。呵呵，碰巧被我找到了！运气运气！
5、拖入一个命令按钮在合适的位置，双击它，进入VBE中并输入如下代码：

 

Private   Sub CommandButton1_Click() Sub CommandButton1_Click()
    Dim j As Integer
    For j = 1 To Cells(1, 2).Value
        Cells(1, 3).Value = j
    Next j
End Sub

6、保存再进入，并记得开启使用宏。
7、点击你的按钮就可以看到果！

最后将源码放在这里！有兴趣的朋友可以下载看看。