Board logo

標題: [發問] 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
  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    時間: 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
試試看是否可行:
  1. Sub 共用參照()
  2.     Set MyBook = ThisWorkbook
  3.    
  4.     If Time > Sheets("Sheet1").Range("AV2").Value And Time <= Sheets("Sheet1").Range("AW2").Value Then
  5.         Set Sht1 = MyBook.Sheets("Sheet2")  ' 夜盤 -----
  6.         StartTime = Sheets("Sheet1").[AW1]  '   開盤時間
  7.         EndTime = Sheets("Sheet1").[AW2]    '   收盤時間
  8.     End If
  9.         Set Sht1 = MyBook.Sheets("Sheet1")  ' 日盤 -----
  10.         StartTime = Sheets("Sheet1").[AV1]  '   開盤時間
  11.         EndTime = Sheets("Sheet1").[AV2]    '   收盤時間
  12.     Else
  13. End Sub
複製代碼

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

回復 2# c_c_lai

    請問 c_c_lai 大大:
  1. Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  2.     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
是這意思嗎?
  1. Sht1.Range("E8").Value = "=D8+D9"
  2. Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  3. 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/)