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、點擊你的按鈕就可以看到果！

最後將源碼放在這裡！有興趣的朋友可以下載看看。