PowerPoint隨機頁面排序(VBA程式)

前文曾經提過如何使用PowerPoint VBA程式來製作隨機跳頁程式(重溫按這裡),由於當中程式的內容未能記錄那些頁面曾經被抽過,所以部份名單或許有機會一抽再抽。若果你的用途是用來隨機顯示一條問題,那沒有理由一條問題需要出現多於一次吧。

今次我們會使用PowerPoint的VBA程式來進行另一種方式隨機運算,就是一開始先把名單各頁面作種新隨機排序一次,然後再按這個隨機排下來的次序逐頁顯示出來,達至每個名單只能出現一次。

先開啟在本網下載已製作好的檔案,投影片分為三個部份,第1頁是開始頁面,之後的頁面是學生名單。與之前那個抽人名PowerPoint的不同是這個最後一頁多了一個重設的頁面,當所有名單已被抽過,會重新排序一次再來過。

所以使用這個PowerPoint,你必須要把第一及最後一頁保留下來,並在這兩頁之間加入名單內容。

第二樣不同的是只有第一及最後一頁才有按鍵,名單頁面並沒有任何按鍵,因為這兩頁的按鍵原理是按下將名單的頁面隨機進行一個新次序的調整。

加入名單的方法請參照上一篇內容。(重溫按這裡)

當名單已輸入好了,可以開始播放。先看看下圖,這是PowerPoint 2010的簡報者檢示畫面。下面可見到播放中名單的原本次序。

在第一頁按下中間的按鍵,第2頁至尾2那一頁會進行一個隨機排序,然後並會即刻跳至第2頁

餘下的名單只需直接用鍵盤或滑鼠點擊畫面,就會順著這個重新編好的次序逐一顯示。

當去到最後一張名單後,再按下一頁去到尾頁,按那個按鍵程式又會重新約名單頁面隨機排序一次,再自動跳至第2頁。

使用這個方法可確保每張名單都有均等的被抽機會,所有名單都必需要被抽過才可重新排序再抽。

下載檔案:


延伸閱讀:

PowerPoint隨機轉頁(VBA程式)

隨機抽人名程式

Leave a Reply

Your email address will not be published. Required fields are marked *

*