返回列表下一主題上一主題發帖

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

saleen

中學生 Rank: 2

帖子: 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

以下是程式碼

Option Explicit
Dim timerEnabled As Boolean
Sub Timer() '每分鐘紀錄資料的Timer
If timerEnabled Then
Application.OnTime (Now + TimeValue("00:01:00")), "Update" '指定的時間區段
Else
timerEnabled = True
If (TimeValue(Now) <= TimeValue("08:45:00")) Then
Application.OnTime (TimeValue("08:45:00")), "Update"
Else
Application.OnTime (Now + TimeValue("00:00:05")), "Update" 'DDE緩衝時間
End If
End If
End Sub
Sub Update() '每分鐘紀錄資料的 Sub
On Error Resume Next
If (TimeValue(Now) < TimeValue("8:45:00") Or TimeValue(Now) > TimeValue("13:45:30")) Then Exit Sub '只在指定的時間區段內紀錄資料
With 工作表1
.Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("A3:ZZ3") = .Range("A3:ZZ3").Value
End With
工作表2.Rows(2).Copy
工作表1.Rows(2).PasteSpecial
If timerEnabled Then Call Timer
End Sub

複製代碼

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

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

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

拜請大大們來就救小妹了 Q_____Q

樓主熱帖

小妹在此向各位大大求教了 Orz

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2015-1-26 00:09 | 只看該作者

本帖最後由 luhpro 於 2015-1-26 00:12 編輯

回復 1# saleen
因為你底下這一行會改變圖表的來源對應位址:
.Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

試試在被改變後再重設回原位址的方式,看是否符合你的需求 :

With 工作表1
.Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("A3:ZZ3") = .Range("A3:ZZ3").Value
Sheets("工作表3").ChartObjects("圖表 1").Activate
ActiveChart.SetSourceData Source:=Sheets("工作表1").Range("$A$2:$A$10"),PlotBy:=xlColumns
End With

複製代碼

TOP

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題