Excel VBA質問箱 IV

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

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


8804 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【30219】時間で実行を繰り返すには?
質問  DD  - 05/10/22(土) 10:33 -

引用なし
パスワード
   ▼o・_・o▼コンニチワン♪

毎日 データ取得してから2時間置きに再度データを取得したいのですが
ストップかけるまで繰り返すようにするにはどのように設定すればいいのでしょう?

下記 コードを繰り返すことは出来ますか?
FOR・・・next などでも出来るのでしょうか?
この場合最大値の設定が。。。。


Sub 実行()

For i = 1 To ActiveSheet.Cells("65536", "A").End(xlUp).Row
  If Cells(i, "A") <> "" Then
  Cells(i + 1, "A").Select
  
  Application.ontime Now + TimeValue("02:00:00"), "データ取得"
  
  End If
 Next i
 
End Sub

【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 などでも出来るのでしょうか?
何が?でしょうか。分かりません。
>この場合最大値の設定が。。。。
なんでしょうか。

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

【30223】Re:時間で実行を繰り返すには?
回答  まさ7251 E-MAIL  - 05/10/22(土) 16:39 -

引用なし
パスワード
   >毎日 データ取得してから2時間置きに再度データを取得したいのですが
>ストップかけるまで繰り返すようにするにはどのように設定すればいいのでしょう?

いっそのこと、タスクマネージャ等で、
2時間置きに起動するようにしてはどうでしょうか。
Excelが常駐するより効率が良いかとは思いますが。

”データ取得してから”とか、”ストップかけるまで”が
どのような操作で、どのように実施するのかが良くわかりませんので、
2時間おきに起動でいけるかは判断できませんけど。

【30235】Re:時間で実行を繰り返すには?
発言  DD  - 05/10/22(土) 23:52 -

引用なし
パスワード
   用は 2時間置きに データ取得が実行できればいいですが。。。。

【30241】Re:時間で実行を繰り返すには?
回答  まさ7251 E-MAIL  - 05/10/23(日) 17:18 -

引用なし
パスワード
   ▼DD さん:
>用は 2時間置きに データ取得が実行できればいいですが。。。。

でれすけさん、私、それぞれが出した案を検討した結果はどうなのですか?
使えないのですか、それとも、何かわからない点があるのでしょうか?

それに、それぞれの回答の中には、
DDさんへの質問もありましたが、
それに対する返答はないのですか?

【30243】Re:時間で実行を繰り返すには?
お礼  DD  - 05/10/23(日) 21:37 -

引用なし
パスワード
   ▼まさ7251 さん:
>▼DD さん:
>>用は 2時間置きに データ取得が実行できればいいですが。。。。
>
>でれすけさん、私、それぞれが出した案を検討した結果はどうなのですか?
>使えないのですか、それとも、何かわからない点があるのでしょうか?
>
>それに、それぞれの回答の中には、
>DDさんへの質問もありましたが、
>それに対する返答はないのですか?

って 言われても 検討も何も書いてあるコードの意味が
自分には まったく分かりません
私みたいな 初心者には 理解出来ないのでしょうね

最初に表記した コードを使ってどうすれば
2時間ごとの繰り返しが 出来るか分からないから聞いてるのに・・・・

貴重な意見 ありがとうございました



【30302】Re:時間で実行を繰り返すには?
回答  まさ7251 E-MAIL  - 05/10/24(月) 20:30 -

引用なし
パスワード
   >って 言われても 検討も何も書いてあるコードの意味が
>自分には まったく分かりません

それなら、そのように返信する必要があるのではないでしょうか。
コードを自ら提示していれば、ある程度の理解があると
考えるのが普通かと思います。

>私みたいな 初心者には 理解出来ないのでしょうね

誰でも最初は初心者です。
まずは、現在のコードを理解してみてはどうでしょうか。
わからない部分はヘルプで調べてみる。使用例をまねてみる。
色々試行錯誤を繰り返してみる。
そうやって上達するのですから。

>最初に表記した コードを使ってどうすれば
>2時間ごとの繰り返しが 出来るか分からないから聞いてるのに・・・・

出来る方法は提示されているのですから、ご自分で試行錯誤してみて、
具体的にどこで躓いているのかを書き込んでみてください。
そうすれば、もっと有意義に掲示板を活用することが
出来るかと思います。

【30735】Re:時間で実行を繰り返すには?
発言  koi  - 05/11/4(金) 9:52 -

引用なし
パスワード
   ▼まさ7251 さん:
>わからない部分はヘルプで調べてみる。使用例をまねてみる。
>色々試行錯誤を繰り返してみる。
>そうやって上達するのですから。

たしかにそうだとは思いますが・・・・
自分もあまり詳しくはないので
この掲題の問いには回答は出来ないのでえらそうな事は言えませんが
分からない人に対して 自分で調べろ見たいな発言はどうかと・・・
分からないからこそ頼ってここに来ているのでは?

もう少し親切にしても良いのでは?

【31063】Re:時間で実行を繰り返すには?
発言  コウ  - 05/11/10(木) 21:47 -

引用なし
パスワード
   ▼koi さん:
>▼まさ7251 さん:
>>わからない部分はヘルプで調べてみる。使用例をまねてみる。

でも結構うそつきな事書いてますよねヘルプって
コピーして使ってもエラー出たりするし・・・・

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