指定時刻で実行するマクロ。 EXCEL VBA [マクロ]
指定された時間がくると、指定したマクロを実行してくれる
ありがたいマクロです。
Sub 指定時刻にマクロを実行する()
Application.OnTime TimeValue("09:00:00"), _
"データ更新", _
TimeValue("00:00:30")
End Sub
Sub データ更新()
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
上記の例では、最初のTimeValueで開始時間を設定します。
次のTimeValueは、指定の時間に実行できなかった場合に
待つ時間だということです。
クリック募金 各サイトに直接つながります。ありがたいマクロです。
Sub 指定時刻にマクロを実行する()
Application.OnTime TimeValue("09:00:00"), _
"データ更新", _
TimeValue("00:00:30")
End Sub
Sub データ更新()
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
上記の例では、最初のTimeValueで開始時間を設定します。
次のTimeValueは、指定の時間に実行できなかった場合に
待つ時間だということです。
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/
http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html
http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html
コメント 0