返回列表 上一主題 發帖

EXCEL接收即時數據時，若有搭配折線圖會運算慢的問題

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2018-11-9 18:07 | 顯示全部帖子
回復 2# wengin66
以下是VBA 的說明

Application.OnTime 方法
安排一個程序在將來的特定時間執行 (既可為某個日期的指定時間，也可為指定的時間之後)。
語法 運算式.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
參數
名稱 必要/選用 資料類型 描述
EarliestTime 必要 Variant 想要執行程序的時間。

Procedure 必要 String 要執行的程序名稱。
'LatestTime 選用 Variant 可以開始執行程序的最晚時間。例如，假設 LatestTime 設為 EarliestTime + 30，當時間到了 EarliestTime 時，如果由於其他程序正在執行中而使 Microsoft Excel 不處於 [就緒]、[複製]、[剪下] 或 [尋找] 模式，則 Microsoft Excel 會等待 30 秒以完成第一個程序。如果 30 秒內 Microsoft Excel 無法回到 [就緒] 模式，則不會執行此程序。如果省略此引數，Microsoft Excel 會一直等到可以執行該程序為止。 ****關鍵在這可能是在等候這檔案公式上的運算  ***

Schedule 選用 Variant 若為 True，排程新的 OnTime 程序。若為 False，清除先前設定的程序。預設值為 True。

另修正你各圖表上名稱參照的位置應是從第14開始,(為何從24)
  1. Sub Ex()
  2.     Dim N As Name
  3.     For Each N In ThisWorkbook.Sheets("Sheet1").Names
  4.         N.RefersToR1C1 = Replace(N.RefersToR1C1, "R24", "R14")  '修正為第14列開始
  5.         N.RefersToR1C1 = Replace(N.RefersToR1C1, "-1", "-2")    '-1 會多一格空格
  6.         Debug.Print N.Name, N.RefersToR1C1
  7.     Next
  8. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題