請教:為何將EXCEL 表格縮小後,VBA會暫停運作。

各位大大們好,不才有個EXCEL跑VBA,只要將這個EXCEL 表格縮小到系統工作列,VBA就會暫停運作。再放大到桌面上後又會繼續運作。不解其中緣故,希望有人能為幫忙解決疑惑。資訊、圖檔如下,先在此謝過大家。
系統: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暫停運作的時段。

請教:為何將EXCEL 表格縮小後,VBA會暫停運作。
文章關鍵字
chenjunten wrote:
各位大大們好,不才有個EXCEL跑VBA,只要將這個EXCEL 表格縮小到系統工作列,VBA就會暫停運作。再放大到桌面上後又會繼續運作。...(恕刪)

chenjunten wrote:
EXCEL 版本:2013...(恕刪)


程式碼是正確的,vba沒有暫停,是excel 2013 的bug,螢幕更新會停止,
可以用debug.print Sheets(2).Cells(1, 12),在即時運算視窗檢查
您會發現資料都正常抓取,空白的地方,其實有資料的

例如:a1~a10有資料,a5沒看到資料,隨便找一格填入 =a5,您會發現資料就會出現
只要把表格切換一下,或是捲動一下表格,等一下就會正常了

或是加入一行程式碼



chenjunten wrote:
各位大大們好,不才...(恕刪)

snare wrote:
程式碼是正確的,vba...(恕刪)


snare大您好,
感謝您撥冗說明與提供解決方法。
這就去試試看。
誠心致謝!

junten 拜
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!