Excel VBA質問箱 IV

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

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


14728 / 76738 ←次へ | 前へ→

【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後に分かった実際の行数だけ貼りつけています(^^
0 hits

【67485】Dictionaryについて 八家九僧陀 10/12/9(木) 1:45 質問
【67487】Re:Dictionaryについて Hirofumi 10/12/9(木) 8:33 回答
【67490】Re:Dictionaryについて Hirofumi 10/12/9(木) 9:29 回答
【67505】Re:Dictionaryについて Hirofumi 10/12/9(木) 18:05 発言
【67507】Re:Dictionaryについて 八家九僧陀 10/12/9(木) 18:15 お礼
【67511】Re:Dictionaryについて Hirofumi 10/12/9(木) 19:03 回答
【67575】Re:Dictionaryについて 八家九僧陀 10/12/15(水) 0:48 お礼
【67492】Re:Dictionaryについて kanabun 10/12/9(木) 10:00 発言
【67500】Re:Dictionaryについて kanabun 10/12/9(木) 16:12 発言
【67506】Re:Dictionaryについて Hirofumi 10/12/9(木) 18:06 発言
【67508】Re:Dictionaryについて 八家九僧陀 10/12/9(木) 18:22 お礼
【67510】Re:Dictionaryについて kanabun 10/12/9(木) 18:46 発言
【67512】Re:Dictionaryについて kanabun 10/12/9(木) 19:11 発言
【67576】Re:Dictionaryについて 八家九僧陀 10/12/15(水) 0:57 お礼
【67577】Re:Dictionaryについて kanabun 10/12/15(水) 9:25 発言
【67582】Re:Dictionaryについて 八家九僧陀 10/12/15(水) 22:30 お礼
【67493】Re:Dictionaryについて UO3 10/12/9(木) 10:21 回答
【67494】Re:Dictionaryについて kanabun 10/12/9(木) 11:19 発言
【67496】Re:Dictionaryについて UO3 10/12/9(木) 14:18 発言
【67499】Re:Dictionaryについて kanabun 10/12/9(木) 16:06 発言
【67509】Re:Dictionaryについて 八家九僧陀 10/12/9(木) 18:31 お礼

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