Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14724 / 76734

←次へ　｜　前へ→


	【67499】Re:Dictionaryについて

kanabun - 10/12/9(木) 16:06 -


	引用なし

	パスワード

▼UO3 さん：こんにちは～

>いつか計測しようと、気にはなっているのですが、そのまま手抜きで。
>
>さらに、Dictionaryは、kanabunさんの方式、IDのチェックのみに使用し
>最初から配列というほうが、もっと早いのでしょうね。

> CN列＝課税所得額、BZ列＝社会保険控除額、CO列＝源泉徴収税額
ですので、
Hirofumi さんの
>　 '列位置をA列を1列として、列挙する
>　　vntPost = Array(3, 4, 78, 92, 93)
は
　　vntPost = Array(3, 4, 92, 78, 93)
ですか？

UO3 さんの
>　　　v(2) = v(2) + .Cells(i, "CN").Value
>　　　v(3) = v(3) + .Cells(i, "CO").Value
>　　　v(4) = v(4) + .Cells(i, "BZ").Value
は、
　　　v(2) = v(2) + .Cells(i, "CN").Value
　　　v(4) = v(4) + .Cells(i, "CO").Value
　　　v(3) = v(3) + .Cells(i, "BZ").Value
ですかね？

で、timeGetTime()で測ってみると、
---------　--------(ms)
Sample_1　　　134
Sample_2　　　 31
集計_12か月分　31
Sample　　　　135

といった感じでした。

ワークシート関数のTransposeが高速ということは
最近別スレで UO3さんに教わりましたので
ここでも利用させていただいてます♪

>配列の要素数という課題はありますが、ときおり Preserve　すればいいことですしね。
シートに貼り付けるのですから、課題はありません。最初に余裕のある
要素数を宣言しておいて、Loop後に分かった実際の行数だけ貼りつけています(^^

1 hits

▼

【67485】Dictionaryについて 八家九僧陀 10/12/9(木) 1:45