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