返回列表 上一主題 發帖

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

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! 代碼

wells330

帖子
35 
主題
8 
精華
0 
積分
57 
點名
0  
作業系統
w7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-6-1 
最後登錄
2021-2-19 
2#
發表於 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

wells330

帖子
35 
主題
8 
精華
0 
積分
57 
點名
0  
作業系統
w7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-6-1 
最後登錄
2021-2-19 
3#
發表於 2011-6-18 00:32 | 顯示全部帖子

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

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

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

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題