返回列表 上一主題 發帖

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

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

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

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

回復 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
複製代碼
試試看。

TOP

回復 2# c_c_lai

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

TOP

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

TOP

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

修改 -18 的值就可以了!

TOP

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

TOP

請教一下!
我想用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

TOP

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


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

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

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

煩請指導,謝謝

TOP

回復 8# jaway


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

TOP

回復 9# f3202


謝謝指導...

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

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

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題