雖然星穹聖詩已經是幾個月前的事情了
但畢竟米哈游不只一次用這樣的模式販售時裝
未來可能也會持續有類似的補給活動
最近剛好在研究EXCEL的VBA
所以心血來潮，想試著寫寫看試抽補給的宏
由於我還是VBA新手，所以可能寫法上有誤
如果有這方面的專家，還請不令指正
————————————————————————-
關於補給規則的部分我就不再贅述，直接粘貼每次補給的機率：
————————————————————————-
以下是VBA的補給試抽邏輯，沒興趣的可以跳到最下面：
1.由於小數點比較繁瑣，因此把機率先乘以10，變成千分率。A到J分別代表10種獎勵
2.在進行第一次補給時，先定義一個字元串，該字元串為A(重複0次)B(重複0次)C(重複0次)D(重複3次)E(重複5次)……(以此類推)。也就是說，這個字元串會是「DDDEEEEEFFFFFFGGGGGGGGG….」
3.計算2.字元串共有幾個字元，得一個字元數counts
4.從1~counts中隨機抽一個數字num
5.在2.的字元串中，由左而右數到第num個字母，該字母就是第一次抽獎抽重的獎勵。
6.進行第二抽，先剔除掉第一次抽獎抽到的獎勵，並重複進行動作2~5
7.持續剔除已經抽掉的獎勵，並重複進行到第10抽
8.抽完10抽後即為一輪，用戶可預先設置要跑幾輪。
————————————————————————-
以下是使用方法與載點：
下載EXCEL文件後啟用宏，請按下左上角的「開始補給」按鈕，並輸入想要抽幾輪（若要抽幾百幾千輪的話，可能會需要數分鐘的時間）
下方會出現試抽的結果
最後附上EXCEL載點
EXCEL
還有VBA，不會用的可以無視
—————————————————————————————————————
最後一些題外話
根據我試抽個幾千次的結果
第8與第10抽拿到最大獎的機率各約20%
第9抽抽中的機率約為50%
不過我必須再強調一次
因為我是VBA菜鳥，所以我也不確定我寫得有沒有誤
因此只給大家做個參考，我也不細談機率數字
以免萬一有誤，不小心誤導別人
若有好心的大大能給點指正
我會再持續上傳修正的版本
3Q~
