~~蔚藍星空~~

還記得小時候跟同學們上自修課時,有時會無聊到發慌,兩個小鬼頭就各拿一張空白紙劃上25宮格,填上1~25的數字後就一人喊出一個號碼看看誰先連成三條線即算是贏家

想不到長大後進入了職場賓果遊戲仍炙手可熱,有次辦活動時有人買了個賓果的遊戲包,就一個人在臺上抽出數字,而台下每人手上都有賓果卡看誰先連成五條線.好玩歸好玩但確需要另一個人在白板上把已經開出的號碼寫上,以免有人作弊.

就在前幾天,公司的同仁又想用賓果當成活動最後的摸彩獎勵,坦白說這樣的摸彩還挺刺激的．就跑來問我有沒有更簡便的方式．所以簡報賓果就這樣誕生嚕．老早就不寫VBA的我花了快一個下午才把這玩意給〔生〕出來．那就跟大家做個簡單的使用介紹吧

這就是遊戲進行時的畫面

不過因為它是用巨集寫成的所以還要設定一下才能使用唷,先在powerpoint工具列中的〔工具〕＼〔巨集〕點一下〔安全性〕

然後在〔安全性層級〕的標籤內選擇〔中〕這個選項

然後記的要把檔案關掉後再重開唷,重開後會看到此一畫面,請點選〔啟用巨集〕

這樣一來只要播放簡報時就可以玩了唷

點一下〔彩球號碼〕就會自動開出一號　此時要記得再到開出的號碼那邊點一下
（因為怕遊戲進行中誤按或者有人聽牌時主持人已開出下一號的窘態發生）

一共４９個號碼　建議用５ｘ５宮格的空白紙讓玩家填上任１～４９號內的２５個號碼

逐一開號　先連成四條連線者為贏家

要進行下一場遊戲只要點一下右下方的　〔重玩〕即會回復到初始狀態

星空把程式碼附在簡報中有興趣的人歡迎自由轉載跟下載,不過要記得註明轉自~~蔚藍星空~~唷

檔案下載 按我