Excel VBA質問箱 IV

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

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


53 / 13293 ツリー ←次へ | 前へ→

【80532】処理が遅くなってしまう amatsuno 19/2/28(木) 14:04 質問[未読]

【80538】Re:処理が遅くなってしまう マナ 19/2/28(木) 18:54 発言[未読]
【80539】Re:処理が遅くなってしまう γ 19/2/28(木) 20:19 発言[未読]
【80541】Re:処理が遅くなってしまう amatsuno 19/3/1(金) 19:21 発言[未読]
【80542】Re:処理が遅くなってしまう amatsuno 19/3/1(金) 19:29 発言[未読]

【80538】Re:処理が遅くなってしまう
発言  マナ  - 19/2/28(木) 18:54 -

引用なし
パスワード
   ▼amatsuno さん:

>1つのマクロで全処理を実施する必要が発生したため、
>各処理を結合したのですが、処理が冗長化しているのか、
>別々にしたときよりも実行時間がかかってしまいます。
>

コードは全く見ていませんが
こんな感じのほうがわかりやすくないですか?

sub 実行()
  macro1
  macro2
  macro3
  macro4
end sub

【80539】Re:処理が遅くなってしまう
発言  γ  - 19/2/28(木) 20:19 -

引用なし
パスワード
   横入り失礼します。
ラップタイムをとって、どこで時間がかかっているか調査するとよいのでは?
sub 実行()
  dim t
  t = Timer
  macro1
  Debug.print "macro1 " & (Timer - t)
  t = Timer
  macro2
  Debug.print "macro2 " & (Timer - t)
  t = Timer
  macro3
  Debug.print "macro3 " & (Timer - t)
  t = Timer
  macro4
  Debug.print "macro4 " & (Timer - t)
end sub

【80541】Re:処理が遅くなってしまう
発言  amatsuno  - 19/3/1(金) 19:21 -

引用なし
パスワード
   ▼γ さん:
>横入り失礼します。
>ラップタイムをとって、どこで時間がかかっているか調査するとよいのでは?
>sub 実行()
>  dim t
>  t = Timer
>  macro1
>  Debug.print "macro1 " & (Timer - t)
>  t = Timer
>  macro2
>  Debug.print "macro2 " & (Timer - t)
>  t = Timer
>  macro3
>  Debug.print "macro3 " & (Timer - t)
>  t = Timer
>  macro4
>  Debug.print "macro4 " & (Timer - t)
>end sub


ありがとうございます。
これで確認してみます

処理ごとの時刻としては、現在
  Debug.Print Time
を使っていました
(実行時に、表示される時刻の羅列で確認していました)

【80542】Re:処理が遅くなってしまう
発言  amatsuno  - 19/3/1(金) 19:29 -

引用なし
パスワード
   ▼マナ さん:
>▼amatsuno さん:
>
>>1つのマクロで全処理を実施する必要が発生したため、
>>各処理を結合したのですが、処理が冗長化しているのか、
>>別々にしたときよりも実行時間がかかってしまいます。
>>
>
>コードは全く見ていませんが
>こんな感じのほうがわかりやすくないですか?
>
>sub 実行()
>  macro1
>  macro2
>  macro3
>  macro4
>end sub

急遽、複数の処理をひとつのマクロにする話が出たので、
とりあえず処理を複合させて動作確認を行っていました

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