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

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

72^#

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

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

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

藍天麗池

中學生 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

75^#

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

回復 63# GBKEE

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

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兔年全勤獎章

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

c_c_lai

博士班 Rank: 6 Rank: 6

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

77^#

發表於 2016-4-10 06:04 | 只看該作者

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

78^#

發表於 2016-4-10 06:47 | 只看該作者

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

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

複製代碼

以及

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

複製代碼

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

TOP

藍天麗池