你相信嗎？PPT計分器的製作竟如此簡單！

在專欄的上一篇里，陳老師給大家講了PPT倒計時製作方法，不知道大家還記不記得……說不記得的，請自覺掌嘴30，然後去複習一遍！

嗯，我們繼續——倒計時效果在班會活動、企業年會、教學授課等多種場合都能夠得到廣泛的使用，可以說是深得人心。

推送發出之後，我公眾號後台一大波的關鍵詞回復啊，那是此起彼伏……

今天，陳老師就再接再厲，繼續給大家帶來一則與倒計時同樣具有廣泛運用空間的技巧教程——PPT計分器的製作，相信在將來你一定用得上這個技巧！

其實事情是這樣的——昨天我在PowerPoint貼吧潛水，無意間看到了這麼一個求助的貼：

（可憐的娃，24號發的貼到我截圖時都還是0回復）

雖然陳老師完全不知道該怎麼做，但瞬間就覺得這是一個很不錯，用途很廣泛的點子——就像上次寫《分享一個今天晚上花了1.5小時學會的小技巧》時一樣，我決定再次現炒現賣，想辦法先學會這個技巧，然後解救這些無知少年於水火之中——怎麼說我現在也是版主了不是？哈哈哈哈……

不要懷疑陳老師為何自己都不會就敢想拯救他人的事兒，互聯網時代，一個計算機方面的技術你說你不會，最終往往都是因為你不會利用搜索引擎……

於是，從昨天上午9點27開始，我從關鍵詞「PowerPoint 控制項 加減分」入手，開始了搜索……

……期間根據搜索到的結果，數次更換調整關鍵詞……

9:45分，總算是讓我找到了一個來自某Excel論壇的帖子（上圖中最後一條記錄）：

這個帖子中求助的效果，和貼吧中那位兄台求助的效果幾乎一致。不過下載附件之後，發現這是一份Excel文檔，雖然的確是可以實現我想要的效果，但如何把它挪到PPT里實現呢？

看了一下這兩個按鈕的宏，加的那個按鈕關聯的是Macro1，減的那個關聯的是Macro2：

進入編輯界面，我驚訝的發現這個宏居然如此的簡單，就只有一行：Range()=Range()+1

趕緊查了一下Range命令的意思，發現僅僅是一個賦值的命令而已，Macro1這個宏的意思就是將D5單元格值賦值為當前D5單元格的值+1，Macro2則是在當前值基礎上-1。

這個宏在PPT里能不能用呢？即便能用，PPT里沒有單元格啊，括弧里我又應該填啥呢？我想了半天也沒搞懂，因為有課，就沒再研究，但心裡卻一直掛著這岔子事兒——真的，這個Excel文檔我都一直沒關掉。

時隔一天，今天下午我又開始琢磨，換著各種方兒想要解決這個問題—— 我甚至嘗試在PPT頁面插入Excel表格……沒想到奇蹟出現了：

|

|

|

|

|

|

|

|

↓

奶奶個腿兒！看來此路不通！最終我還是回到了使用文本框控制項這條路上來（如果你的PPT里沒有下面這個菜單，請到「自定義功能區」設置中勾選「開發工具」）：

PPT裡面，只有文本框控制項和單元格最像了，都是一個格子嘛，那會不會也有類似的宏命令呢？文本框又是否支持運算呢？

想到這裡我又下意識以「VBA 運算」為關鍵詞谷歌了一下，沒想到就搜到了下面這一個2008年的老網頁：

果不其然，文本框控制項是可以運算的，直接把名字拿來做運算就好了！於是，我立馬按照Excel那個例子中VBA的寫法，依葫蘆畫瓢……

看好，下面教程來啦！

1、插入一個文本框控制項：

2、右鍵單擊控制項框體，進入屬性表，更改一些顯示上的設置：字體、字型大小、對齊方式等（注意，控制項的字體字型大小等不能在開始選項卡更改，只能在這個屬性表中改）：

3、在開發工具選項卡點擊「宏」，命名並創建宏（名字必須以Slide1.開頭）：

進入VBA編寫窗口，寫好兩個宏：「文本框=文本框+1」和「文本框=文本框-1」（當然，需要把文本框幾個字變為PowerPoint中文本框控制項的源生英文稱呼TextBox1）：

4、回到頁面上繪製兩個按鈕，選擇「插入-動作」，點擊運行宏，分別選擇寫好的兩個宏，上箭頭關聯加分宏Slide1.jia，下箭頭關聯減分宏Slide1.jian：

搞定！F5運行，看看效果吧：

如果用到比賽中，想要每點一次加減10分的話怎麼辦呢？只需要在剛才的VBA窗口把TextBox1 = TextBox1 + 1 改為TextBox1 = TextBox1 + 10 就好啦！

當然，我們也可以美化一下頁面啦：

你學會了嗎？想要下載上面這份PPT計分器來學習研究的話，就請在我公眾號里回復「計分器」獲得下載鏈接吧！

http://weixin.qq.com/r/B0yhuYDE8t2NrcTa9xkV (二維碼自動識別)

PS：最後，希望本篇也能告訴大家一個道理——善用搜索引擎，你能學到的東西真的很多很多，加油吧騷年！

另外，鑒於自己也是一知半解，所以有可能教程中有走了彎路的地方，還望VBA高手看後能指點二三，感謝！！

推薦閱讀：