在 “工具”/“自定義” 里，找到 “工具攔” 選項(xiàng)卡，找到“控件和工具箱”，將前面打鉤。

在一張幻燈片上拖個(gè) 按鈕 和 文本框。

雙擊 按鈕，打開代碼窗口

輸入：

?

view plaincopy to clipboardprint?

Private?Sub?CommandButton1_Click()??

????win_hwnd?=?GetActiveWindow()??

????TextBox1.Text?=?"10"??

????SetTimer?win_hwnd,?101,?1000,?AddressOf?timer??

End?Sub??

??

Private?Sub?TextBox1_Change()??

????If?TextBox1.Text?<=?0?Then??

????????KillTimer?win_hwnd,?101??

????????MsgBox?"Time?Up!",?vbInformation,?"T_T"??

????End?If??

End?Sub??

?

再在里面添加一個(gè)模塊，輸入：

?

view plaincopy to clipboardprint?

Public?Declare?Function?GetActiveWindow?Lib?"user32"?()?As?Long??

Public?Declare?Function?SetTimer?Lib?"user32"?(ByVal?hwnd?As?Long,?_??

????ByVal?nIDEvent?As?Long,?ByVal?uElapse?As?Long,?ByVal?lpTimerFunc?As?Long)?As?Long??

Public?Declare?Function?KillTimer?Lib?"user32"?(ByVal?hwnd?As?Long,?_??

????ByVal?nIDEvent?As?Long)?As?Long??

??

Public?win_hwnd?As?Long??

??

Public?Sub?timer()??

????Slide1.TextBox1.Text?=?Val(Slide1.TextBox1.Text)?-?1??

End?Sub??

?

關(guān)閉代碼窗口

開始放映幻燈片，點(diǎn) 按鈕，好了開始計(jì)時(shí)了

總結(jié)

以上是生活随笔為你收集整理的PPT实现倒计时功能(VBA实现)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。