[分享] 要如何依我所選擇的起始時間&來源總類來套到圖表中呢?(已解決)

vackbin

各位大大好~~~

小弟想做一個圖表,可選擇起始日期&來源總類後下方折線圖便畫出該區段的圖形 ....
但是試了許久能無法做出....煩請大大們幫幫忙阿~~:Q

下載 (156 KB)

2011-3-6 00:54

Book2.rar (122.6 KB)

下載次數: 13

2011-3-6 00:55

oobird

Sub Macro1()
For Each c In Range([a8], [a8].End(4))
If c >= [b2] And x = 0 Then x = c.Row
If c >= [b3] And y = 0 Then y = c.Row
Next
    ActiveSheet.ChartObjects(1).Select
'   Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("線圖").Range("A" & x & ":B" & y), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="線圖"
    ActiveChart.HasDataTable = False
End Sub

vackbin

感謝凸大熱心的回覆~~
但小弟測試後發現資料來源會選取錯誤範圍??是我哪裡寫錯了嗎??(附上檔案)
也無法依選擇來源總類調整資料來源~~詳如圖示
請大大再幫幫手啊.....

Book3.rar (15.07 KB)

下載次數: 9

2011-3-7 00:42

下載 (105.75 KB)

2011-3-7 00:40

oobird

為何要把0改為5？
見附件
Book3.rar (16.13 KB)

下載次數: 18

2011-3-7 08:51

oobird

沒注意你還不能下載

1. Sub Macro1()
   
2. Dim c As Range, x%, y%
   
3. [b2:b3] = [b2:b3].Value
   
4. For Each c In Range([a8], [a8].End(4))
   
5. If c >= [b2] And x = 0 Then x = c.Row
   
6. If c > [b3] And y = 0 Then y = c.Row - 1
   
7. Next
   
8. If x = 0 Then x = 8
   
9. If y = 0 Then y = [a65536].End(3).Row
   
10. ActiveSheet.ChartObjects(1).Select
    
11. '   Charts.Add
    
12.     ActiveChart.ChartType = xlLineMarkers
    
13.     ActiveChart.SetSourceData Source:=Sheets("線圖").Range("A" & x & ":B" & y), PlotBy:=xlColumns
    
14.     ActiveChart.Location Where:=xlLocationAsObject, Name:="線圖"
    
15.     ActiveChart.HasDataTable = False
    
16. End Sub

複製代碼

vackbin

感謝凸大熱心的回覆~~+1
測試後沒錯就是那道光阿(瞇眼點頭狀)~~~太謝謝大大了

FAlonso

仔細研究這個例子