Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
28381 / 76738 ←次へ　｜　前へ→
【53656】Re:ラベルにランダムに表示させる
発言  じゅんじゅん  - 08/1/29(火) 21:28 -
引用なし
パスワード
   重複しない乱数ってこんな感じの事でしょうか？

Private d As String

Sub aa()
Dim i As Integer
Do
　　If Len(d) = 5 Then d = "": Exit Sub
　　Randomize
　　i = Int((5 * Rnd) + 1)
　　If InStr(d, CStr(i)) = 0 Then
　　　 d = d & CStr(i): Exit Do
　　End If
Loop
Debug.Print i, d
End Sub

発生した数値（i)を文字列(d)に連結していき、同じ数字がない事を確認してます。
ご参考になれば。
1 hits
▼ 【53653】ラベルにランダムに表示させる ルネッサ 08/1/29(火) 18:45 質問
【53654】Re:ラベルにランダムに表示させる VBWASURETA 08/1/29(火) 20:02 質問
【53655】Re:ラベルにランダムに表示させる ルネッサ 08/1/29(火) 20:38 回答
【53656】Re:ラベルにランダムに表示させる じゅんじゅん 08/1/29(火) 21:28 発言≪
【53657】Re:ラベルにランダムに表示させる ルネッサ 08/1/29(火) 21:46 お礼
【53667】Re:ラベルにランダムに表示させる VBWASURETA 08/1/30(水) 10:15 発言
【53668】Re:ラベルにランダムに表示させる ハチ 08/1/30(水) 12:27 発言
【53709】Re:ラベルにランダムに表示させる ルネッサ 08/2/4(月) 12:18 質問
【53710】Re:ラベルにランダムに表示させる ハチ 08/2/4(月) 13:05 発言
【53711】Re:ラベルにランダムに表示させる ルネッサ 08/2/4(月) 14:21 お礼
【53712】Re:ラベルにランダムに表示させる ハチ 08/2/4(月) 14:40 回答
【53719】Re:ラベルにランダムに表示させる ルネッサ 08/2/4(月) 17:04 お礼
【53669】Re:ラベルにランダムに表示させる ルネッサ 08/1/30(水) 14:25 お礼
【53728】Re:ラベルにランダムに表示させる VBWASURETA 08/2/5(火) 10:40 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
28381 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free