1234
返回列表 上一主題 發帖

[發問] 有關excelVBA圖表的問題

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
11# 跳轉到 »
發表於 2013-6-9 14:39 | 只看該作者
回復 10# c_c_lai
好的，十分感謝你喔，我會在做修改的，讓效益更好。再次謝謝你:)))

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
12#
發表於 2013-6-9 15:18 | 只看該作者
回復 10# c_c_lai
不好意思 在向你詢問一個問題
我現在如果要畫一個xlline的圖
然後我要把日期加進去當成最底下的座標
通常就把日期欄位一起放進資料來源
可是他居然也畫出線來
這有辦法可以解決嗎
謝謝

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
13#
發表於 2013-6-9 15:24 | 只看該作者
回復  c_c_lai
不好意思 在向你詢問一個問題
我現在如果要畫一個xlline的圖
然後我要把日期加進去當成最 ...
lin_6219 發表於 2013-6-9 15:18

你是一開始便宣告的嗎？ 譬如下方之例子：
.SetSourceData Worksheets("繪圖資料").Range("A2:E" & CStr(nRow))
還是在中段加入的？

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
14#
發表於 2013-6-9 15:50 | 只看該作者
回復 13# c_c_lai

我是一開始就加進去了，可是我要畫線的資料在J欄，中間的資料沒要畫線，
所以我這樣打 SetSourceData Worksheets("繪圖資料").Range("A2:A" &Cstr(nrow), "J2:J" & CStr(nRow))

圖.png (24.87 KB)

圖.png

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
15#
發表於 2013-6-9 16:17 | 只看該作者
回復 14# lin_6219
附上測試程式供參考： Range("繪圖資料!$A$2:繪圖資料!$A$" & CStr(nRow) & ", 繪圖資料!$F$2:繪圖資料!$F$" & CStr(nRow))
  1. Sub Test()
  2.     Dim nRow As Integer, ChtObj As ChartObject
  3.     Dim i As Integer, j As Integer, chartname As String
  4.     Dim myMax, myMin, GapNr As Integer
  5.    
  6.     On Error Resume Next
  7.   
  8.     With Worksheets("主畫面")
  9.         .ChartObjects.Delete
  10.         .Select
  11.         nRow = Worksheets("繪圖資料").Range("A65536").End(xlUp).Row
  12.         Set ChtObj = Worksheets("主畫面").ChartObjects.Add(1, 1, 450, 250)
  13.         
  14.         With ChtObj.Chart
  15.             .SetSourceData Source:=Range("繪圖資料!$A$2:繪圖資料!$A$" & CStr(nRow) & ", 繪圖資料!$F$2:繪圖資料!$F$" & CStr(nRow))
  16.             .ChartType = xlXYScatterLinesNoMarkers
  17.             .HasTitle = True
  18.             .ChartTitle.Characters.Text = "K線與成交量圖"
  19.             
  20.             With .SeriesCollection(1)
  21.                 .Border.ColorIndex = 7
  22.                 .Name = "=繪圖資料!$F$1"
  23.             End With
  24.             
  25.             With .Axes(xlCategory)                               '  X座標軸 (時間軸)
  26.                 .CategoryType = xlCategoryScale
  27.                 .TickLabelSpacing = 3                            '  標示間距
  28.                 .TickLabels.NumberFormatLocal = "yyyy/m/d"
  29.                 .TickLabels.Font.ColorIndex = 5                  '  Blue Color
  30.             End With
  31.         End With
  32.     End With
  33. End Sub
複製代碼

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
16#
發表於 2013-6-10 00:04 | 只看該作者
回復 15# c_c_lai
非常非常感謝你，我還有一個小小問題，就是目前坐標軸沒問題了，可是日期軸的部分，
他對應的直槓(黑線間隔)，不像你的只有有日期才有出現，而是全部都出現有出現，請問有設定的屬性嗎?

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
17#
發表於 2013-6-10 06:39 | 只看該作者
回復 16# lin_6219
對應的直槓(黑線間隔)，不像你的只有有日期才有出現，而是全部都出現有出現？
不太明白你指的是？  能否描述清楚些？

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
18#
發表於 2013-6-10 22:37 | 只看該作者
回復 17# c_c_lai
不好意思，這麼晚才回你，
我所指的就是圖中黃色框起來的部分，你的圖是有日期的地方，向上才有黑槓，
但我的每個間距都有，是哪邊需要做設定嗎？感謝:))

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
19#
發表於 2013-6-11 12:22 | 只看該作者
回復 18# lin_6219
這我倒是沒去留意，為什麼會不同，
我也不清楚。乾脆附上程式碼讓你核對：
  1. Sub Test()
  2.     Dim nRow As Integer, ChtObj As ChartObject
  3.     Dim i As Integer, j As Integer, chartname As String
  4.     Dim myMax, myMin, GapNr As Integer
  5.    
  6.     On Error Resume Next
  7.   
  8.     With Worksheets("主畫面")
  9.         .ChartObjects.Delete
  10.         .Select
  11.         nRow = Worksheets("繪圖資料").Range("A65536").End(xlUp).Row
  12.         Set ChtObj = Worksheets("主畫面").ChartObjects.Add(1, 1, 450, 250)
  13.         
  14.         With ChtObj.Chart
  15.             '  .SetSourceData Source:=Range("繪圖資料!$A$2:繪圖資料!$A$20, 繪圖資料!$F$2:繪圖資料!$F$20")
  16.             .SetSourceData Source:=Range("繪圖資料!$A$2:繪圖資料!$A$" & CStr(nRow) & ", 繪圖資料!$F$2:繪圖資料!$F$" & CStr(nRow))
  17.             .ChartType = xlXYScatterLinesNoMarkers
  18.             .HasTitle = True
  19.             .ChartTitle.Characters.Text = "K線與成交量圖"
  20.             
  21.             With .SeriesCollection(1)
  22.                 .Border.ColorIndex = 7
  23.                 .Name = "=繪圖資料!$F$1"
  24.             End With
  25.             
  26.             With .Axes(xlCategory)                               '  X座標軸 (時間軸)
  27.                 ' .CategoryType = xlCategoryScale
  28.                 ' .TickLabelSpacing = 1                            '  標示間距
  29.                 .TickLabels.NumberFormatLocal = "yyyy/m/d"
  30.                 .TickLabels.Font.ColorIndex = 5                  '  Blue Color
  31.                 ' .TickLabels.Orientation = xlTickLabelOrientationUpward
  32.             End With
  33.         End With
  34.     End With
  35. End Sub
複製代碼

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
20#
發表於 2013-6-11 15:49 | 只看該作者
回復 19# c_c_lai
好的，非常感謝你喔，我核對看看然後試試，謝謝你:D

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
1234
返回列表 上一主題