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

藍天麗池

除錯.rar (36.73 KB)

下載次數: 16

2016-3-17 23:15

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

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


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

藍天麗池

回復 2# 准提部林


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

藍天麗池

回復 4# c_c_lai
好，謝謝C大

藍天麗池

回復 4# c_c_lai

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

藍天麗池

回復 7# c_c_lai

下載 (70.28 KB)

2016-3-22 08:26

下載 (70.88 KB)

2016-3-22 08:26

  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

藍天麗池

回復 9# c_c_lai


    C大我會錯意了，剛剛沒看到你前面有 '，把程式mark掉所以我才覺得奇怪，看到後就沒問題了

藍天麗池

回復 11# c_c_lai

股票.rar (18.4 KB)

下載次數: 4

2016-4-7 22:41

下載 (109.35 KB)

2016-4-7 22:43

C大再請教你一下，我之前的程式碼是設定為某一個值變動就紀錄，那想請教一下C大如果我的變動值變多個的化程式碼要如何更改??

例:如圖所示，如果C2變動就往下紀錄B2-C2，但是其他不紀錄，下個時間C2沒變動換E2變動，則記錄D2-E2，一樣其他不紀錄，以此類推，我的變動值原本只有設定If (WR = 3) Or _  (Range("C" & WR - 1) <> Range("C2")) Then '總量有異動時才記錄，我現在要設定多個，所有量的部分都設定為變動就紀錄，要如何更改程式碼呢??

藍天麗池

回復 13# c_c_lai

C大，因為每支股票的成交時間不太一樣，所以要分開寫入，不然計算上會有重疊

假設台積電9:01分有成交，其他沒成交，如果全部往下寫入，其他的沒成交也會寫入，這樣造成每支股票的成交量在計算上會重複，而且如果分開寫入資料量也互比較少不是嗎??

藍天麗池

回復 15# c_c_lai


    C大，沒錯，但是可以讓中間的空格不見，也就是說資料是連續的，以台積電來說上圖示出現在B10-C11，讓資料連續，出現在B8-C9，這樣可以嗎??

藍天麗池

回復 17# c_c_lai
股票-1.rar (18.51 KB)

下載次數: 1

2016-4-8 10:33

我是打算之後多一欄來寫入時間，讓每個時間都分開，C大怎麼看??