- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
13#
發表於 2013-4-21 09:52
| 只看該作者
本帖最後由 c_c_lai 於 2013-4-21 10:03 編輯
各位大大，當開盤後，excel沒有任何動作，進入巨集內按執行，跳出"此專案的巨集已被暫止"的框框，這是出現了 ...
n8975067 發表於 2013-4-19 12:27  - Sub updateFollow()
- Dim Rng As Range
-
- With Sheet2
- Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
- Rng = Sheet1.[c2]
- Rng.Offset(, 1) = Sheet1.[d2]
- Rng.Offset(, 2) = Sheet1.[e2]
- Rng.Offset(, 3) = Sheet1.[f2]
- Rng.Offset(, 4) = Sheet1.[g2]
- Rng.Offset(, 5) = Sheet1.[h2]
- Rng.Offset(, 6) = Sheet1.[i2]
- Rng.Offset(, 7) = Sheet1.[j2]
- Rng.Offset(, 8) = Sheet1.[k2]
- Rng.Offset(, 9) = Sheet1.[l2]
- End With
-
- Application.OnTime Now + 300 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow" ' 每五分鐘呼叫 一次
- ' Application.OnTime Now + 60 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow" ' 每一分鐘呼叫 一次
- End Sub
所以請在它的前面明確指定此涵式模組是放置在何方？
譬如： Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow" ，抑或是
Application.OnTime Now + 300 / 86400#, "Module1.updateFollow" |
|
發表於 2013-4-19 14:29
| 
