Excel VBA質問箱 IV

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

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


45091 / 76732 ←次へ | 前へ→

【36645】Re:セルを選択するのと選択しないのと速度差。
質問  エラーやだヽ(´・ω・`)ノ  - 06/4/6(木) 16:38 -

引用なし
パスワード
   ▼Jaka さん:
>セルを選択するのと選択しないのと速度差。
>test3は特殊ですが。
>
>           速いPCをお使いでしたら、10000にしてみてください。
>          ↓注)せいぜい15000まで、それ以上だと配列で問題があるかも。
>Const Cnt As Long = 5000
>
>Sub test1()
>Dim i As Long
>'↓のコードのコメントを外したのも試してみてください。
>Application.ScreenUpdating = False
>stt = Now()
>For i = 1 To Cnt Step 2
>  Sheets("Sheet1").Select
>  Cells(i, 1).Select
>  ActiveCell.Value = i
>  Sheets("Sheet2").Select
>  Cells(i + 1, 2).Select
>  ActiveCell.Value = i + 1
>Next
>Sheets("Sheet1").Select
>Range("C1").Select
>ActiveCell.Value = Format(Now() - stt, "hh:mm:ss")
>Application.ScreenUpdating = True
>MsgBox "終了"
>End Sub
>
>Sub test2()
>Dim i As Long
>stt = Now()
>For i = 1 To Cnt Step 2
>  Sheets("Sheet1").Cells(i, 1).Value = i
>  Sheets("Sheet2").Cells(i + 1, 2).Value = i + 1
>Next
>Sheets("Sheet1").Range("D1").Value = Format(Now() - stt, "hh:mm:ss")
>MsgBox "終了"
>End Sub
>
>Sub test3()
>Dim i As Long, tb1(1 To Cnt, 1 To 1) As Variant, tb2(1 To Cnt, 1 To 1) As Variant
>stt = Now()
>For i = 1 To Cnt Step 2
>  tb1(i, 1) = i
>  tb2(i + 1, 1) = i + 1
>Next
>Sheets("Sheet1").Range("A1").Resize(Cnt).Value = tb1
>Sheets("Sheet2").Range("B1").Resize(Cnt).Value = tb2
>Erase tb1, tb2
>Sheets("Sheet1").Range("E1").Value = Format(Now() - stt, "hh:mm:ss")
>MsgBox "終了"
>End Sub


サンプルまでつくっていただいて恐縮です。

テストをしてみましたがこんなに速度に差がでるものなんですね・・・><;
ちなみにtest3のマクロが理解できないですorz
もしよろしければご解説をお願いします。

また私が購入した入門本にはワークシートはworksheet(s)と記述するようにあったのですが、これとsheet(s)の違いはなんでしょうか??

厚かましいとは思いますがよろしくお願いします。。

6 hits

【36495】基本なのでしょうが・・・・ エラーやだヽ(´・ω・`)ノ 06/4/2(日) 1:48 質問
【36504】Re:基本なのでしょうが・・・・ かみちゃん 06/4/2(日) 11:37 発言
【36506】Re:基本なのでしょうが・・・・ momo 06/4/2(日) 11:51 発言
【36514】Re:基本なのでしょうが・・・・ かみちゃん 06/4/2(日) 12:49 発言
【36541】Re:基本なのでしょうが・・・・ neptune 06/4/3(月) 8:47 発言
【36516】Re:基本なのでしょうが・・・・ Kein 06/4/2(日) 13:05 回答
【36523】Re:基本なのでしょうが・・・・ プルート 06/4/2(日) 13:44 発言
【36543】Re:基本なのでしょうが・・・・ Jaka 06/4/3(月) 10:11 発言
【36549】Re:基本なのでしょうが・・・・ プルート 06/4/3(月) 11:08 発言
【36554】みなさんご回答ありがとうございます。。 エラーやだヽ(´・ω・`)ノ 06/4/3(月) 11:58 お礼
【36555】Re:みなさんご回答ありがとうございます。。 Jaka 06/4/3(月) 12:18 回答
【36557】Re:みなさんご回答ありがとうございます。。 エラーやだヽ(´・ω・`)ノ 06/4/3(月) 13:12 質問
【36559】Re:みなさんご回答ありがとうございます。。 Jaka 06/4/3(月) 13:58 発言
【36615】セルを選択するのと選択しないのと速度差。 Jaka 06/4/5(水) 15:58 発言
【36638】間違い修正 Jaka 06/4/6(木) 10:17 発言
【36645】Re:セルを選択するのと選択しないのと速度... エラーやだヽ(´・ω・`)ノ 06/4/6(木) 16:38 質問
【36648】Re:セルを選択するのと選択しないのと速度... Blue 06/4/6(木) 17:26 発言
【36653】Re:セルを選択するのと選択しないのと速度... かみちゃん 06/4/6(木) 22:40 発言
【36663】Re:セルを選択するのと選択しないのと速度... Jaka 06/4/7(金) 11:42 発言

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