返回列表 上一主題 發帖

程式碼精簡

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個小時,會漏記錄一兩筆,跟我寫的內容有關係嗎?
還是說多多少少,無法避免。
收藏 分享

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-1-20 
2#
發表於 2015-7-24 21:57 | 只看該作者
你接收的商品為何?

TOP

vic

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

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2015-7-25 14:24 | 只看該作者
本帖最後由 GBKEE 於 2015-7-25 14:29 編輯

回復 3# vic

是這樣嗎?
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar(), S(1 To 2), xRow As Long, E As Variant
  4.     Ar = Array("A:C", "E:E", "G:K", "M:O") '大約600筆的欄位字母
  5.     If Second(Time) Mod 30 = 0 Then
  6.         With Sht1
  7.             xRow = .Range("A65536").End(xlUp).Offset(1).Row
  8.             For Each E In Ar
  9.                 S(1) = Replace(E, ":", xRow & ":") & xRow
  10.                 S(2) = Replace(E, ":", 18 & ":") & 18
  11.                 .Range(S(1)).Value = .Range(S(2)).Value
  12.             Next
  13.         End With
  14.     End If
  15.   ' 陣列置入些欄位字母 , 可精簡下面的程式碼
  16.    'Sht1.Range("A" & xRow & ":C" & xRow).Value = Sht1.Range("A18:C18").Value
  17.    'Sht1.Range("E" & xRow & ":E" & xRow).Value = Sht1.Range("E18:E18").Value
  18.    'Sht1.Range("G" & xRow & ":K" & xRow).Value = Sht1.Range("G18:K18").Value
  19.    'Sht1.Range("M" & xRow & ":O" & xRow).Value = Sht1.Range("M18:O18").Value
  20.    '''大約600筆
  21. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題