如何在股價圖下方應用 VBA 增列一拉霸？ - Excel程式區

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

12^#

發表於 2012-5-15 19:42 | 只看該作者

本帖最後由 alexliou 於 2012-5-15 20:38 編輯

回復 10# c_c_lai
1.用VBA code 產生的表單控制項它的名稱是由Excel 決定的 (ex. "卷軸 7")
為了掌控這個控制項, 你最好是幫它重新命名
這可利用 .Name 屬性來達成
(ex.  .Name = "MyScrollBar1")

2. 設定此一控制項的Event Handler
這可利用 .OnAction 屬性來達成
(ex.  .OnAction =  "MySrollBar1_Change"

3. 撰寫 MyScrollBar1_Change 程序的程式碼

4. 第一步可省略, 但做了會使一致性(控制項的名稱和它的Event Handler 名稱)提高
你可把 .Name = "MyScrollBar1" 那行 Mark掉
程式可以運作
只不過 "捲軸 x"的事件處理器是 MyScrollBar1_Change
兩者名稱不一致

5. ScrollBar 有兩種  可以是表單控制項或是Active X 控制項
樓上GBKEE大大有Demo
兩者用VBA Code建立與處理方法不同
你用的是表單控制項

拉霸事件產生器2.zip (11.89 KB)

Alex

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2012-5-15 22:04 | 只看該作者

回復 11# GBKEE
回復 12# alexliou
謝謝兩位的幫忙，這兩天我上了國外網站收尋資料，找到了一篇還不錯，如下：

Sheet1.ScrollBars.Add(624763.5, 4271616, 5095730.25, 189166.5).Select
With Selection
.Value = 60
.Min = SMin
.Max = SMax
.SmallChange = 1
.LargeChange = 1
.LinkedCell = "Sheet1!$O$5"
.Display3DShading = True
With .ShapeRange
.Left = 0
.Width = 680.32
.Top = 0
.Height = 15
End With
.OnAction = "ScrollBarChange"
End With

複製代碼

但是我卻鑽進了死胡同 .OnAction = "ScrollBarChange" 老是告訴我無法使用此巨集，
百思不解之下才來求援，結果是 Alex兄叫我使用 .OnAction = "工作表1.ScrollBarChange" ，
便迎刃而解了。就差別在必須加上 "工作表1."字樣才能正常運作。謝謝您們！
另外再請教，在 ThisWorkbook 上頭已經宣告了 Public 型態，理論上它應屬於 Global，
為何在"工作表1"內卻無法取得該等變數內容值呢？

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

14^#

發表於 2012-5-16 02:17 | 只看該作者

本帖最後由 alexliou 於 2012-5-16 03:09 編輯

回復 13# c_c_lai
那些附屬在物件(如ThisWorkBook, 工作表1, .......)下的變數或程序
即使宣告為Public , 要去存取或呼叫, 需透過物件的階層
如Thisworkbook.VariableA, 工作表1.ScrollBarChange,.....

但在模組(Module)中宣告的變數或程序
如宣告為Public, 即使是在Module外取用或呼叫
也不用加上模組的名稱

像你前述的問題
如果把ScrollBarChange 程序放在模組表1中
並把它宣告為Public (這裡不宣告也行此情形是特例)
那你使用 .OnAction = "ScrollBarChange" 也會work

工作表上的控制項的Event Handler 通常會放在附屬於工作表的程序裡
因為同一類別的控制項可能會在不同的工作表中出現
如果能確保每個控制項稱都不同名
Event Handlers全都放在模組表裡亦可

Alex

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

15^#

發表於 2012-5-16 07:34 | 只看該作者

回復 14# alexliou
我會再實地演練多次以瞭解它們佊此間互動關聯的，謝謝您！
依您所言，您所有資料都直接由DDE匯入到Acess，那線上您只看券商的圖表，
Excel 上的統計圖表只是來當作歷史資料參考依據了，或是兩者皆儲存，同步參考？

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

16^#

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

回復 15# c_c_lai
我的Access 資料庫中所存的都是歷史資料
資料源並非券商的DDE

但在需要即時交易資料的狀況下
券商的DDE資料源則是個不錯的選擇
至少跟其他一般免費的資料源(如交易所的網頁）
它的穩定性和即時性（更新頻率）都較佳

Alex

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

17^#

發表於 2012-5-20 13:30 | 只看該作者

本帖最後由 c_c_lai 於 2012-5-21 10:15 編輯

回復 16# alexliou
目前我的 ScrollBar 是由VBA動態產生的，亦即當進入(啟動) Excel表單，該系統即自動產生一ScrollBar，
Sheets("統計圖表").ScrollBars.Add(Cells(20, 1).Left, Cells(20, 1).Top, 879, Rows(1).Height).Select
當離開Excel時，又自動將它刪除掉。
我的提問是：
我想能將該動態產生的ScrollBar加上背景或者是前景顏色，如此比較顯著，否者使用者會看不清ScrollBar在哪裡，
因為VBA產生的ScrollBar的顏色是Default值，不知道可不可以這麼做？又，
.InvertIfNegative = True
.InvertColor = RGB(255, 124, 128)
只能應用在柱狀圖，我在想如果是 xlLine 型態時，當表列數值為負值時，有否將其顯示之顏色更變成橘紅色，
正值時則選擇其它顏色，不知能否突破？
謝謝指導！

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

18^#

發表於 2012-5-22 19:34 | 只看該作者

本帖最後由 alexliou 於 2012-5-22 19:39 編輯

回復 17# c_c_lai
先回答你有關於ScrollBar 顏色的問題

1. 前面說過  工作表可使用的控制項可分兩種:
表單控制項和ActiveX控制項
在不使用VBA來自動建立ScrollBar控制項的狀況下
也就是在工作表環境中  我們選擇[開發人員] > [插入]時
就可以發現 EXCEL提供兩種選擇 : 表單控制項和ActiveX控制項
而且表單控制項的屬性較少
ActiveX控制項的屬性選擇較多 (當Mouse 在ActiveX控制項上時按右鍵, 你會發現多了一個[內容]標籤)
這兩種控制項在用VBA 建立時及操作時
使用的Code也不一樣
附件中用VBA code 建立了兩種不同的ScrollBar控制項敬請參考

拉霸事件產生器3.zip (28.09 KB)
2. 表單控制項的ScrollBar 並無BackColor 和 ForeColor等屬性
所以無法改變它的顏色
如果你要讓ScrollBar 有顏色
就只能使用ActiveX控制項ScrollBar了
它的BackColor屬性可以調整Bar的顏色
它的ForeClor屬性可以調整Bar兩端箭頭的顏色

3. 當你用VBA Code自動建立ActiveX控制項時
會遇到一個麻煩是它不支援中斷模式
會讓你偵錯很不方便
(但我還是比較喜歡用ActiveX控制項)

4. ActiveX控制項的名稱還有一些Tricky的地方
(你可以在VBA 的 IDE下利用Help查ActiveX控制項)
所以盡量在設計階段時建置
而不要在程式執行階段利用VBA Code建置它

Alex

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

19^#

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

本帖最後由 alexliou 於 2012-5-22 21:34 編輯

回復 17# c_c_lai

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

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

PS. 以上說得很簡單但Implement起來會有新的問題發生
假設第一點的Y值是 10, 第二點的Y值是-5
你想要在0以上的線段和0以下的線段呈現不同的顏色
這樣就得人工插入一個點0 (分界點又會形成一個資料數列)
你可以朝這個方向去思考
這是一個不算小的工程

Alex

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

20^#

發表於 2012-5-22 23:01 | 只看該作者

回復 18# alexliou
Alex兄，
謝謝您，我試著在程式執行階段利用VBA Code建置它，它不僅充滿著 Tricky, 而且還 Difficult to manage,
所以我還是做個乖寶寶使用原本的 ScrollBar 比較親和性也不會作怪，雖然沒有 BackColor & ForeColor。
Anyway 還是要向您說聲謝謝囉！