Option Explicit
Sub uniformRndWithSeed()
    Dim n As Long, seedvalue As Variant, i As Long
    '初期値指定　サンプルとシード値の2つ．シード値は負で
    n = 100
    seedvalue = -1.5
        
    '新シートに乱数出力
    Rnd (seedvalue)
    Sheets.Add
    For i = 1 To n
        Cells(i, 1) = Rnd
    Next
    MsgBox ActiveSheet.Name & "に" & n & "個の[0,1)の一様乱数が完成"
End Sub
