自動化・効率化ならKTパソコンスクール

'8桁のパスワードを生成する関数

Sub CreatePasswords()

    Dim i As Integer

    Dim x As Integer

    Dim passwords As String

    Dim c As Variant    

    c = Array _

    ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", _

    "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", _

    "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", _

    "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", _

    "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")    

    Randomize   '乱数発生関数を初期化

    For i = 0 To 7

        x = Int(Rnd() * 62)    '0～61の数をランダムに生成

        passwords = passwords + c(x)

    Next i

    Range("A1") = "'" + passwords

End Sub