GBKEE

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

Ex.zip (6.7 KB)

下載次數: 4

2016-4-9 19:03

   還是不行...

c_c_lai

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

藍天麗池

回復 67# c_c_lai


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

藍天麗池

回復 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

藍天麗池

回復 63# GBKEE

下載 (78.45 KB)

2016-4-9 22:47

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

GBKEE

回復 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  去判斷總量有變動,則記錄下來.

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

c_c_lai

回復 73# 藍天麗池
在第三列 (含) 以下皆為空白，於任何總量之第二攔
不做任何修改按下 ENTER，你會看到第三欄自動將
第二攔的值複製 (未經修正時)。

c_c_lai

回復 76# GBKEE
我有留意到 "名稱定義" 的定義，

1.   : First_Aaddres : "$D$2"                               : String
   
2.   : xRng_Name     : "TotalVolume2330"                    : String
   
3.   : xRng          : "XQTISC|Quote!'2330.TW-TotalVolume'" : Range/Range
   
4.   .Names.Add xRng_Name, xRng       '  名稱定義: 所有總量的 DDE 公式的儲存格

複製代碼

以及

1.   With Cells(Rows.Count, Range(E.Name).Column).End(xlUp)
   
2.   '  總量名稱所在的最底列往上到有資料的儲存格
   
3.       If .Row = 2 Or .Row > 2 And .Value <> Range(E.Name).Value Then       '  (各股總量有變動)
   
4.       '  最底列往上有資料的儲存格 <> 總量的值
   
5.           .Offset(1).Cells(1, -2).Resize(, 4) = Range(E.Name).Cells(, -2).Resize(, 4).Value
   
6.       End If
   
7.   End With

複製代碼

的作業處裡。
Good Idea!
謝謝囉！

藍天麗池

回復 76# GBKEE

可是我只有手動變更台積電的總量，為什麼其他的也會往下寫??
不是應該只又台積電會往下寫嗎??

藍天麗池

回復 77# c_c_lai


    C大，早阿，這麼早就起床動腦筋，辛苦了
74#在麻煩你修改一下，我等等來測試