返回列表 上一主題 發帖

[發問] 關於工作表的calculate事件

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-6-13 20:26 | 只看該作者

[發問] 關於工作表的calculate事件

各位大大，不好意思，我這邊有個問題想懇求會的給我指點迷津，
一般來講，工作表的calculate要先在那個工作表的程式碼視窗寫上事件，
然後當公式數值改變時，就會觸發calculate事件，

若我現在要在n個（也就是不確定的工作表數），
在每個裡面都寫上一樣的calculate事件，
有辦法用一般模組或者VBA的其他功能、變數那些等等，
使他自動填入嗎？

麻煩各位了
還是這個是沒辦法用程式寫的，謝謝
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-6-13 20:47 | 只看該作者
回復 1# lin_6219
改成寫在ThisWorkbook中的SheetCalculate事件看看。

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
3#
發表於 2013-6-13 20:50 | 只看該作者
回復 2# stillfish00
好， 我先試看看 感謝你:)))

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
4#
發表於 2013-6-13 21:54 | 只看該作者
回復 2# stillfish00
我可能把我的意思表達錯了，
應該這樣講，我要執行的calculate，是要觸發它去畫動態的圖表，
但是每個工作表的資料不同，如果用SheetCalculate這個方法，
會讓任何一張工作表的公式值改變，就去觸發這個事件，
這樣會不會太耗效能，有沒有其他方法，抱歉喔，
我表達不太好，但這個問題我真的想不透。感謝

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2013-6-14 13:33 | 只看該作者
回復 4# lin_6219
該事件有帶參數Sh，說明是哪個工作表觸發的，
用他判斷是不是你指定的工作表觸發的應該就可以了，如下。
然後我不曉得你的動態圖表是如何達成？ 一般好像都是用定義名稱去控制吧。
  1. Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  2.     Select Case Sh.Name
  3.     Case "工作表11", "工作表12"
  4.         MsgBox "畫動態的圖表??"
  5.     Case Else
  6.         MsgBox "什麼都不做"
  7.     End Select
  8. End Sub
複製代碼

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
6#
發表於 2013-6-14 18:11 | 只看該作者
回復 5# stillfish00
恩恩，好的，我先試看看，非常感謝你的解釋，謝謝。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2013-6-15 07:52 | 只看該作者
本帖最後由 c_c_lai 於 2013-6-15 07:54 編輯

回復 1# lin_6219
看了你數日的討論成果，還是給你個提示吧，要加油呦！
思考問題要多方的驗證及觀察，以期能切入到真正的問題核心。
觸發執行畫動態的圖表：
  1. Option Explicit

  3. Dim timerEnabled As Boolean        '   判定開啟本工作表單的時段是否為開盤前啟動。
  4. Private Sub Workbook_Open()
  5.     KChartWithVolume                        '   以你自己的 K 圖做為例證
  6.     '   每逢星期六、日 除外， 自動啟動計時器
  7.     If Weekday(Date, 2) <= 5 Then Call timerStart
  8. End Sub

  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  11.     On Error Resume Next
  12.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.inProcess", , False
  13.     Me.Save
  14. End Sub

  16. Sub timerStart()
  17.     If timerEnabled Then
  18.         ' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。 (本例以每五分鐘執行一次)
  19.         Application.OnTime (Now + TimeValue("00:05:00")), "ThisWorkbook.inProcess"
  20.     Else
  21.         timerEnabled = True
  22.         
  23.         If (TimeValue(Now) <= TimeValue("08:45:00")) Then
  24.             Application.OnTime (TimeValue("08:45:00")), "ThisWorkbook.inProcess"
  25.         Else
  26.             ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
  27.             ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  28.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.inProcess"
  29.         End If
  30.     End If
  31. End Sub

  33. Private Sub inProcess()
  34.     On Error Resume Next
  35.     If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:46:01")) Then Exit Sub
  36.    
  37.     ' 盤中處理，將資料匯入寫入工作表單內儲存。

  39.     With Sheets("主畫面")
  40.         ' . . . . .
  41.         ' . . . . . (寫入DDE匯入之相關資料))
  42.         ' . . . . .
  43.     End With
  44.         
  45.     Call getKLastMove()     '  觸發執行畫動態的圖表
  46.     Call timerStart
  47. End Sub

  49. Sub getKLastMove()
  50.     Dim totalRows As Long
  51.    
  52.     With Worksheets("主畫面")
  53.         .Select
  54.         totalRows = Worksheets("繪圖資料").Range("A" & .Rows.Count).End(xlUp).Row
  55.         ActiveSheet.ChartObjects.Select
  56.         With ActiveChart
  57.             .SetSourceData Source:=Range("繪圖資料!$A$2:繪圖資料!$E$" & CStr(totalRows) & ", 繪圖資料!$G$2:繪圖資料!$G$" & CStr(totalRows) &  _
  58.                                          ", 繪圖資料!$F$2:繪圖資料!$F$" & CStr(totalRows))
  59.             .SeriesCollection(1).Name = "=繪圖資料!$B$1"           ' 開盤價
  60.             .SeriesCollection(2).Name = "=繪圖資料!$C$1"           ' 最高價
  61.             .SeriesCollection(3).Name = "=繪圖資料!$D$1"           ' 最低價
  62.             .SeriesCollection(4).Name = "=繪圖資料!$E$1"           ' 收盤價 (成交價)
  63.             .SeriesCollection(5).Name = "=繪圖資料!$G$1"           ' 移動平均線
  64.             .SeriesCollection(5).Name = "成交量"                   ' 成交金額
  65.         End With
  66.     End With
  67. End Sub

  69. Sub KChartWithVolume()                         '  K線圖與成交量圖放在同一圖表
  70.     ' . . . . .
  71.     ' . . . . .  (K線圖與成交量圖)
  72.     ' . . . . .
  73. End Sub
複製代碼
多跟學校教授及同學們相互請益。

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
8#
發表於 2013-6-15 15:23 | 只看該作者
回復 7# c_c_lai
恩恩，真的很感謝你喔，我目前學VBA才六七個月吧，
只對基礎概念略知，但還不是非常明白，
目前我的這個問題算是解決了，
但再呼叫圖表上還有很大的問題，
我先再好好思考研究，非常感謝你的分享，我會努力的。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2013-6-15 17:40 | 只看該作者
回復 8# lin_6219
首先要先去瞭解及熟悉 F8 (Debug) 的應用，
透過 F8 你再去追蹤 Local Variables 值的變化，
以及利用 "監看式" 視窗 "運算式" 觀察目前之
Runtime Values， 如此你可以從中去體會程式
完整執行過程、以及問題發生錯誤的原因。

TOP

lin_6219

帖子
20 
主題
2 
精華
0 
積分
36 
點名
0  
作業系統
win7 
軟體版本
windows2007 
閱讀權限
10 
註冊時間
2013-6-4 
最後登錄
2013-7-28 
10#
發表於 2013-6-15 18:22 | 只看該作者
回復 9# c_c_lai
恩恩， 好的 感謝你:)))

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題