價格紀錄的語法有寫錯嗎??

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

76^# 跳轉到 »

發表於 2016-4-10 05:32 | 只看該作者

回復 72# c_c_lai
Worksheet_Calculate() 是無法判斷哪個儲存格觸發的.
39 帖的Private Sub Workbook_Open()
中有.Names.Add xRng_Name, xRng  ''名稱定義:所有總量的Dee公式的儲存格
當Worksheet_Calculate重算事件執行時
  For Each E In Me.Names 去判斷總量有變動,則記錄下來.

回復 75# 藍天麗池
這測試是正確的,沒營業DEE不會變動,總量的下方列位測試給值,假裝總量有變動

當Worksheet_Calculate重算事件執行時
  For Each E In Me.Names  去判斷總量有變動,則記錄下來.

星期一營業前打開檔案試試看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

75^#

發表於 2016-4-9 22:47 | 只看該作者

回復 63# GBKEE

G大大你的程式執行起來有點怪，我截圖你看看，這是執行一次的結果

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

74^#

發表於 2016-4-9 22:43 | 只看該作者

回復 65# c_c_lai

C大，可以幫我把時間拿掉嗎??時間的部分我已經想好要怎麼弄了，目前A欄時間不往下複製，B2-E2為一組往下複製，F2-I2一組依此類推，不是A2-D2為一組喔，可能誤會了，時間部份可以都拿掉，只留以下的部分，感謝，我的E2、I2、M2...為時間的輔助欄所以時間部份就不用了

Sub 時間()
[A2] = WorksheetFunction.Text(Now(), "hh:mm:ss")
Application.OnTime Now() + TimeValue("00:00：01"), "時間"
End Sub

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

73^#

發表於 2016-4-9 22:22 | 只看該作者

本帖最後由藍天麗池於 2016-4-9 22:24 編輯

回復 67# c_c_lai

所以C大加入WR 等於 3 (#67)是最新的版本嗎??
如果不加入又會有什麼問題??

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

72^#

發表於 2016-4-9 20:03 | 只看該作者

回復 71# GBKEE
如果只用 Worksheet_Calculate() 的話，
那要如何判斷是哪個欄位觸發呢？
譬如需判斷 B1 、D1、F1、H1、J1 等欄位之
內容值有否異動，如此才能針對該欄位做相對應之處理？
謝謝！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

71^#

發表於 2016-4-9 19:03 | 只看該作者

本帖最後由 GBKEE 於 2016-4-9 19:05 編輯

回復 70# c_c_lai
即第三列每欄內容為 A3 (=A2)， B3 (=B2)， C3 (=C2)，. . . . .如此便能觸發事件了。

Ex.zip (6.7 KB) 還是不行...

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

70^#

發表於 2016-4-9 15:42 | 只看該作者

回復 68# GBKEE
假設 DDE 的匯入值異動不會觸發 _Change() 的話：
為了要解決此案例，我會增加第三列作為觸動列，
即第三列每欄內容為 A3 (=A2)， B3 (=B2)， C3 (=C2)，. . . . .
如此便能觸發事件了。
寫入之資料則改從第四列開始判斷寫入。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

69^#

發表於 2016-4-9 15:31 | 只看該作者

回復 68# GBKEE
我從未使用過 Private Sub Worksheet_Calculate()
它是怎麼運作？
DDE 匯入值變動時不會觸發 Worksheet_Change 嗎？
我是沒實際觀測過，因為平常我也不太使用它。之前
我比較偏向應用軟體分析與運作方面，謝謝您告知！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

68^#

發表於 2016-4-9 14:09 | 只看該作者

回復 67# c_c_lai
DEE公式值的變動,儲存格內公式參照其他工作表,計算後值的改變.
不會觸發 Private Sub Worksheet_Change(ByVal Target As Range)事件程式

回復 64# 藍天麗池
手動是改成交量,需是 (DEE公式或儲存格內公式 ) 值的改變
1 請複製39帖的 Private Sub Workbook_Open() 到ThisWorkbook模組後執行一次
2 請複製39帖的Private Sub Worksheet_Calculate() 到Sheets("RTD") 模組
3請在 Sheets("RTD")上有DEE總量公式的 D2,H2,,, 輸入公式=工作表2!A1
4請在工作表2!A1輸入>0的任意數值
5看看 Sheets("RTD")的變動

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

67^#

發表於 2016-4-9 13:55 | 只看該作者

回復 60# 藍天麗池
我覺得當 WR 等於 3 時，應加入判斷，否則在後續處裡會有瑕玼：

If WR = 3 Or Range(Left(TG, Len(TG) - 1) & WR - 1) <> Range(TG) Then
Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3).NumberFormatLocal = "hh:mm:ss" ' 設定儲存格格式 (時間)
Range(Left(TG, Len(TG) - 1) & WR) = Range(TG) ' 可處裡到 AA 以後的欄位 (總量)
Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1) ' 可處裡到 AA 以後的欄位 (成交)
Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3) = Range(TG).Offset(, -3) ' 寫入異價時間 (時間)
End If

複製代碼

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]