【VBA】無作為パスワードを返すユーザー定義関数

　小文字のアルファベットと 0 から 9 の数字を組合わせて ランダムパスワード を返す関数を作ってみましたよ。やっぱりパスワードはランダムなほうが安全ですね。

　え？　こばとがどんなパスワード使ってるかって？
　それはもちろん “kobato_chan” ですよ！
　… 冗談に決まってるでしょ。
　だって、こばと、バカじゃないし。

【VBA】ランダムパスワード

　まず簡単にマクロの構造を説明しておきます。アルファベットは全部で 26 文字、0 から 9 の数字は全部で 10 文字なので、その比率は

26：10 = 13：5

となります。ですから、まず最初に 1 ～ 18 の乱数を発生させます。その数字によって次のように処理を分枝させます。

[1 ～ 5 の数字が出た場合]
　0 ～ 9 の乱数を発生させてパスワードの文字列に加えます。

[6 ～ 18 の数字が出た場合]
　97～122の乱数を発生させて、Chr 関数で対応するアルファベットに変換してパスワードの文字列に加えます。

　以上の処理を指定文字数ぶんだけ繰り返しますよ。

'[VBA] ランダムパスワード生成関数

Function PASSWORD(n As Integer)

　　Dim i As Integer
　　Dim rd0 As Integer
　　Dim rd1 As Integer
　　Dim rd2 As Integer
　　Dim myword As String

　　Randomize

　　For i = 1 To n
　　　　'1～18の乱数を発生させます
　　　　rd0 = Int(RND * 18 + 1)
　　　　Select Case rd0
　　　　　　Case 1 To 5
　　　　　　　　'0～9の乱数を発生させます
　　　　　　　　rd1 = Int(RND * 10)
　　　　　　　　myword = myword & rd1
　　　　　　Case Else
　　　　　　　　'97～122の乱数を発生させます
　　　　　　　　rd2 = Int(RND * 26 + 97)
　　　　　　　　'乱数に対応したアルファベットを加えます
　　　　　　　　myword = myword & Chr(rd2)
　　　　End Select
　　Next i

　　PASSWORD = myword

End Function

　PASSWORD()関数を使うときはパスワードの文字数を引数に指定して

=PASSWORD(文字数)

と入力してください。たとえば

=PASSWORD(8)

と入力すると “m1shtro3” みたいな 8 文字のランダムパスワードが返ってきます。今回のポイントとなるコードは

myword = myword & Chr(rd2)

という部分です。変数 rd2 には 97 ～ 122 の数字が入っているわけですが、Chr関数でそれぞれの数字に対応する a ～ z のアルファベットに変換してパスワードの文字列に加えているのです。