設定した時間になると自動的にマクロを実行する

自動的にマクロ実行

指定した時刻にマクロを実行するApplication.Ontimeメソッドを使えば定期的にマクロを自動実行させることができる。この機能を使えば定期的にフォルダ内を巡回するなどのロボットをVBAで作成できるのではないだろうか。

業務を手軽に自動化させるのに有効な手段では?

サンプルコード

 Dim Launch As Date

 For i = 2 to 200

   Launch=ThisWorkbook.Sheets(1).Cells(i,1)←Excelシート上にあらかじめ実行時刻を用意

   Application.Ontime TimeValue(Launch),”実行するマクロ名

 Next

メモ

実行するマクロ名」の部分には、別にあらかじめ用意しておいたプロシージャ名を入れる。For文で回すことにより、あらかじめ別シートで用意していた時刻が、実行時刻として読み込まれる。

このコードをイベント(ブック起動時にマクロ実行など)と組み合わせれば、さまざまな業務を自動化できそうだ。

コメント

タイトルとURLをコピーしました