Excel VBA質問箱 IV

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

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


16077 / 76738 ←次へ | 前へ→

【66134】どのプロシージャが一番早いのでしょうか・・・
質問  hoully  - 10/8/3(火) 17:05 -

引用なし
パスワード
   B2〜B51に入るDDEでリアルタイムに更新されるデータの最大値をそれぞれC2〜C51に、最小値をそれぞれD2〜D51に記録するために以下の3つのプロシージャを考えています。

1つ目)
Private Sub Worksheet_Calculate()

If Range("B2").Value > Range("C2").Value Then Range("C2").Value = Range("B2").Value
If Range("B2").Value < Range("D2").Value Then Range("D2").Value = Range("B2").Value

If Range("B3").Value > Range("C3").Value Then Range("C3").Value = Range("B3").Value
If Range("B3").Value < Range("D3").Value Then Range("D3").Value = Range("B3").Value
・・・省略・・・(これがあと48組続きます)
End Sub

2つ目)
上記1つ目をforループを使って作る。

3つ目)
Private Sub Worksheet_Calculate()

If Range("B2").Value > Range("C2").Value Then Range("C2").Value = Range("B2").Value
If Range("B2").Value < Range("D2").Value Then Range("D2").Value = Range("B2").Value
End Sub

Private Sub Worksheet_Calculate()
If Range("B3").Value > Range("C3").Value Then Range("C3").Value = Range("B3").Value
If Range("B3").Value < Range("D3").Value Then Range("D3").Value = Range("B3").Value
End Sub

・・・省略・・・(これをあと48組作る)

上記3つのプロシージャに関して2つ質問があります。
1つ目)上記3つのプロシージャは全く同じ動作をするのでしょうか?3つ目だけ違う気がするのですが・・・。
2つ目)上記3つのプロシージャで一番メモリの消費量が少ない(動作が速い)のはどれなのでしょうか?
どなたか教えてください。
よろしくお願いいたします。
0 hits

【66134】どのプロシージャが一番早いのでしょうか・・・ hoully 10/8/3(火) 17:05 質問
【66136】Re:どのプロシージャが一番早いのでしょう... UO3 10/8/3(火) 17:19 発言
【66142】Re:どのプロシージャが一番早いのでしょう... hoully 10/8/4(水) 16:43 お礼
【66139】Re:どのプロシージャが一番早いのでしょう... teian 10/8/3(火) 19:11 発言
【66143】Re:どのプロシージャが一番早いのでしょう... hoully 10/8/4(水) 16:45 お礼
【66140】Re:どのプロシージャが一番早いのでしょう... 通り魔 10/8/4(水) 1:30 発言
【66144】Re:どのプロシージャが一番早いのでしょう... hoully 10/8/4(水) 16:46 お礼
【66141】Re:どのプロシージャが一番早いのでしょう... teian 10/8/4(水) 16:30 発言
【66145】Re:どのプロシージャが一番早いのでしょう... hoully 10/8/4(水) 17:02 お礼

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