- 帖子
- 39
- 主題
- 4
- 精華
- 0
- 積分
- 48
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- sp1
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-2-2
- 最後登錄
- 2014-8-26
|
回復 5# n8975067
按Ibt大大的方法可以寫成一個巨集，不需要兩個吧！我也不懂是不是這樣寫可以。- 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]
- '每五分呼叫 一次
- Application.OnTime Now + 300 / 86400#, "UpdateFollow"
- End Sub
|
|
發表於 2013-4-13 12:26
| 