人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excel2000のマクロで午前8時00から午後15時10分まで10秒置きに実行したいと考えております。
“色表示”というマクロで5秒ほどで計算できるものです。

Sub OnTimeSamp1()

Dim runtime As Integer
runtime = Second(10)
Do
Application.Ontime EarliestTime:=TimeValue("8:00:00") + runtime _
, Procedure:="色表示", LatestTime:=TimeValue("15:10:00")

runtime = runtime + Second(120)

Loop

End Sub

と書いたのですが、120秒おきにしてもメモリ不足と言われ、かなりCPUに負荷をかけているようです。
解決法を教えてください。

●質問者: Ukihiro
●カテゴリ:コンピュータ
✍キーワード:00 application as LOOP sub
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ