vackbin

帖子: 46
主題: 10
精華: 0
積分: 77
點名: 0
作業系統: Win11
軟體版本: Office2013
閱讀權限: 0
性別: 男
註冊時間: 2010-10-13
最後登錄: 2024-3-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-3-6 00:56 | 只看該作者

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

本帖最後由 vackbin 於 2011-3-7 23:21 編輯

各位大大好~~~

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

Book2.rar (122.6 KB)

樓主熱帖

Jack

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-3-6 10:58 | 只看該作者

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

TOP

vackbin

等待驗證會員

帖子: 46
主題: 10
精華: 0
積分: 77
點名: 0
作業系統: Win11
軟體版本: Office2013
閱讀權限: 0
性別: 男
註冊時間: 2010-10-13
最後登錄: 2024-3-26

3^#

發表於 2011-3-7 00:42 | 只看該作者

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

Book3.rar (15.07 KB)

Jack

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-3-7 08:51 | 只看該作者

為何要把0改為5？
見附件

Book3.rar (16.13 KB)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2011-3-7 08:54 | 只看該作者

沒注意你還不能下載

Sub Macro1()
Dim c As Range, x%, y%
[b2:b3] = [b2:b3].Value
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 - 1
Next
If x = 0 Then x = 8
If y = 0 Then y = [a65536].End(3).Row
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