系統:Win10
螢幕*4:這個EXCEL表格放在主螢幕
EXCEL 版本:2013
檔案大小:51KB
VBA:
---------------------------------------------------------------------------------------------------
主程式頁框:ThisWorkBook(程式碼)
左上選項:WorkBook 右上選項:Open
Private Sub WorkBook_Open()
If Time > TimeValue("08:45:00") Then
Copy_Data
Else
Application.OnTime TimeValue("08:45:00"), "Copy_Data" '原處為:TimeValue("08:45:00")
End If
End Sub
副程式頁框:Module1(程式碼)
左上選項:(一般) 右上選項:1:(宣告) 2:Copy_Data
Public i As Integer
Sub Copy_Data()
Sheets(2).Cells(1 + i, 31).Resize(1, 2).Value = Sheets(2).Cells(1, 12).Resize(1, 2).Value
i = i + 1
Application.OnTime Now + TimeValue("00:10:00"), "Copy_Data"
If Time > TimeSerial(13, 45, 0) Then Application.OnTime Now + TimeValue("00:10:00"), "Copy_Data", , False
End Sub
圖檔說明:
AE與AG欄位為資料輸入欄,每十分鐘往下複製貼上一格。空缺處為將EXCEL 表格縮小後,VBA暫停運作的時段。
