返回列表 上一主題 發帖

[發問] 關於圖表..拜託各位大大了 ><

saleen

帖子
53 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Windows 8 x64 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
Taipei 
註冊時間
2013-6-3 
最後登錄
2015-1-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-1-23 11:25 | 顯示全部帖子

[發問] 關於圖表..拜託各位大大了 ><

小妹真的已經試過各種方法很奇怪的就是不行
拜託誰來救救小妹吧 T_T

以下是程式碼
  1. Option Explicit

  3. Dim timerEnabled As Boolean

  5. Sub Timer()  '每分鐘紀錄資料的Timer

  7. If timerEnabled Then
  8. Application.OnTime (Now + TimeValue("00:01:00")), "Update" '指定的時間區段
  9. Else
  10. timerEnabled = True

  12. If (TimeValue(Now) <= TimeValue("08:45:00")) Then
  13. Application.OnTime (TimeValue("08:45:00")), "Update"
  14. Else
  15. Application.OnTime (Now + TimeValue("00:00:05")), "Update" 'DDE緩衝時間
  16. End If
  17. End If

  19. End Sub

  21. Sub Update() '每分鐘紀錄資料的 Sub

  23. On Error Resume Next
  24. If (TimeValue(Now) < TimeValue("8:45:00") Or TimeValue(Now) > TimeValue("13:45:30")) Then Exit Sub '只在指定的時間區段內紀錄資料

  26. With 工作表1

  28. .Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  29. .Range("A3:ZZ3") = .Range("A3:ZZ3").Value

  31. End With

  33. 工作表2.Rows(2).Copy
  34. 工作表1.Rows(2).PasteSpecial

  36. If timerEnabled Then Call Timer
  37. End Sub
複製代碼
小妹在工作表 3 有一個圖表
這個圖表會抓 A2~A(M) 其中M是每分鐘記錄的資料
很奇怪的是在 Update 這個程式每跑完一次就會新增一列到第 2 列
然後圖表的資料選取就會自動從
=工作表1!$A$2:$A$10

變成
=工作表1!$A$3:$A$11

我想要做到是可以前面的 $A$2 永遠不動 , 後面則跟著最新有資料的那行跑


拜請大大們來就救小妹了 Q_____Q
收藏 分享
小妹在此向各位大大求教了 Orz

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題