[發問] Excel 播放四個分頁

各位先進好

有一問題想請教
小弟有四個分頁都在同一個檔案
想使用巨集讓四個分頁都能分別出現
就像PPT檔一樣輪播

小弟用了
Application.Wait waitTime
做延遲5秒後再其它分頁
但會卡住....
用了
Application.OnTime Now + TimeValue("00:00:05"), "我的分頁"
一樣會卡住
請問有別的語法或者小弟那邊寫錯了嗎?

樓主熱帖

fantersy

中學生 Rank: 2

帖子: 132
主題: 35
精華: 0
積分: 179
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-24
最後登錄: 2025-1-17

2^#

發表於 2016-6-13 17:37 | 顯示全部帖子

回復 1# fantersy

各位先進好!!
小弟用下列語法寫出...
是可以執行....
請問有更好的寫法嗎??
另外可以設定熱鍵開始跟關閉嗎?

Sub 輪播()
For X = 1 To 5

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5 + X
newSecond1 = Second(Now()) + 10 + X
newSecond2 = Second(Now()) + 15 + X
newSecond3 = Second(Now()) + 20 + X
waitTime = TimeSerial(newHour, newMinute, newSecond)
waitTime1 = TimeSerial(newHour, newMinute, newSecond1)
waitTime2 = TimeSerial(newHour, newMinute, newSecond2)
waitTime3 = TimeSerial(newHour, newMinute, newSecond3)

Sheets("生產日報表-焊錫線").Select
ActiveWindow.ScrollColumn = 1
Application.Wait waitTime

Sheets("生產日報表-組立一線").Select
ActiveWindow.ScrollColumn = 1

Application.Wait waitTime1

Sheets("生產日報表-組立二線").Select
ActiveWindow.ScrollColumn = 1

Application.Wait waitTime2

Sheets("生產日報表-測試線").Select
ActiveWindow.ScrollColumn = 1
Application.Wait waitTime3

Next

End Sub

TOP

fantersy