Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51380 / 76732 ←次へ | 前へ→

【30222】Re:時間で実行を繰り返すには?
回答  でれすけ  - 05/10/22(土) 13:22 -

引用なし
パスワード
   こんにちは。

>ストップかけるまで繰り返すようにするにはどのように設定すればいいのでしょう?
「ストップをかける」とは、具体的には何をさしますか?
ユーザにコマンドボタンを押させるとかいうことでしょうか。

基本的な事例を示しますので、検討してみてください。
以下のマクロはA1セルに時刻を表示します。
一回 TimerSTART を実行すると Timerが1秒毎に次々呼び出されます。
TimerSTOPを実行すると、実行が停止します。

Sub TimerSTART()
 Call Timer(True)
End Sub

Sub TimerSTOP()
 Call Timer(False)
End Sub

Sub Timer(Optional GO As Variant = True)
Static T As Date
If GO Then
  T = Now() + TimeValue("00:00:01")
  '----------------------------------------------------
    Cells(1, 1).NumberFormatLocal = "hh:mm:ss"
    Cells(1, 1).Value = Now()
  '----------------------------------------------------
  Application.OnTime T, "Timer"
Else
  Application.OnTime T, "Timer", , False
End If
End Sub

>下記 コードを繰り返すことは出来ますか?
"実行"というプロシジャを繰り返すのでしょうか?
それとも"データ取得"というプロシジャでしょうか。
はっきりさせましょう

>FOR・・・next などでも出来るのでしょうか?
何が?でしょうか。分かりません。
>この場合最大値の設定が。。。。
なんでしょうか。

不明点、回答してもらいたい疑問点ははっきりと書くようにしましょう。

1 hits

【30219】時間で実行を繰り返すには? DD 05/10/22(土) 10:33 質問
【30222】Re:時間で実行を繰り返すには? でれすけ 05/10/22(土) 13:22 回答
【30223】Re:時間で実行を繰り返すには? まさ7251 05/10/22(土) 16:39 回答
【30235】Re:時間で実行を繰り返すには? DD 05/10/22(土) 23:52 発言
【30241】Re:時間で実行を繰り返すには? まさ7251 05/10/23(日) 17:18 回答
【30243】Re:時間で実行を繰り返すには? DD 05/10/23(日) 21:37 お礼
【30302】Re:時間で実行を繰り返すには? まさ7251 05/10/24(月) 20:30 回答
【30735】Re:時間で実行を繰り返すには? koi 05/11/4(金) 9:52 発言
【31063】Re:時間で実行を繰り返すには? コウ 05/11/10(木) 21:47 発言

51380 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free