返回列表 上一主題 發帖

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

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

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
7#
發表於 2011-3-9 21:59 | 只看該作者
本帖最後由 FAlonso 於 2011-3-12 11:09 編輯

仔細研究這個例子
80 字節以內
不支持自定義 Discuz! 代碼

TOP

vackbin

帖子
46 
主題
10 
精華
0 
積分
77 
點名
0  
作業系統
Win11 
軟體版本
Office2013 
閱讀權限
0 
性別
男 
註冊時間
2010-10-13 
最後登錄
2024-3-26 
6#
發表於 2011-3-7 23:20 | 只看該作者
感謝凸大熱心的回覆~~+1
測試後沒錯就是那道光阿(瞇眼點頭狀)~~~太謝謝大大了
Jack

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
5#
發表於 2011-3-7 08:54 | 只看該作者
沒注意你還不能下載
  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
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 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

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: 8Rank: 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

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題