Excel VBA質問箱 IV

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

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


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

11582 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【15419】ランダムに数字を入れる YOU 04/6/24(木) 13:01

【15420】Re:ランダムに数字を入れる ちゃっぴ 04/6/24(木) 13:33

【15429】Re:ランダムに数字を入れる YOU 04/6/24(木) 14:58

【15431】Re:ランダムに数字を入れる ちゃっぴ 04/6/24(木) 15:04

【15434】Re:ランダムに数字を入れる [名前なし] 04/6/24(木) 15:12

【15436】Re:ランダムに数字を入れる YOU 04/6/24(木) 15:56


	【15419】ランダムに数字を入れる

YOU - 04/6/24(木) 13:01 -


	引用なし

	パスワード

教えてください。
Ａ１からＡ５の５つのセルに
２～１２までの数字をダブらないように
出したいと思います。

『Int((12 - 2 + 1) * Rnd + 2)』
を使ってセル毎にランダムに出す
ことは出来ました。
しかし、数字がダブって出ることが
あります。

お知恵を拝借します。


	【15420】Re:ランダムに数字を入れる

ちゃっぴ - 04/6/24(木) 13:33 -


	引用なし

	パスワード

一度コレクションに入れてみては？

Keyが同じだとエラーになるのでトラップしてやれば
簡単に12個の配列が出来ます。

それをセルに出力してやればいいと思います。


	【15429】Re:ランダムに数字を入れる

YOU - 04/6/24(木) 14:58 -


	引用なし

	パスワード

▼ちゃっぴさん：
>一度コレクションに入れてみては？
>
>Keyが同じだとエラーになるのでトラップしてやれば
>簡単に12個の配列が出来ます。
>
>それをセルに出力してやればいいと思います。

まだまだ勉強不足です。
全然コードが見えてきません。
もう少し詳しく教えていただける方いらしたら
お願いします。


	【15431】Re:ランダムに数字を入れる

ちゃっぴ - 04/6/24(木) 15:04 -


	引用なし

	パスワード

　質問する前に、自分でグーグル等で検索を掛けて調べてみては如何でしょうか？


	【15434】Re:ランダムに数字を入れる

[名前なし] - 04/6/24(木) 15:12 -


	引用なし

	パスワード

▼ちゃっぴさん：
>　質問する前に、自分でグーグル等で検索を掛けて調べてみては如何でしょうか？

あらら２人になっちゃった。

とりあえずコレクションの使い方

Sub sdfa()
　　Dim colNumber As New Collection
　　Dim intRndNo　As Integer
　　Dim vntRndNo As Variant
　　
　　'エラートラップ
　　On Error Resume Next
　　Do
　　　　intRndNo = Int(11 * Rnd) + 2
　　　　'コレクション格納
　　　　colNumber.Add intRndNo, "Key" & intRndNo
　　Loop Until colNumber.Count = 11
　　On Error GoTo 0
　　
　　For Each vntRndNo In colNumber
　　　　Debug.Print vntRndNo
　　Next vntRndNo
End Sub

わからないところは、ヘルプで調べてみてね☆


	【15436】Re:ランダムに数字を入れる

YOU - 04/6/24(木) 15:56 -


	引用なし

	パスワード

▼[名前なし] さん：
　おかげさまでやりたい事が出来ました。ありがとうございました。

▼ちゃっぴさん：
　すいませんでした。今後気を付けます。

コレクションや、key について知る事が出できました。
ありがとうございます。


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

11582 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free