1 ...567891011121314
返回列表 上一主題 發帖

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

GBKEE

帖子
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

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
75#
發表於 2016-4-9 22:47 | 只看該作者
回復 63# GBKEE



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

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
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

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
73#
發表於 2016-4-9 22:22 | 只看該作者
本帖最後由 藍天麗池 於 2016-4-9 22:24 編輯

回復 67# c_c_lai


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

TOP

c_c_lai

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
67#
發表於 2016-4-9 13:55 | 只看該作者
回復 60# 藍天麗池
我覺得當 WR 等於 3 時，應加入判斷，否則在後續處裡會有瑕玼：
  1.     If WR = 3 Or Range(Left(TG, Len(TG) - 1) & WR - 1) <> Range(TG) Then
  2.         Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  設定儲存格格式 (時間)
  3.         
  4.         Range(Left(TG, Len(TG) - 1) & WR) = Range(TG)                            '  可處裡到 AA 以後的欄位 (總量)
  5.         Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1)  '  可處裡到 AA 以後的欄位 (成交)
  6.         Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3) = Range(TG).Offset(, -3)  '  寫入異價時間 (時間)
  7.     End If
複製代碼

TOP

        靜思自在 : 甘願做、歡喜受。
1 ...567891011121314
返回列表 上一主題