[發問] DDE每分鐘記錄的資料排序問題

pcboy60

請問我使用附件的檔案，DEE每分鐘自動記錄的資料方式是時間舊->新，由上往下記錄。我想要反過來紀錄，就是最新一筆的資料記錄，保持在第一筆，每分鐘舊紀錄會往下移一列，時間新->舊。
例如：
15：53.....
15：52.....
15：51.....
15：50.....
15：49.....
15：48.....
15：47.....
以此類推.....
請問這樣程式碼要如何修改，感恩大大們~

下載 (16.48 KB)

2018-3-8 15:57

20120531a02(DDE每1分記錄).rar (27 KB)

下載次數: 37

2018-3-8 15:59

c_c_lai

回復 1# pcboy60

1.     Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value

複製代碼

修改為

1.     Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
2.     Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value

複製代碼

試試看。

pcboy60

回復 2# c_c_lai

c_c_lai大大，非常感謝您，我再試試看~

ABK

請教一下!  
我跑了一下這支VBA， 它只要每記錄一次資料 就會發出提示聲音一次 同時頁面也會往下跑，
要如何讓頁面不往下跑 和關閉提示的聲音?

ABK

是我記錄的資料比較多  修改一下控制頁面 的行數， 頁面就不會往下跳了!
  ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中

修改 -18 的值就可以了!

ABK

找到聲音的指令了!  在Beep 前面加 '       就關掉聲音了!
   ThisWorkbook.Save   '存檔
   'Beep

ABK

請教一下!
我想用pcboy大的程式 增加另一個時段 StartTime 14:59:50  /  EndTime 隔日 05:00:10， 也就是加入午後盤。 程式碼要如何改?

<pcboy大 的程式碼 如下>

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("Sheet1")
StartTime = "08:44:50"  '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "21:45:10"    '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "13:45:10"
End Sub

Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
    Sht1.[O8] = "已過收盤"
    uMode = 0
    Exit Sub
End If

jaway

回復  pcboy60 修改為試試看。
c_c_lai 發表於 2018-3-10 05:09

冒昧請教...若這個程式中的時間...

原本是1 分...要改30秒記錄一次?不知要如何修改

If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then

煩請指導,謝謝

f3202

回復 8# jaway


    If Second(Now) = 0 Or Second(Now) = 30 Then

jaway

回復 9# f3202


謝謝指導...

可否再冒昧請問網上高手...
Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value

程式中的欄位是到N8,若我想再多加一個欄位,是將N改O嗎,可是
執行狀態的字樣都一直在O8的位置?