Excel VBA質問箱 IV

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

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


49803 / 76732 ←次へ | 前へ→

【31829】Re:Webクエリで取り込んだデータを一定時...
回答  Kein  - 05/11/30(水) 16:44 -

引用なし
パスワード
   実行回数にもよりますが、例えば↓のようにすると Ary_T を「実行した瞬間」から
5秒後,10秒後,15秒後に "Sheet1" の A2,A3,A4 セルに値を入力できます。

Sub Ary_T()
  Dim TAry As Variant
  Dim i As Long
 
  TAry = Array("00:00:05", "00:00:10", "00:00:15")
  For i = 0 To 2
   Application.OnTime Time + TimeValue(TAry(i)), "Test_T"
  Next i
End Sub

Sub Test_T()
  With Sheets("Sheet1")
   .Activate
   .Range("A65536").End(xlUp).Offset(1).Value = _
   Format(Now(), "yyyy.m.d.hh.mm.ss")
  End With
End Sub

実時間を指定するなら Ary_T のコードを

  TAry = Array("18:00:00", "18:30:00", "19:00:00")
  For i = 0 To 2
   Application.OnTime TimeValue(TAry(i)), "Test_T"
  Next i

というようにします。これを参考にして、組み立ててみて下さい。

0 hits

【31780】Webクエリで取り込んだデータを一定時間... フジオ 05/11/30(水) 1:26 質問
【31781】Re:Webクエリで取り込んだデータを一定時間... かみちゃん 05/11/30(水) 1:51 発言
【31804】Re:Webクエリで取り込んだデータを一定時間... Kein 05/11/30(水) 13:16 回答
【31820】Re:Webクエリで取り込んだデータを一定時... フジオ 05/11/30(水) 15:46 発言
【31829】Re:Webクエリで取り込んだデータを一定時... Kein 05/11/30(水) 16:44 回答
【31845】Re:Webクエリで取り込んだデータを一定時... フジオ 05/11/30(水) 23:27 質問
【31857】Re:Webクエリで取り込んだデータを一定時... Kein 05/12/1(木) 13:28 発言
【31882】Re:Webクエリで取り込んだデータを一定時... フジオ 05/12/1(木) 20:28 お礼
【31793】Re:追記 フジオ 05/11/30(水) 11:39 質問

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