麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] DDE每分鐘記錄的資料排序問題 [打印本頁]

作者: pcboy60 時間: 2018-3-8 16:15 標題: DDE每分鐘記錄的資料排序問題

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

作者: c_c_lai 時間: 2018-3-10 05:09

回復 1# pcboy60

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

複製代碼

修改為

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

複製代碼

試試看。

作者: pcboy60 時間: 2018-3-12 09:28

回復 2# c_c_lai

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

作者: ABK 時間: 2018-4-9 10:08

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

作者: ABK 時間: 2018-4-9 10:59

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

修改 -18 的值就可以了!

作者: ABK 時間: 2018-4-9 17:39

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

作者: ABK 時間: 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

作者: jaway 時間: 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

煩請指導,謝謝

作者: f3202 時間: 2018-6-17 10:33

回復 8# jaway

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

作者: jaway 時間: 2018-6-17 13:55

回復 9# f3202

謝謝指導...

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

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

作者: jaway 時間: 2018-6-17 14:01

回復 f3202

謝謝指導...

可否再冒昧請問網上高手...
Sht1.Range("A" & xRow & ":N" & xRow).Val ...
jaway 發表於 2018-6-17 13:55

已自行發現問題...謝謝各位高手!

作者: c_c_lai 時間: 2018-6-18 08:34

回復 10# jaway
你的意思是指：
將 Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value 修改成
Sht1.Range("A" & xRow & ":O" & xRow).Value = Sht1.Range("A8:O8").Value
？

作者: jaway 時間: 2018-6-18 09:25

回復 jaway
你的意思是指：
將 Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Va ...
c_c_lai 發表於 2018-6-18 08:34

先謝謝C大...就是您說的意思,我已解決這個問題,
目前是不知要如何再增加一個活頁簿,記錄夜盤,
不知可否請您指導...

作者: c_c_lai 時間: 2018-6-20 09:52

回復 13# jaway
試試看是否可行：

Sub 共用參照()
Set MyBook = ThisWorkbook
If Time > Sheets("Sheet1").Range("AV2").Value And Time <= Sheets("Sheet1").Range("AW2").Value Then
Set Sht1 = MyBook.Sheets("Sheet2") ' 夜盤 -----
StartTime = Sheets("Sheet1").[AW1] ' 開盤時間
EndTime = Sheets("Sheet1").[AW2] ' 收盤時間
End If
Set Sht1 = MyBook.Sheets("Sheet1") ' 日盤 -----
StartTime = Sheets("Sheet1").[AV1] ' 開盤時間
EndTime = Sheets("Sheet1").[AV2] ' 收盤時間
Else
End Sub

複製代碼

作者: cslu37 時間: 2019-5-18 22:18

回復 2# c_c_lai

請問 c_c_lai 大大：

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

複製代碼

因為E8=D8+D9
插入後...E8會變成D8+D10、D8+D11.......
但是我希望插入後E8的公式，一值都是D8+D9
懇請大大指導！！謝謝您！！

作者: c_c_lai 時間: 2019-5-20 10:13

回復 c_c_lai

請問 c_c_lai 大大：因為E8=D8+D9
插入後...E8會變成D8+D10、D8+D11.......
...
cslu37 發表於 2019-5-18 22:18

不太明瞭，能舉實例說明嗎?

作者: cslu37 時間: 2019-5-20 10:47

回復 16# c_c_lai

   c_c_lai大大您好：
我是想要寫成  I10=D10+E11  要固定不變

但每插入一行，E就會向下推一欄。
如附檔：第一次插入→I10的公式就會變成D10+E11
               第二次再插入→I10的公式就會變成D10+E12
               第三次再插入→I10的公式就會變成D10+E13........以此類推

懇請大大指導，謝謝您！！

作者: c_c_lai 時間: 2019-5-22 09:01

回復 17# cslu37
是這意思嗎?

Sht1.Range("E8").Value = "=D8+D9"
Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value

複製代碼

作者: cslu37 時間: 2019-5-22 11:46

回復 18# c_c_lai

  謝謝 c_c_lai 大大^^~
  現在公式不會一直往下移動一行了!!
  大大真的是太厲害了!!謝謝大大～～～

作者: cslu37 時間: 2019-5-22 11:51

回復 18# c_c_lai

   請教大大：
   這個檔案只能記錄一種時間的商品(8:45~13:45)
   若想同時記錄 3種不同時間的商品
   例如： (商品一) 7:45~14:15
               (商品二) 8:45~13:45
               (商品三) 9:15~12:00
   請問要如何修改呢?
   感謝大大指導！！

作者: c_c_lai 時間: 2019-5-24 08:34

回復 20# cslu37
3種不同時間的商品 ?
每一商品間時間重疊部分如何區分?

作者: cslu37 時間: 2019-5-24 12:07

回復 21# c_c_lai

      c_c_lai 大大您好：
      有嘗試用Sheet1 放 (商品一 7:15~12:00)
                     Sheet2 放 (商品二 8:45~13:45)
                     Sheet3 放 (商品三 9:15~12:00)
      但只有一個Sheet會記錄.......

      請問大大~在同一個檔案中，3個不同時間的商品，分成3個Sheet，同時間「記錄」，這樣要怎麼修改呢?
      謝謝大大！！

作者: c_c_lai 時間: 2019-5-24 16:03

回復 22# cslu37
這須看你程式之結構如何撰寫而定，
你可附上目前應用的程式，方便的話。

作者: cslu37 時間: 2019-5-29 23:52

回復 23# c_c_lai

   c_c_lai大大您好~
   如果只有Sht(1)、Sht(2)、StartTime1,、EndTime1、StartTime2、EndTime2，單一商品、單一記錄時間(區間) 都可以正常執行。

   問題一：多商品
　加入二種不同交易時間的商品Sht(3)、Sht(4)、Sht(5)、Sht(6)、StartTime3、EndTime3、StartTime4、EndTime4、StartTime5,、EndTime5、StartTime6、EndTime6，就出現錯誤訊息了...
   請問大大~要怎麼修改呢?

   問題二：多時間
   「早盤1」要每5秒記錄一次，「早盤1-1」要每1分鐘記錄一次，請問大大要怎麼修改呢?

   謝謝 c_c_lai大大！！

   [attach]30721[/attach]

作者: c_c_lai 時間: 2019-5-30 15:04

回復 24# cslu37
問題一：多商品，就出現錯誤訊息了...
錯誤訊息碼是甚麼 ?

作者: c_c_lai 時間: 2019-5-30 15:49

回復 24# cslu37
[attach]30723[/attach]

作者: cslu37 時間: 2019-5-31 09:19

回復 25# c_c_lai

   c_c_lai大大~
出現的錯誤訊息，如圖檔。
請問這樣要怎麼修正呢??
謝謝c_c_lai大大!!

   [attach]30737[/attach]

   [attach]30738[/attach]

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)