返回列表 上一主題 發帖

程式碼精簡

vic

帖子
16 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
win7 64 
軟體版本
excel 2013 
閱讀權限
20 
性別
男 
註冊時間
2015-7-5 
最後登錄
2017-4-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-7-24 20:19 | 顯示全部帖子

程式碼精簡

  1. If Second(Time) Mod 30 = 0 Then
  2.    xRow = Sht1.Range("A65536").End(xlUp).Row + 1
  3.    If xRow < 19 Then xRow = 19
  4.    Sht1.Range("A" & xRow & ":C" & xRow).Value = Sht1.Range("A18:C18").Value
  5.    Sht1.Range("E" & xRow & ":E" & xRow).Value = Sht1.Range("E18:E18").Value
  6.    Sht1.Range("G" & xRow & ":K" & xRow).Value = Sht1.Range("G18:K18").Value
  7.    Sht1.Range("M" & xRow & ":O" & xRow).Value = Sht1.Range("M18:O18").Value
複製代碼
請教 像這樣選擇性紀錄的程式碼,
有比較精簡的寫法嗎?

另外我每天5個小時,會漏記錄一兩筆,跟我寫的內容有關係嗎?
還是說多多少少,無法避免。
收藏 分享

vic

帖子
16 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
win7 64 
軟體版本
excel 2013 
閱讀權限
20 
性別
男 
註冊時間
2015-7-5 
最後登錄
2017-4-18 
2#
發表於 2015-7-25 13:09 | 顯示全部帖子
回復 2# bobomi

紀錄看盤軟體回傳的DDE資料
每30秒紀錄一次
不漏的話,大約600筆

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題