Excel VBA質問箱 IV

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

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


40317 / 76732 ←次へ | 前へ→

【41514】Re:Cells関数の処理時間
発言  かみちゃん  - 06/8/12(土) 18:01 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>この例では2万個のセルの読み込みと、2万個のセルへの書き込み
>があります。メモリ演算だけならなんでもないのですがCells関数
>を使うと膨大な処理時間を要します。

一例ですので、これで処理速度が向上するかどうかは定かではありませんが、
以下のような感じだとどうでしょうか?
私は、このようなことしか思いつきません。

Sub Test1()
 Dim Xdat As Variant
 Dim Ydat(2000,10) As Variant
 Dim N As Long
 Dim j As Long
 Dim NV As Integer
 Dim i As Integer
 
 N = 2000
 NV = 10
 Xdat = Sheets("Sheet1").Range("A1").Resize(N, NV)
 
 For i = 1 To NV
  For j = 1 To 1
   Debug.Print Xdat(j, i)
  Next
 Next

 'Xdatを入力としてYdatを計算して求めます

 '書き込み処理
 Sheets("Sheet2").Range("A1").Resize(UBound(Ydat, 1), UBound(Ydat, 2)).Value = Ydat
End Sub

0 hits

【41495】Cells関数の処理時間 パプチ 06/8/12(土) 8:12 発言
【41496】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 8:25 発言
【41509】Re:Cells関数の処理時間 パプチ 06/8/12(土) 15:59 発言
【41510】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 16:09 発言
【41513】Re:Cells関数の処理時間 パプチ 06/8/12(土) 17:33 発言
【41514】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 18:01 発言
【41516】Re:Cells関数の処理時間 Kein 06/8/12(土) 18:11 回答
【41522】Re:Cells関数の処理時間 パプチ 06/8/12(土) 19:56 お礼
【41523】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 20:05 発言
【41524】Re:Cells関数の処理時間 かみちゃん 06/8/12(土) 20:11 発言
【41530】Re:Cells関数の処理時間 パプチ 06/8/12(土) 21:36 お礼
【41525】Re:Cells関数の処理時間 Kein 06/8/12(土) 20:12 発言
【41520】Re:Cells関数の処理時間 Hirofumi 06/8/12(土) 19:44 回答
【41527】Re:Cells関数の処理時間 パプチ 06/8/12(土) 20:45 お礼

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