返回列表 上一主題 發帖

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

wells330

帖子
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

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-6-16 23:11 | 只看該作者
Rng1被宣告為Range物件
當程式還沒賦值給該變數前
Rng1是不存在的，所以無法將值寫入該物件
學海無涯_不恥下問

TOP

wells330

帖子
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

帖子
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

帖子
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

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題