帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-5-7 07:42 | 只看該作者

[發問] K 線股票圖如何能與主力、散戶、及成交量線共存？

本帖最後由 c_c_lai 於 2012-5-7 12:05 編輯

K 線股票圖如何能與主力、散戶、及成交量線共存？這個議題前陣子
在線上也不斷地與 Hsieh、GBKEE、register313等諸位版主先進請益過，
同時 kobo、AlexLiou 、chen_cook 等同好前輩也參與論述，謝謝大家的熱心！
現在把完成的心得提供出來，以期能有更多的人來共修，同時亦希望能獲得
各位有更棒的修正與經驗提出分享，別人能寫的為什麼我不會呢？

股票圖表2.rar (24.02 KB)

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-5-7 12:05 | 只看該作者

對不起！上附的檔案是 OK 的，只是我想解開我在處理上的一些疑惑，所以將此篇分享同時
改成發問，一舉雙得 (一魚兩吃)。

ActiveSheet.Shapes.AddChart.Select
With ActiveChart
      .SetSourceData Source:=Range("工作表1!$B$1:工作表1!$B$" & totalRows & ", 工作表1!$C$1:工作表1!$F$" & totalRows)
      .ChartType = xlStockOHLC
      With .ChartGroups(1)
         .AxisGroup = 1
               .
               .
               .
      End With

      .SeriesCollection.Add Source:=Range("工作表1!$G$2:工作表1!$I$" & totalRows)

      With .SeriesCollection(5) ' 成交量
         .AxisGroup = 2
         .Name = "=工作表1!$G$1"
         .ChartType = xlColumnClustered
               .
               .
               .
      End With

以上程式碼運作都 OK，但是如果我把成交量的部分用下列方式表達，卻會出現錯誤訊息。
      With .ChartGroups(2)
         .AxisGroup = 2
               .
               .
      End With
難道 .SeriesCollection.Add Source:=Range("工作表1!$G$2:工作表1!$I$" & totalRows) 之宣告，
不就是第二組 (Group 2) 嗎？
而且如果 With .SeriesCollection(6) 以及 With .SeriesCollection(7) 內都一併加上  .AxisGroup = 2
也會有錯誤訊息，那會是甚麼情況？語法不正確、或是有語法限制？
我發現只要是股票圖加上其它圖表的組合比較會有難度。

謝謝指導！

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

3^#

發表於 2012-5-7 14:03 | 只看該作者

我記得我有發問過類似的問題,想請教如何將2張以上的圖疊加起來,目前來沒有升級,能否PO文出來

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-5-7 14:40 | 只看該作者

本帖最後由 c_c_lai 於 2012-5-7 14:42 編輯

回復 3# white5168

Option Explicit
Sub drawCharts()
Dim totalRows As Single
Dim xRow, yCol, cHeight, cWidth As Integer
Dim text As String
Dim chartname As String
Dim sRowHeight As Single
xRow = 3
yCol = 1
cHeight = 31 'CHeight 定義為圖表所佔的列高
cWidth = 874
Sheets("工作表1").Select
ActiveSheet.ChartObjects.Delete
totalRows = Sheets("工作表1").Range("B" & Rows.Count).End(xlUp).Row ' 傳回 B 欄所使用儲存格之最後一格之列號
'先把列高找出來, 才好算出圖要佔幾列, 兩個圖才好連在一起
sRowHeight = Sheets("工作表1").Rows(3).RowHeight
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.SetSourceData Source:=Range("工作表1!$B$1:工作表1!$B$" & totalRows & ", 工作表1!$C$1:工作表1!$F$" & totalRows)
.ChartType = xlStockOHLC
With .ChartGroups(1)
.AxisGroup = 1
' .UpBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 紅色
.UpBars.Format.Fill.ForeColor.RGB = RGB(255, 69, 0) ' 橘紅色
' .DownBars.Format.Fill.ForeColor.RGB = RGB(0, 32, 96) ' 深藍色
.DownBars.Format.Fill.ForeColor.RGB = RGB(0, 250, 170) ' 淺洋綠色
End With
.SeriesCollection.Add Source:=Range("工作表1!$G$2:工作表1!$I$" & totalRows)
With .SeriesCollection(5)
.AxisGroup = 2
.Name = "=工作表1!$G$1"
.ChartType = xlColumnClustered
With .Format.Line
.Visible = msoTrue ' 成交量
.ForeColor.RGB = RGB(147, 112, 219) ' 成交量指數顯示之顏色 --- 紫色
.Transparency = 0
End With
End With
With .SeriesCollection(6)
.Name = "=工作表1!$H$1"
.ChartType = xlLine
With .Format.Line
.Visible = msoTrue ' 主力界入
' .ForeColor.RGB = RGB(105, 205, 170) ' 主力界入指數顯示之顏色 --- 藍綠色
.ForeColor.RGB = RGB(32, 178, 170) ' 主力界入指數顯示之顏色 --- 海洋綠色
.Transparency = 0
End With
End With
With .SeriesCollection(7)
.Name = "=工作表1!$I$1"
.ChartType = xlLine
With .Format.Line
.Visible = msoTrue ' 散戶方向
.ForeColor.RGB = RGB(65, 105, 225) ' 散戶方向指數顯示之顏色 --- 天藍色
.Transparency = 0
End With
End With
.Axes(xlValue).TickLabels.NumberFormatLocal = "0_ "
With .Axes(xlCategory) ' X座標軸 (時間軸)
.CategoryType = xlCategoryScale
.TickLabels.NumberFormatLocal = "hh:mm"
.MajorTickMark = xlNone
.Border.Weight = xlHairline
.Border.LineStyle = xlNone
.TickLabelPosition = xlLow
.TickLabels.Font.Size = 10
End With
.ChartArea.Height = cHeight * sRowHeight ' 將原本設定之高度調至適度位置
.ChartArea.Width = cWidth
text = "股票圖 K 線、主力、散戶、與成交量"
.SetElement (msoElementChartTitleCenteredOverlay)
.ChartTitle.text = text
.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 14
.Legend.Position = xlCorner ' 將圖表圖示從圖表最下方調整到圖表之右上角位置
End With
chartname = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, ""))
ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left ' 設定此圖表實際擺放的 X、Y 座標位置。
ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
Range("A1").Select
End Sub

複製代碼

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

5^#

發表於 2012-5-7 17:06 | 只看該作者

很感謝c_c_lai大大提供的程式碼

不過看起來好亂,能否請c_c_lai大大能將每個對應的功能做成一個個函數與註解,以方便清楚了解原理與debug
能否請c_c_lai大大提供您所使用的資料檔以供參考使用的格式內容
抱歉! 請多諒解, 需求多了點, 身為Programmer就是程式寫久了,這樣的習慣改不了,遇到需要debug時,程式的模組化與註解就很重要
謝謝

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2012-5-8 07:17 | 只看該作者

回復 5# white5168
程式的模組化與註釋本來就很重要，但請注意註釋要標註到重點，
而非亂譜。打從八位元開始就已經從事軟體維護的我，真不知如何
向你解說看起來好亂的定義？

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

7^#

發表於 2012-5-8 08:45 | 只看該作者

我在這裡提出我的建議,如有不中意聽的話請多多包涵

我覺得不管是寫得多少年程式或是身為程式設計師的人,都應該有的在程式是中加上必要的說明是應當
剛開始投身於程式工程師時,要在程式中加入註解,與明確訂定程式名稱與變數名稱,也是很不能適應要在程式裡加上說明
但久而久之習慣了,沒加反而不習慣,因為哪一天要再回過頭來看的時候可以很快就能上手,才不會再時間去回想當初的想法

對於寫程式已久的人,是否應該思考的該如何寫得讓人家看得懂的程式,而非寫給自己看的爽的程式
對於剛開始接觸新程式語言的新人,更應該學習養成良好的寫程式習慣,這樣哪天回頭來複習的時候可以更清楚當初的思路

我剛到這個討論區的時候,即發現到這裡回應的人的習慣真的跟我當初習慣一樣,所以我才會在每次貼程式碼的時候,特別加上註解與明確定義相關的名稱
以讓後面的人要學習時可以一眼看出我的想法與思路,這樣對他們可以成長得更快

說了這麼多,無非也是希望你能了解,不管是寫了程式多少年,沒有一個好的習慣養成,這樣程式的可讀性真的很低
以上的言論如有冒犯的地方請多多包涵

TOP

peter460191