12
返回列表 上一主題 發帖

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

j1221

帖子
50 
主題
10 
精華
0 
積分
69 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-21 
最後登錄
2015-1-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-1-16 23:19 | 只看該作者

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

本帖最後由 j1221 於 2011-1-16 23:50 編輯

各位前輩好，小弟又來叨擾了，這次我的問題如下：

我利用VBA先抓出我要的資料後，然後再將所抓出來的資料化成K線圖

在畫圖的部份，因為小弟不知道該怎麼寫，所以我是利用錄製巨集的功能，把巨集製作出來。

但製作好之後，當我想要重新執行一次巨集的時候，跳出對話視窗「ChartType 方法(Chart物件)失敗」

可否請問是甚麼問題，該如何解決呢？

煩請參閱附件(Module 2)

test1.rar (170.94 KB)
收藏 分享
我愛麻辣家族討論區！！

skybbs

帖子
24 
主題
4 
精華
0 
積分
68 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan, Taipei 
註冊時間
2011-1-15 
最後登錄
2012-7-31 
2#
發表於 2011-1-17 18:35 | 只看該作者
Hello,

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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-1-17 21:01 | 只看該作者
回復 1# j1221
先改變資料數列再設定圖表類型
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' Shih-Hao 在 2011/1/16 錄製的巨集
  5. '

  7. '
  8.     Charts.Add
  9.     'ActiveChart.ChartType = xlStockOHLC  '取消這行

  11.     ActiveChart.SetSourceData Source:=Sheets("76C").Range("A1:N22"), PlotBy:= _
  12.         xlColumns
  13.     ActiveChart.SeriesCollection(5).Delete
  14.     ActiveChart.SeriesCollection(5).Delete
  15.     ActiveChart.SeriesCollection(5).Delete
  16.     ActiveChart.SeriesCollection(5).Delete
  17.     ActiveChart.SeriesCollection(5).Delete
  18.     ActiveChart.SeriesCollection(1).XValues = "='76C'!R2C1:R22C1"
  19.     ActiveChart.SeriesCollection(2).XValues = "='76C'!R2C1:R22C1"
  20.     ActiveChart.SeriesCollection(3).XValues = "='76C'!R2C1:R22C1"
  21.     ActiveChart.SeriesCollection(4).XValues = "='76C'!R2C1:R22C1"
  22.     ActiveChart.Location Where:=xlLocationAsObject, Name:="76C"
  23.     With ActiveChart
  24.         .HasTitle = False
  25.         .Axes(xlCategory, xlPrimary).HasTitle = False
  26.         .Axes(xlValue, xlPrimary).HasTitle = False
  27.         .ChartType = xlStockOHLC   '這裡才改變類型
  28.     End With
  29.     ActiveChart.HasLegend = False
  30.     Windows("test1.xls").SmallScroll Down:=7
  31.     ActiveSheet.Shapes(1).IncrementLeft -168.75
  32.     ActiveSheet.Shapes(1).IncrementTop 269.25
  33.     Windows("test1.xls").SmallScroll Down:=6
  34.     ActiveSheet.Shapes(1).ScaleWidth 1.53, msoFalse, msoScaleFromTopLeft
  35.     ActiveSheet.Shapes(1).ScaleHeight 1.36, msoFalse, msoScaleFromTopLeft
  36.     ActiveChart.PlotArea.Select
  37.     With Selection.Border
  38.         .ColorIndex = 16
  39.         .Weight = xlThin
  40.         .LineStyle = xlContinuous
  41.     End With
  42.     With Selection.Interior
  43.         .ColorIndex = 2
  44.         .PatternColorIndex = 1
  45.         .Pattern = xlSolid
  46.     End With
  47.     With Selection.Border
  48.         .ColorIndex = 16
  49.         .Weight = xlThin
  50.         .LineStyle = xlContinuous
  51.     End With
  52.     With Selection.Interior
  53.         .ColorIndex = 40
  54.         .PatternColorIndex = 1
  55.         .Pattern = xlSolid
  56.     End With
  57.     ActiveChart.Axes(xlCategory).Select
  58.     Selection.TickLabels.NumberFormatLocal = "yyyy-mm-dd"

  60. End Sub
複製代碼
學海無涯_不恥下問

TOP

j1221

帖子
50 
主題
10 
精華
0 
積分
69 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-21 
最後登錄
2015-1-11 
4#
發表於 2011-1-18 12:16 | 只看該作者
感激Hsieh板主，受教了....

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

再次感謝
我愛麻辣家族討論區！！

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-1-18 13:35 | 只看該作者
回復 4# j1221


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

TOP

j1221

帖子
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)
我愛麻辣家族討論區！！

TOP

Hsieh

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

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
學海無涯_不恥下問

TOP

j1221

帖子
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"
我愛麻辣家族討論區！！

TOP

Hsieh

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

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"
學海無涯_不恥下問

TOP

j1221

帖子
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 方法失敗」的訊息，為什麼第一圈沒有問題，第二圈的時候就會出來選擇錯誤？？感謝您
我愛麻辣家族討論區！！

TOP

        靜思自在 : 不怕事多，只怕多事。
12
返回列表 上一主題