[發問] 請問該如何用VBA自動化出股票K線圖呢？

帖子: 24
主題: 4
精華: 0
積分: 68
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taiwan, Taipei
註冊時間: 2011-1-15
最後登錄: 2012-7-31

2^#

發表於 2011-1-17 18:35 | 只看該作者

Hello,

如果是在活頁簿裡的資料, 建議直接使用圖表的方式繪製就可以了.
這樣子比較簡單快速.

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-1-17 21:01 | 只看該作者

回復 1# j1221
先改變資料數列再設定圖表類型

Sub Macro1()
'
' Macro1 Macro
' Shih-Hao 在 2011/1/16 錄製的巨集
'
'
Charts.Add
'ActiveChart.ChartType = xlStockOHLC '取消這行
ActiveChart.SetSourceData Source:=Sheets("76C").Range("A1:N22"), PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(5).Delete
ActiveChart.SeriesCollection(5).Delete
ActiveChart.SeriesCollection(5).Delete
ActiveChart.SeriesCollection(5).Delete
ActiveChart.SeriesCollection(5).Delete
ActiveChart.SeriesCollection(1).XValues = "='76C'!R2C1:R22C1"
ActiveChart.SeriesCollection(2).XValues = "='76C'!R2C1:R22C1"
ActiveChart.SeriesCollection(3).XValues = "='76C'!R2C1:R22C1"
ActiveChart.SeriesCollection(4).XValues = "='76C'!R2C1:R22C1"
ActiveChart.Location Where:=xlLocationAsObject, Name:="76C"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.ChartType = xlStockOHLC '這裡才改變類型
End With
ActiveChart.HasLegend = False
Windows("test1.xls").SmallScroll Down:=7
ActiveSheet.Shapes(1).IncrementLeft -168.75
ActiveSheet.Shapes(1).IncrementTop 269.25
Windows("test1.xls").SmallScroll Down:=6
ActiveSheet.Shapes(1).ScaleWidth 1.53, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(1).ScaleHeight 1.36, msoFalse, msoScaleFromTopLeft
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 40
.PatternColorIndex = 1
.Pattern = xlSolid
End With
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormatLocal = "yyyy-mm-dd"
End Sub

複製代碼

學海無涯_不恥下問

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

4^#

發表於 2011-1-18 12:16 | 只看該作者

感激Hsieh板主，受教了....

但可否請問您，為何要「先改變資料數列再設定圖表類型」才對呢？

再次感謝

我愛麻辣家族討論區！！

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-1-18 13:35 | 只看該作者

回復 4# j1221

k線圖資料必需依序排列
你若直接用所有欄位直接製圖會以預設的直調圖呈現
若直接轉換類型，EXCEL也會出現警告視窗，要求變更資料範圍

學海無涯_不恥下問

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

6^#

發表於 2011-1-20 11:58 | 只看該作者

回復 5# Hsieh

Hsieh大感恩，又學到一樣東西。可否再請教您如何指定工作表的問題。我先定義了兩個變數c 和 op，c 為數字，op為文字
。然後我利用 ThisWorkbook.ActiveSheet.Name = c & op 命名目前的工作表。但知後我想要再指定這個工作表時該如何指定？

我是用 Sheets("c & op").Cells(i, 1)....

煩請您參考附件，在Module 1的列32，感謝。:D

test1.rar (170.74 KB)

我愛麻辣家族討論區！！

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-1-20 12:20 | 只看該作者

回復 6# j1221

Sheets(c & op).Cells(i, 1).PasteSpecial

學海無涯_不恥下問

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

8^#

發表於 2011-1-20 12:34 | 只看該作者

回復 7# Hsieh

Hsieh大抱歉，請問在繪製圖表裡面的部份該怎麼改？比如說這個？

ActiveChart.SeriesCollection(1).XValues = "='c & op'!R2C1:R22C1"

我愛麻辣家族討論區！！

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-1-20 12:39 | 只看該作者

回復 8# j1221

ActiveChart.SeriesCollection(1).XValues = "='" & c & op & "'!R2C1:R22C1"

學海無涯_不恥下問

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

10^#

發表於 2011-1-20 13:08 | 只看該作者

回復 9# Hsieh

Hsieh大，抱歉又有問題了.....這次問題出在我跑完d=1，進入d=2時。在

With Sheets("data")
            Cells(1, 1).EntireRow.Select
            Selection.Copy
            Sheets.Add After:=Sheets("data")
            ActiveSheet.Cells(1, 1).PasteSpecial
            ThisWorkbook.ActiveSheet.Name = c & op
End With

出現「Class Range的Select 方法失敗」的訊息，為什麼第一圈沒有問題，第二圈的時候就會出來選擇錯誤？？感謝您

我愛麻辣家族討論區！！