返回網站

台北大縱走隨機選擇地點​

利用 Excel 製作爬山紀錄表、VBA 來寫隨機選擇程式

· VBA

點一下按鈕來看看要去哪座山吧!

  從去年9月開始出現的「台北東西南北大縱走壯遊趣」爬山活動,和每個拓印字合照完成後可以換領到小獎品。但如果只是純粹想要爬山的話,也可以參考這幾個地點來行動,假如不知道要去哪一個景點遊玩的話,就可以試著用 Excel VBA 製作像下面一樣簡單的表單來隨機選擇地點和活動記錄。

按鈕有兩種:隨機抽選、不重複隨機抽選。

本來只有爬山的紀錄表單,只要再多寫幾行簡單的小程式,就能夠變成有趣的抽籤程式了!

(在 VBA 程式內輸入底線_ 再跳下一行,可繼續接寫程式)

分別將程式碼對應到左邊及右邊的按鈕,其中下面是不重複的程式碼。

特別留意 VBA 裡可以用 Range 及 Cells 來選取你要的範圍,然後先輸入 Randomize 就可使用 Rnd,最後 .Select 就是把所抽到的地點範圍選取起來,會有被選中的效果。