123
返回列表 上一主題 發帖

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

pcboy60

帖子
3 
主題
1 
精華
0 
積分
54 
點名
186  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
註冊時間
2018-1-4 
最後登錄
2024-11-4 

2023年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-3-8 16:15 | 只看該作者

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

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

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2018-3-10 05:09 | 只看該作者
回復 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

pcboy60

帖子
3 
主題
1 
精華
0 
積分
54 
點名
186  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
註冊時間
2018-1-4 
最後登錄
2024-11-4 

2023年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
3#
發表於 2018-3-12 09:28 | 只看該作者
回復 2# c_c_lai

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

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
4#
發表於 2018-4-9 10:08 | 只看該作者
請教一下!  
我跑了一下這支VBA， 它只要每記錄一次資料 就會發出提示聲音一次 同時頁面也會往下跑，
要如何讓頁面不往下跑 和關閉提示的聲音?

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
5#
發表於 2018-4-9 10:59 | 只看該作者
是我記錄的資料比較多  修改一下控制頁面 的行數， 頁面就不會往下跳了!
  ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中

修改 -18 的值就可以了!

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
6#
發表於 2018-4-9 17:39 | 只看該作者
找到聲音的指令了!  在Beep 前面加 '       就關掉聲音了!
   ThisWorkbook.Save   '存檔
   'Beep

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
7#
發表於 2018-4-18 13:48 | 只看該作者
請教一下!
我想用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

jaway

帖子
10 
主題
2 
精華
0 
積分
11 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
10 
註冊時間
2018-6-9 
最後登錄
2019-12-10 
8#
發表於 2018-6-17 05:15 | 只看該作者
回復  pcboy60 修改為試試看。
c_c_lai 發表於 2018-3-10 05:09


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

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

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

煩請指導,謝謝

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-11-5 
9#
發表於 2018-6-17 10:33 | 只看該作者
回復 8# jaway


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

TOP

jaway

帖子
10 
主題
2 
精華
0 
積分
11 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
10 
註冊時間
2018-6-9 
最後登錄
2019-12-10 
10#
發表於 2018-6-17 13:55 | 只看該作者
回復 9# f3202


謝謝指導...

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

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

TOP

        靜思自在 : 人要知福、惜福、再造福。
123
返回列表 上一主題