Excel VBA質問箱 IV

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

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


11563 / 13646 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   教えてください。
A1からA5の5つのセルに
2〜12までの数字をダブらないように
出したいと思います。

『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 -

引用なし
パスワード
   ▼ちゃっぴ さん:
> 質問する前に、自分でグーグル等で検索を掛けて調べてみては如何でしょうか?

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

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

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 について知る事が出できました。
ありがとうございます。

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