請問如何使圖表上在0點上下的指標顏色分別以不同顏色標示？ - Excel程式區

peter460191

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

12^#

發表於 2012-5-10 10:47 | 只看該作者

回復 10# alexliou

Dear alexliou

可否將範例檔案上傳供下載研究。

peter460191

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

13^#

發表於 2012-5-10 22:00 | 只看該作者

回復 12# peter460191

Put_Call_Ratio.zip (85.48 KB)
法意部落格裡每日指標追蹤裡有一個Put_call Ratio
我嘗試用Excel VBA來製作它
Put_call ratio 如果大於1 則長條圖位於x軸上方,顯示為藍色,
Put_call ratio 如果小於1 則長條圖位於x軸下方, 顯示為紅色

Alex

f3202

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-12-24

14^#

發表於 2012-5-11 19:23 | 只看該作者

感謝 alexliou 分享程式
但我用excel2007執行到
.SeriesCollection(2).InvertColor = RGB(255, 124, 128)
這行就出現執行階段錯誤:438問題
請問怎解

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

15^#

發表於 2012-5-12 06:24 | 只看該作者

本帖最後由 alexliou 於 2012-5-12 06:28 編輯

回復 14# f3202
InvertColor是Series 物件在 Excel 2010版本中的新增屬性
Excel 2007無法使用

Alex

f3202

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-12-24

16^#

發表於 2012-5-12 19:26 | 只看該作者

回復 15# alexliou

謝謝 alexliou 版大指教
2007也可作出一般的圖
另外請教折線圖可否調整顏色大小
謝謝

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

17^#

發表於 2012-5-13 07:51 | 只看該作者

本帖最後由 alexliou 於 2012-5-13 09:07 編輯

回復 14# f3202
在程式中處理零軸上下顏色不同,是靠以下這兩行Code
.SeriesCollection(2).InvertIfNegative = True
.SeriesCollection(2).InvertColor = RGB(255, 124, 128)
其中InvertIfNegative屬性設為True, 會讓Excel以補色顯示對應於負數之資料點中的圖樣
InvertColor 則是去設定數列中負資料點的填滿色彩
雖然InvertColor 是Excel 2010的新功能
但 InvertIfNegative 在Excel 2010以前就有了
所以只要 Mark掉有InverColor那一行Code
程式仍可運作, 只是色彩無法讓User自行控制
所以負數的資料點都會呈現黑色 (美觀上遜色了點)

Alex

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

18^#

發表於 2012-5-13 09:06 | 只看該作者

本帖最後由 alexliou 於 2012-5-13 09:15 編輯

回復 16# f3202
折線圖並沒直接的辦法來設定不同的顏色
也就是說 InvertIfNegative 與折線圖合用時並不會發揮作用
(線段是連接兩點, InvertIfNegtative 是針對"點")

若要處理折線圖在不同的範圍(可以是X軸, 也可以是不同的Y值)顯示不同的顏色
一般解法是把一個資料數列根據範圍拆成不同的數列
每個序列賦予不同的顏色

PS. 以上說得很簡單但Implement起來會有新的問題發生
假設第一點的Y值是 10, 第二點的Y值是-5
你想要在0以上的線段和0以下的線段呈現不同的顏色
這樣必需人為插入一點0
如有興趣可以再討論

Alex

f3202

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-12-24

19^#

發表於 2012-5-14 09:31 | 只看該作者

回復 17# alexliou
謝謝 alexliou 版大教學
2007弄出來了
雖然美感上差些將就囉