Excel VBA質問箱 IV

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

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


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

62701 / 76738

←次へ　｜　前へ→


	【18642】Re:乱数（重複なし）の発生は？

ponpon - 04/10/2(土) 17:43 -


	引用なし

	パスワード

▼ちゃっぴさん：
　こんばんは。
　ちゃんと動きました。

>For i = 1 To 20
>　　Cells(i, 5).Value = colNumber(i)　
>Next　　　　　　　　　　　　↑
　　　　　　　　　　　　vntRndNo(i)となってました。

　　　　！！ベンチマーク結果発表！！

　>1の配列をループで一つ一つ調べる方法
　　　　一回の平均　35.2ms

　>2のApplication.Match関数を使う方法
　　　　一回の平均　36.6ms

　>3の乱数を文字列として格納する方法
　　　　一回の平均　37.6ms

　>4シートを使ってCountifを使った方法
　　　　一回の平均　117ms

　>5ユーザー定義のコレクションを使った方法
　　　　一回の平均　40ms

　>6ユーザー定義のコレクション（For Each ～ Next）を使った方法
　　　　一回の平均　24ms

　◎>7ユーザー定義のコレクション（セルへの出力処理に配列）を使った方法
　　　　一回の平均　6ms
　　　　速！速！　めちゃくちゃ早かったです。びっくり！

※シートを使ってちまちまベタ菜コードを書いていると、速度を無茶苦茶犠牲にしていることがわかりました。勉強して早いコードをかけるようにがんばりたいです。
これからもまた、よろしくお願いします。
　　

0 hits

▼

【18624】乱数（重複なし）の発生は？ ponpon 04/10/1(金) 22:13