如何利用EXCEL製件開口中

以下為一個比較間單的製作方法：

1. 先製作以下工作表 (如圖): START按鈕暫不需要
圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/20130212013521.jpg


2. 輸入公式：
B3 輸入 =IF(OR(E2="",F2="bingo"),"",IF(E2>D2,B2,E2+1))
C3 輸入 =IF(OR(E2="",F2="bingo"),"",IF(E2>D2,E2-1,C2))
F2 輸入 =IF(E2>0,IF(OR(E2<B2,E2>C2),"out of range",IF(E2=D2,"bingo","guess again")),"")

3. 將公試COPY，即
B3 COPY至B4-B10
C3 COPY至C4-C10
F2 COPY至F3-F10

4. 按 VISUAL BASIC,插入模組,再輸入以下程式碼：(如圖)

Sub startgame()
Randomize
[D2] = Round(Rnd() * ([C2] - [B2]) + 1, 0)
[D2:D11] = [D2]
[E2:E11] = ""
[E2].Select
End Sub


圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/20130212015311.jpg


圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/20130212015352.jpg


5. 返回工作表畫面，插入一個START按鈕來啟動startgame巨集


圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/20130212020104.jpg


6. 將Answer (Column D) 的欄寬縮至 0，完成。

本人之前用USERFORM也做過一個較精美版本，由於比較複雜，暫不提供。

圖片參考：http://imgcld.yimg.com/8/n/HA00726953/o/20130212020939.jpg


2013-02-12 02:19:08 補充：
修正第3步

3. 將公式COPY，即
B3 COPY至B4-B11
C3 COPY至C4-C11
F2 COPY至F3-F11