本程式為雙視窗的抽籤程式，以Excel VBA撰寫，使用時必須啟用巨集。
可以用它來單人抽籤，也可以雙人對戰，另外也可以玩快問快答。
使用方式：
- 解壓縮檔案
- 開啟檔案時，點選「啟用巨集」。
- 使用前先進入data工作表輸入資料，同一屬性的資料放在同一欄（直行）。
- 進入program工作表。
- 進入：進入抽籤模式，視窗中的格線、捲軸、標題都將消失，並切換成全螢幕。
按下enter使上下儲存格都變換
按下PageUp只變換上儲存格
按下PageDown只變換下儲存格 - 離開：從抽籤模式中離開，恢復格線、捲軸、標題。
- 次數：儲存格變換幾次後停止。
- 重複：若不勾選代表已被抽中的將不會再抽中。
- 欄：輸入在data工作表中，要取得的資料欄位，大小寫皆可接受。
- 產生：每次更動過欄，都必須要再按下「產生」鍵以重建資料。
當資料都抽完之後也必須再按下「產生」鍵。
- 預設每次開啟檔案都是上面的儲存格讀取data工作表的A欄。下面的儲存格讀取B欄。所以常用的資料請放於data工作表的A、B欄。
- 如果未按下離開鍵而直接關閉檔案，下次開啟excel時，格線、捲軸、標題都將消失。解決方式：再度開啟lottoX檔案，按下離開後才關閉檔案。
備註：
- 如果上下儲存格都選擇同一欄（如都放入姓名），可變為對戰模式
- 阿簡已在data工作頁輸入部份資料，欄位可修改成下列參數。
- DE 生物屬於哪一界
- FG 單子葉和雙子葉的特徵
- HI 動物屬於哪一門
- JK 動物屬於哪一分類
- KL 動物的特徵
- MN 生物的交互關係
畫面預覽:
上下都取同一欄，就會變成對戰模式
這個答案是「錯」
這個答案還是「錯」
12 意見:
大大您好
曾經請資管研究所同學寫這些類似程式，沒人寫出來，正令人懊惱，現在看到您的抽籤程式，如獲至寶，更感謝您無私的分享，願上帝佛祖保佑您天天有好運。
只是能否幫忙增加些小功能:
1.lotto2.03出現"全部抽完"警告，按下確定後，能否保留資料，以便複製出來做後續動作。
2.lottoX1.0作為對戰抽籤非常好用，視覺效果也很好，如果能將抽籤結果自動貼到儲存格，運用效果更佳層面會更廣。
不才，讓您見笑了，最後還是要說感恩!感恩!
簡兄您好
不好意思，又想到一個問題，lottoX1.0能否增加一個重選按鈕(意即剛剛產生的簽不算也就是剛剛的簽讓它沒出現過)，因為在都不重複狀況下，若有意外狀況，只按PAGEUP或是PAGEDOWN就無法剛好一對一，因為出現過的號碼或名字不會再出現，不知簡兄了解不才的意思嗎?希望這個問題有解，感恩囉
簡老師安
不知道匿名會連版主都看不到，實感抱歉，David是我的英文名，禮貌不週之處請多包函，謝謝!
小鵬你好
我收到你的需求啦，我還以為這個檔案只有我自己會去用哩，沒想到還有知音啊(泣)。
我會試著加上去你的需求，不過因為這一陣子雜事挺多的，可能沒有辦法短期間就生出來。做好了之後，我會post在此的。
簡老師
感謝!不才就等你的好消息囉
to 小鵬
我最近終於回頭來看這些程式啦，不好意思，等很久喔。
你的第一個問題
******************
lotto2.03出現"全部抽完"警告，按下確定後，能否保留資料，以便複製出來做後續動作。
******************
這個功能，我沒另外弄在新版中，我直接說解決方式吧，你開啟lotto2.03的原始檔，找到下面這一行
---------------
if (tl.length==0){alert("都全部抽過了喔");clear_run();}
---------------
改成下面這樣子，就可以了
----------------
if (tl.length==0){alert("都全部抽過了喔");}
----------------
阿簡老師,謝謝您的分享,我比較喜歡用excel版的抽籤,這版已經很好用了,我用來抽座位和掃地工作,並請同事增加一頁工作表,記錄抽籤結果,但使用前要先清空"record",分享給大家使用。
呃!暫時找不到地方放ⅩD,需要的請留e mail
阿簡兄:
感謝您分享這個系統，想請教該系統可否一次同時抽出2個以上(例如:10個，目前系統可一次抽出2個)。另外，抽出的結果可否紀錄後，再馬上抽籤，請您指導一下，謝謝~~~
程式改一改應該可以，不過我還要弄才行
阿簡兄:
請教，我們目前抽籤基數有600個，預定抽出100個，目前是設定上下皆抽出50個，發現了一個問題就是上下會有重複，是否有方式可以
不重複，感謝!!!
你上下設定成去抓同一個欄嗎？如果是的話，那就會重複。
張貼意見