iT邦幫忙

0

VBA 增加固定時間

  • 分享至 

  • xImage

Private Sub CommandButton1_Click()
Range("B12:BQ459").Select
Selection.ClearContents
Range("A6").Select
End Sub

想請問大大,我想在這清除裡面再加入每日固11:00時間做自動清除,該如何寫呢!

slime iT邦大師 1 級 ‧ 2021-08-09 01:49:17 檢舉
主要功能:
1. 有一個 Sub 來自動清除 .
2. 這個 Sub 用 Application.Ontime 11:00 , "自己" , , True 重複呼叫自己執行.
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

2 個回答

1
Neish
iT邦研究生 1 級 ‧ 2021-08-09 09:22:47
最佳解答

下方這個例子是9:00執行clear_sub
https://ithelp.ithome.com.tw/upload/images/20210809/20097781vSfYu9g3vE.jpg

Private Sub Workbook_Open()

    '特定時間執行clear_sub
    Application.OnTime TimeValue("09:00:00"), "clear_sub"

End Sub

clear_sub內容
https://ithelp.ithome.com.tw/upload/images/20210809/20097781nQDOq6lZvQ.jpg

Sub clear_sub()

    Range("B12:BQ459").Select
    Selection.ClearContents
    Range("A6").Select
    
End Sub

0
blanksoul12
iT邦研究生 5 級 ‧ 2021-08-10 11:49:00

不建議在 excel 入面做,因為你要長開這個 excel file. 最好做法是把這個放在 open 內,打開便自動運行,另外在 windows 排程做定時開啓這個檔案便可.又或做個 windows 排程自己給自己 send e-mail, 在 outlook 內做打開該 file 的動作便可

我要發表回答

立即登入回答