close

標題:

免費註冊體驗

 

此文章來自奇摩知識+如有不便請留言告知

如何利用EXCEL製件開口中

發問:

我想好像獎門人中玩開口中, 請問如何利用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(E2C2),"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

其他解答:

arrow
arrow
    創作者介紹
    創作者 thhzpvx 的頭像
    thhzpvx

    thhzpvx的部落格

    thhzpvx 發表在 痞客邦 留言(0) 人氣()