Excel VBA質問箱 IV

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

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


28322 / 76732 ←次へ | 前へ→

【53709】Re:ラベルにランダムに表示させる
質問  ルネッサ  - 08/2/4(月) 12:18 -

引用なし
パスワード
   ハチ さん:

教えていただいたコードを試しました.
おかげさまで,重複しない乱数という点は思い通りだったのですが,,,
要素("あ"など)の呈示される場所としてはMsgBoxしか使えないのでしょうか?

フォーム上のラベルに呈示させたくて,いろいろ試してみたのですがうまくいきません.
もしおわかりになれば,方法を教えてください.
よろしくお願いします.

>
>Sub Test()
>  Dim myColl As Collection
>  Dim i As Integer
>  
>  Set myColl = New Collection
>  
>  With myColl
>    '要素の追加
>    .Add "あ"
>    .Add "い"
>    .Add "う"
>    .Add "え"
>    .Add "お"
>
>    '実行
>    Do Until .Count = 0
>      Randomize
>      i = Int((Rnd * .Count) + 1)
>      MsgBox .Item(i)
>      .Remove i
>    Loop
>  End With
>  
>  Set myColl = Nothing
>  
>End Sub

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 発言

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