帖子: 144
主題: 33
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-26
最後登錄: 2023-6-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-1-13 23:51 | 只看該作者

想用powerpoint做一個抽獎開獎的檔案

平常都只拿powerpoint做上台使用的簡告而已
但曾看過許多有特殊效果的檔案
一直不知怎麼做

歲末...老闆想辦個小型狂歡
會有抽獎活動
想說不要使用紙張做抽獎聯及存根聯
希望有一點變化
希望能做一個抽獎專用的程式
抽獎定於週會後...會有投影機
想說使用powerpoint最合適
但平常只會使用基本的功能...不知有沒有什麼方式可以做出來
並能做出以下效果
1. 可輸入抽獎人名單
2. 隨機且不可重覆出現
3. 名單的字一個一個跑出來，使用員工代號希望可以有像樂透開獎那種感覺，員工代號跑完後可以停下來輸入該獎的祝語或說明
4. 先顯示開獎的獎品及名額後隨便按一個案鈕才開始開獎

不知使用powerpoint有沒有做到這種功能?

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-1-14 20:47 | 只看該作者

回復 1# vvcvc

用EXCEL VBA
程式碼多為錄製非常多與亂參考用
提供大大們一些想法

亂數產生器(抽籤)(含音效).rar (18.76 KB)

TOP

vvcvc

中學生 Rank: 2

帖子: 144
主題: 33
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-26
最後登錄: 2023-6-23

3^#

發表於 2012-1-15 11:27 | 只看該作者

謝謝提供
剛好有看到power point也有人做VBA
想說是不是也能這樣子做
先來學excel多為錄製，平常都只會錄一些簡單的部驟而已

TOP

vvcvc

中學生 Rank: 2

帖子: 144
主題: 33
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-26
最後登錄: 2023-6-23

4^#

發表於 2012-1-16 10:26 | 只看該作者

經過昨晚的試用發現很VBA容易當掉
如果有發生這種情況
第一位中獎人會抓名單第一個人
之後就無法工作了

VBA不熟...雖然有自行研究程式碼
但怕會來不及
可以再幫忙debug嗎?

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-1-16 13:33 | 只看該作者

回復 4# vvcvc

我用是沒有問題的

1.是不是附上你的檔案
2.說明你的操作步驟

TOP

vvcvc

中學生 Rank: 2

帖子: 144
主題: 33
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-26
最後登錄: 2023-6-23

6^#

發表於 2012-1-16 13:44 | 只看該作者

您好,
我檔案未做修改
操作步驟為:
直接點選「姓名亂數(手動)」
若先點重置則不會有當掉的問題

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2012-1-16 14:39 | 只看該作者

回復 6# vvcvc

我設計之操作步驟為
1.獎品姓名工作表 :
輸入獎品名稱及姓名 (獎品與姓名各至多50個)(獎品數=<姓名數)
2.亂數產生器(抽籤)工作表 :
(1)重置鈕  : 將獎品姓名工作表內之獎品名稱及姓名複製到A欄與B欄
(2)獎品亂數(自動)  :  將A欄之獎品自動亂數到F欄
(3)姓名亂數(手動)  :  將B欄之姓名手動亂數到G欄(按1次只亂數1個姓名)

若有不同的需求當然程式碼就要須改

TOP

vvcvc