Option Explicit '生成するパスワードの桁数 Const N = 9 Dim MOJI,CNT,RESULT,i 'パスワードに使用する文字 MOJI = "ABCDEFGHIJKLMNPQRSTUVWXYZ" & _ "abcdefghijkmnpqrstuvwxyz" & _ "0123456789" CNT = Len(MOJI) RESULT = "" Randomize For i = 1 To N RESULT = RESULT + Mid(MOJI, Int(Rnd * CNT) + 1, 1) Next InputBox "パスワード", "パスワード", RESULT