jiuhtsair

中學生 Rank: 2

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-6-1 13:19 | 只看該作者

如何讓圖表顯示固定區域的資料?(可以每日更新)

小弟想讓圖表顯示固定趨勢的K線圖(大約40天份)...

應用資料.zip (45.42 KB)

但是..每次更新資料後(我在A8的位置插入新資料)..

圖標依然顯示原先資料
(例如今天在A8插入資料..圖表就變成從A9的資料開始讀取....明天再插入資料..他就從A10開始讀取..)

試過用indirect的指令..一直顯示指令錯誤..

請大家指點..謝謝！

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

jiuhtsair

中學生 Rank: 2

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

5^#

發表於 2014-6-5 17:36 | 只看該作者

回復 4# stillfish00

感恩..

這是小弟比較能夠理解的方式

謝謝大大指點！謝謝！

50 字節以內
不支持自定義 Discuz! 代碼

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2014-6-3 15:53 | 只看該作者

本帖最後由 stillfish00 於 2014-6-3 16:05 編輯

回復 3# jiuhtsair
也可以定義名稱，如
定義開盤=OFFSET(結論!$B$6,2,0,40,1)
或 =OFFSET(INDIRECT("結論!$B$8"),0,0,40,1)
圖表的數列再使用定義的名稱做來源。

TOP

jiuhtsair

中學生 Rank: 2

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

3^#

發表於 2014-6-1 17:45 | 只看該作者

回復 2# GBKEE
感謝大大指點..

原先以為指示操作上的某個小癥結卡住了..
沒想到要動用寫程式..
小弟會好好研究..感謝您。謝謝！

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-1 17:31 | 只看該作者

回復 1# jiuhtsair

Sub 結論()
Dim i As Integer
With Sheets("結論")
.[A8:E8].Insert Shift:=xlDown
.Range("A8:E8") = .[a3:e3].Value
End With
With Sheets("K線圖表區 ").ChartObjects("Chart 1").Chart
For i = 0 To 4
.SeriesCollection(i + 1).XValues = [結論!a8].Resize(40) 'K線圖X軸資料(大約40天份)
.SeriesCollection(i + 1).Values = [結論!b8].Offset(, IIf(i < 4, i, 3)).Resize(40) 'K線圖Y軸資料(大約40天份)
'.SeriesCollection(i + 1) 'K線圖Y軸 1-5 數列
Next
'數列5 期貨收盤
' .SeriesCollection(5).XValues = [結論!a8].Resize(40) 'K線圖X軸資料(大約40天份)
' .SeriesCollection(5).Values = [結論!E8].Resize(40) 'K線圖Y軸資料(大約40天份)
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP