Rnd関数で乱数を取得。使えない戻り値を加工して利用度を上げる

Sub Rnd関数テスト1()
    Dim i As Long
        For i = 3 To 10
            Range("B" & i) = Rnd
        Next i
End Sub

Sub Rnd関数テスト2()
    Dim i As Long
        For i = 3 To 10
            Range("B" & i) = Rnd
        '1桁の整数の乱数を発生させる
            Range("C" & i) = Int(Rnd * 10)
        '2桁の整数の乱数を発生させる
            Range("D" & i) = Int(Rnd * 100)
        Next i
End Sub

Sub Rnd関数テスト3()
    Dim i As Long
        For i = 3 To 10
            Range("B" & i) = Rnd
        '5から15の整数の乱数を発生させる
            Range("C" & i) = Int(Rnd * 11 + 5)
        '25から50の整数の乱数を発生させる
            Range("D" & i) = Int(Rnd * 26 + 25)
        Next i
End Sub

Sub Rnd関数テスト4()

    Dim i As Long, j As Long, k As Long
    
'Sortメソッド利用

    '乱数を取得、ID番号を付与
        For i = 5 To 25
            Range("A" & i - 2) = i
            Range("B" & i - 2) = Rnd
        Next i
    '取得乱数を小さいもの順に並び替え
        Range("A3:B23").Sort key1:=Range("B3"), order1:=xlAscending
    '乱数の順位付け
        For j = 5 To 25
            Range("C" & j - 2) = j
        Next j
    'ID番号で元の状態（取得順）に並べ直し
        Range("A3:C23").Sort key1:=Range("A3"), order1:=xlAscending
        
        Range("A2") = "ID番号"
        Range("C2") = "Sort利用"

'ワークシート関数Rank利用
    
        For k = 5 To 25
            Range("E" & k - 2) = _
            WorksheetFunction.Rank(Range("B" & k - 2), Range("B3:B23"), 1) + 4
    '乱数を10個だけ取得する時
            If k - 2 > 12 Then Exit For
        Next k
        
        Range("E2") = "Rank利用"

End Sub

Sub 配列要素から順位を取得()

    Dim i As Long, j As Long, k As Long, n As Long, p As Long
    Dim V(1 To 100000) As Variant
    Dim Rn(1 To 100000) As Long
    '10万回乱数を発生させます。配列変数に格納します。
        For i = 1 To 100000
            V(i) = Rnd
        Next i
    '要素1対1の比較、カウント。配列変数にカウント数を格納します。
        For j = 1 To 100000
            n = 1
            For k = 1 To 100000
                If V(j) - V(k) < 0 Then
                    n = n + 1
                    Rn(j) = n
                Else
                    Rn(j) = n
                End If
            Next k
        Next j
    '順位1位の出現回を調べる。
        For p = 1 To 100000
            If Rn(p) = 1 Then
                MsgBox "最大値（1位）の出現は" & p & " 回目でした。"
                Exit For
            End If
        Next p

End Sub

Sub Rnd関数でパスワード()
    Dim i As Long, C As Long, R As Long
    Dim Key As Long, KE As String
    Dim Word(1 To 40) As String, Pass As String
    '乱数の発生がパターン化しないようにします
        Randomize
        For i = 1 To 8
　　'1から10までの整数値に加工します
            Key = Int(Rnd * 40 + 1)
　　'取得した乱数からセル番地を作ります
            C = WorksheetFunction.RoundUp(Key / 10, 0) + 1
            R = Key Mod 10 + 1
            If R = 1 Then R = 11
'[ここから→]
            Word(Key) = Cells(R, C)
            Pass = Pass + Word(Key)
            KE = KE & Key & " , "
'[←ここまで]
        Next i
        Range("B14") = Pass
        Range("B15") = KE
End Sub