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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-3-17 23:18 | 只看該作者

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

本帖最後由藍天麗池於 2016-3-17 23:24 編輯

除錯.rar (36.73 KB)
請問版上大大，我上傳的附件是一個價格變動就記錄的VBA，但是我在執行附件裡面的Macro1時，應該資料會刪掉，可是執行完後不但不會刪掉，還會馬上出現很多一樣的資料，請版上大大幫我看看這個語法有甚麼問題嗎??

我發現把旁邊的公式刪掉就正常了，這是什麼原因??可以修改成價格變動就紀錄且同時保有旁邊的公式嗎??

DDE如果沒有可以用隨便的數字下去測試

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2842
主題: 10
精華: 0
積分: 2898
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-4-28

2^#

發表於 2016-3-18 09:54 | 只看該作者

http://forum.twbts.com/viewthread.php?tid=15062&highlight=

用 Worksheet_Calculate 事件！
是可以，但考慮層面較多，例如會產生〔連鎖觸動〕，要不是同一筆內容記錄成很多筆，
不然整個檔案就掛掉，您必須去控制事件發生的時機，在下載附檔中有個例子，可參考！

TOP

藍天麗池

中學生 Rank: 2

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

3^#

發表於 2016-3-18 22:42 | 只看該作者

回復 2# 准提部林

大大謝謝你的好意，但我不會寫，只會簡單的修改，沒有範例就沒辦法了，不過還是謝謝你

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2016-3-21 13:04 | 只看該作者

回復 1# 藍天麗池
改用 Change 試試看！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then Call RecordPrice
End Sub

複製代碼

TOP

藍天麗池

中學生 Rank: 2

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

5^#

發表於 2016-3-21 22:17 | 只看該作者

回復 4# c_c_lai
好，謝謝C大

TOP

藍天麗池

中學生 Rank: 2

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

6^#

發表於 2016-3-21 23:00 | 只看該作者

回復 4# c_c_lai

C大請教一下這段程式碼要加在哪裡??

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

7^#

發表於 2016-3-22 06:48 | 只看該作者

本帖最後由 c_c_lai 於 2016-3-22 06:53 編輯

回復 6# 藍天麗池
取代你原先 Sheets("RTD") 裡的 Worksheet_Calculate()。
又，你目前 "模組1" RecordPrice 裡的 For ~ Next 運算式可以
用下列方式取代，以節省處裡時間：

' For I = 1 To 3
' Cells(WR, I) = Cells(2, I)
' Next I
Cells(WR, 1).Resize(, 3) = [A2:C2].Value

複製代碼

TOP

藍天麗池

中學生 Rank: 2

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

8^#

發表於 2016-3-22 08:26 | 只看該作者

本帖最後由藍天麗池於 2016-3-22 08:32 編輯

回復 7# c_c_lai

1. C大我不太懂，為什麼多了Cells(WR, 1).Resize(, 3) = [A2:C2].Value這一行程式碼執行數度會加快??

2.另外再請教你一個問題，如果目前是將A2-C2的資料往下寫，改成把資料放在C2-E2然後往下寫要怎麼改程式碼??
就是將圖一改成圖二，上圖不是改好的，是我用拉的

3.以下是J大寫的，請教C大用Excel.Application.EnableEvents 跟你的用change哪種比較快??
Excel.Application.EnableEvents = 0
WR = Range("A1").End(xlDown).Row + 1
'ActiveWindow.ScrollRow = WR - 5 '只顯示最新幾筆資料
If (WR = 3) Or _
(Range("B" & WR - 1) <> Range("B2")) Then '總量有異動時才記錄
For I = 1 To 3
Cells(WR, I) = Cells(2, I)
Next
End If
Excel.Application.EnableEvents = 1

TOP

c_c_lai