返回列表 上一主題 發帖

[發問] DDE記錄資料求助

lbt

帖子
4 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2013-4-10 
最後登錄
2013-4-16 
1# 跳轉到 »
發表於 2013-4-12 17:48 | 顯示全部帖子
Sub updateFollow()
  
       Sheet1.Range("a" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[a2]
       Sheet1.Range("b" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[b2]
       Sheet1.Range("c" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[c2]

End Sub

剛好我也是這幾天 才爬文學會的~~

TOP

lbt

帖子
4 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2013-4-10 
最後登錄
2013-4-16 
2#
發表於 2013-4-12 17:51 | 顯示全部帖子
Sub TimePlus1()
         '每五分呼叫 一次
         Application.OnTime Now + 300 / 86400#, "UpdateFollow"
      
End Sub

希望對你有幫助

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題