f3202

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-24

11^# 跳轉到 »

發表於 2013-1-23 07:49 | 只看該作者

回復 10# t8899

text版已寄到信箱

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2013-1-23 09:04 | 只看該作者

回復 8# t8899
有以下之模式可供你選用：
(一)

置於模組 Module1 內：
Private Sub Auto_Open()
Ex
End Sub
Sub Ex()
Static cts
cts = cts + 1
Cells(cts, 1).Value = "Here I Am!"
Application.OnTime (Now + TimeValue("00:03:00")), "Module1.Ex"
End Sub

複製代碼

(二)

置於 ThisWorkbook 內：
Private Sub Workbook_Open()
Ex
End Sub
Sub Ex()
Static cts
cts = cts + 1
Cells(cts, 1).Value = "Here I Am!"
Application.OnTime (Now + TimeValue("00:03:00")), "ThisWorkbook.Ex"
End Sub

複製代碼

(三)

置於模組 Module1 內：
Private Sub Auto_Open()
工作表1.Ex
End Sub
置於工作表1 內：
Sub Ex()
Static cts
cts = cts + 1
Cells(cts, 1).Value = "Here I Am!"
Application.OnTime (Now + TimeValue("00:03:00")), "工作表1.Ex"
End Sub

複製代碼

TOP

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

13^#

發表於 2013-1-26 09:40 | 只看該作者

stop.rar (8.16 KB)
Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+p
'
[a1] = [a1] + 1
Application.OnTime Now + TimeValue("00:00:05"), "Sheet1.a123"
End Sub

呀﹗請問要怎樣停止？

50 字節以內
不支持自定義 Discuz! 代碼

TOP

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

14^#

發表於 2013-1-26 19:12 | 只看該作者

原來是這樣子
http://office.microsoft.com/zh-tw/excel-help/HP005203075.aspx

停止巨集
全部顯示全部顯示

請執行下列其中一項動作：

如果您要停止一個目前使用中的巨集，請按 ESC，然後按一下 [Microsoft Visual Basic] 對話方塊上的 [結束]。
如果您想要避免在啟動 Microsoft Excel 時自動執行巨集，請在啟動時按住 SHIFT。

50 字節以內
不支持自定義 Discuz! 代碼

TOP

e-bbm

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: Mac
軟體版本: OS
閱讀權限: 10
性別: 男
註冊時間: 2013-2-16
最後登錄: 2013-2-17

15^#

發表於 2013-2-16 21:52 | 只看該作者

第1+a 的row 放入時間

Timothy

TOP

loquat

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

16^#

發表於 2013-2-19 12:05 | 只看該作者

没有权限下载附件，主要是自己水平太菜啊

向高手学习

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

17^#

發表於 2013-2-19 16:47 | 只看該作者

還是動不了
Cells(1 + a, 1) = Time ===>是什意思
t8899 發表於 2013/1/22 23:56

查看VBA的說明可了解

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

18^# 倒序看帖

打印

字體大小: tT

發表於 2015-3-29 08:33 | 只看該作者

[發問] Application.OnTime 無法終止 ?

Sub amou()
Range("a1") = Range("a1") + 1
runtime2 = Now + TimeValue("00:00:10")
Application.OnTime runtime2, "amou"
End Sub

Sub a123()
On Error Resume Next
'Application.OnTime EarliestTime:=TimeValue(Runtime2), _
' Procedure:="amou", Schedule:=False
' Application.OnTime EarliestTime:=Runtime2, _
' Procedure:="amou", Schedule:=False
Application.OnTime runtime2, "amou", Schedule:=False
On Error GoTo 0
End Sub