Excel VBA質問箱 IV

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

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


45121 / 76732 ←次へ | 前へ→

【36615】セルを選択するのと選択しないのと速度差。
発言  Jaka  - 06/4/5(水) 15:58 -

引用なし
パスワード
   セルを選択するのと選択しないのと速度差。
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
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 発言

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