Excel VBA質問箱 IV

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

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


43533 / 76732 ←次へ | 前へ→

【38246】Re:テキストファイルの高速読込み
発言  Jaka  - 06/5/30(火) 16:00 -

引用なし
パスワード
   >        dat(nCNT, 0) = eventNo       '取得した値を配列に代入
>        dat(nCNT, 1) = flapNo
>        dat(nCNT, 2) = inDate
>        dat(nCNT, 3) = inTime
>        dat(nCNT, 4) = outDay
>        dat(nCNT, 5) = outTime
>        Cells(nCNT + 1, 2).Value = dat(nCNT, 0)  '指定セルに書込
>        Cells(nCNT + 1, 3).Value = dat(nCNT, 1)
>        Cells(nCNT + 1, 4).Value = dat(nCNT, 2)
>        Cells(nCNT + 1, 5).Value = dat(nCNT, 3)
>        Cells(nCNT + 1, 6).Value = dat(nCNT, 4)
>        Cells(nCNT + 1, 7).Value = dat(nCNT, 5)
>        nCNT = nCNT + 1       'カウントをインクリメント
ぱっと見ですが...。
何で添え字の変化する配列に入れているのでしょうか?

せっかく配列に入れたのに、1個1個セルに値を入れているから余計に遅いんです。
2次元配列ならこんな感じで1活で入れられます。(列数が増たら応じて、複数回に分けて入れる。)

Dim Tb(1 To 20000, 1 To 1)
For i = 1 To 20000
  Tb(i, 1) = i
Next
Range("A1").Resize(UBound(Tb)).Value = Tb
Erase Tb

表示形式等は書き込んだ後でいいんじゃないかと....。
4 hits

【38243】テキストファイルの高速読込み aya 06/5/30(火) 15:29 質問
【38244】Re:テキストファイルの高速読込み 06/5/30(火) 15:44 回答
【38245】Re:テキストファイルの高速読込み aya 06/5/30(火) 15:55 発言
【38246】Re:テキストファイルの高速読込み Jaka 06/5/30(火) 16:00 発言
【38247】Re:テキストファイルの高速読込み Jaka 06/5/30(火) 16:07 発言
【38375】Re:テキストファイルの高速読込み aya 06/6/1(木) 9:59 質問
【38249】Re:テキストファイルの高速読込み Kein 06/5/30(火) 16:13 発言
【38376】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:01 発言
【38386】Re:テキストファイルの高速読込み Kein 06/6/1(木) 14:41 回答
【38388】Re:テキストファイルの高速読込み Kein 06/6/1(木) 14:43 発言
【38254】Re:テキストファイルの高速読込み neptune 06/5/30(火) 17:21 回答
【38268】Re:テキストファイルの高速読込み ichinose 06/5/30(火) 19:56 発言
【38287】Re:テキストファイルの高速読込み neptune 06/5/30(火) 23:10 発言
【38288】Re:テキストファイルの高速読込み neptune 06/5/30(火) 23:20 発言
【38377】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:16 質問
【38402】Re:テキストファイルの高速読込み ichinose 06/6/1(木) 23:09 発言
【38378】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:23 質問
【38387】Re:テキストファイルの高速読込み neptune 06/6/1(木) 14:42 回答
【38389】Re:テキストファイルの高速読込み aya 06/6/1(木) 15:50 発言
【38391】Re:テキストファイルの高速読込み neptune 06/6/1(木) 17:54 回答
【38392】Re:テキストファイルの高速読込み neptune 06/6/1(木) 18:52 発言

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