帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-6-16 22:58 | 只看該作者

[發問] 請問如何修正程式碼?

大家好!
以下是我用之前巨集加上錄製，偵錯出現錯誤，請問如何修改? 感謝各位!
2011-06-16 22 41 22.jpg

黃色指標指向Rng1 = Time

Option Explicit
Sub 方向()
Dim Rng As Range, Rng1 As Range, i%
If Time < TimeValue("22:35:00") Then
Application.OnTime TimeValue("22:35:01"), "方向.EX"
Exit Sub
ElseIf Time >= TimeValue("23:59:30") Then Exit Sub
End If
Sheets("Sheet1").Select
Range("A2:C21").Select
Selection.ClearContents
Rng1 = Time
Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 1), "方向.EX"
End Sub

樓主熱帖

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-6-16 23:11 | 只看該作者

Rng1被宣告為Range物件
當程式還沒賦值給該變數前
Rng1是不存在的，所以無法將值寫入該物件

學海無涯_不恥下問

TOP

wells330

中學生 Rank: 2

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

3^#

發表於 2011-6-17 14:40 | 只看該作者

感謝超級版主的回覆!
小弟努力爬文找資料，就是無法完成想要達成定時刪除資料的功能，請各位前輩幫忙一下
1.定時刪除Sheet1(A2:C21)資料
2.於09:00:00開始執行程序、13:35:00結束程序
3.於09:01:01執行第一次"方向.EX"、下一次執行"方向.EX"在每分鐘的第一秒

感謝!

模組
Sub 方向()
      If Time < TimeValue("09:00:00") Then
      Application.OnTime TimeValue("09:01:01"), "方向.EX"
      Exit Sub
      ElseIf Time >= TimeValue("13:35:00") Then Exit Sub
      End If
Sheets("Sheet1").Select
Range("A2:C21").Select
Selection.ClearContents
   Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 1), "方向.EX"
End Sub

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

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兔年全勤獎章

4^#

發表於 2011-6-17 17:17 | 只看該作者

回復 3# wells330
你是要09:00:00後每隔一分鐘執行一次 Sub 方向() 到 13:35:00停止嗎?
要指明Sub 方向()存放的模組如 Application.OnTime TimeValue("09:01:01"), "SHEET1.方向"
Sub 方向()
      If Time < TimeValue("09:00:00") Then
      Application.OnTime TimeValue("09:01:01"), "方向.EX" '可能是這裡錯誤
      Exit Sub
      ElseIf Time >= TimeValue("13:35:00") Then Exit Sub
      End If
Sheets("Sheet1").Select
Range("A2:C21").Select
Selection.ClearContents
   Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 1), "方向.EX" '可能是這裡錯誤
End Sub

TOP

wells330

中學生 Rank: 2

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

5^#

發表於 2011-6-18 00:32 | 只看該作者

RE: 請問如何修正程式碼?(已解決)

GBKEE版主你好!
謝謝你指正，就是你說的地方錯誤。

感謝!

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

TOP