[[20101204135236]]　『ランダムな並べ替えVBAで』（MooN）　ページの最後に飛ぶ

『ランダムな並べ替えVBAで』（MooN）
下記コードから出た数字をランダムに並べたいのですがやり方を教えてください。

 Sub RAND()
    Dim i&
    Dim myCnt As Long
    For myCnt = 1 To 1
      For i = 1 To 9
         n = n + 1
           Cells(n + 5, 5).Value = i * 1 
      Next
    Next myCnt
 End Sub

探していたら見つかりましたから解決しました。（MooN）

 解決したマクロを記載してください。
 (初心者)

 たぶん、こんなので良いのでは？

    Sub rand2()
    Dim myC As New Collection
    Dim res(1 To 9, 1 To 1) As Long
    Dim i As Long
    For i = 1 To 9
      myC.Add i
    Next i
    Randomize
    For i = 1 To 9
      myRnd = Int(Rnd * myC.Count + 1)
      res(i, 1) = myC.Item(myRnd)
      myC.Remove (myRnd)
    Next i
    Range("E6:E14").Value = res
    End Sub

 にしても、最初のコードはいらないループや計算がありますね？
 （ｍｏｍｏ）

コメント返信：

[ 一覧(最新更新順) ]

[[20101204135236]] 『ランダムな並べ替えVBAで』（MooN） ページの最後に飛ぶ

[[20101204135236]]　『ランダムな並べ替えVBAで』（MooN）　ページの最後に飛ぶ