VBAでIE操作に役立つ指定した桁数でパスワードをランダム自動生成するサブルーチン

前回の「郵便番号をランダムで自動取得」で郵便番号を自動取得しましたが、今回はパスワードをランダム自動生成する方法について解説します。こちらも何かしらのアカウントを新規作成する場合などで利用されることが多いので、非常に便利なプログラムです。

目次

• 指定した桁数でパスワードをランダム自動生成する処理の流れ
• 利用する関数・サブルーチンについて
  • Chr関数とは
  • Int関数とは
  • Rnd関数とは
  • Randomizeステートメントとは
  • makeRndIntとは
• 指定した桁数でパスワードをランダム自動生成するサンプルコード
  • ASCII文字コード表
  • 実行結果
  • 解説
• パスワードをランダム自動生成するサブルーチン「passwordGet」の解説
• 「passwordGet」を利用してランダムでパスワードを自動生成するサンプルコード
  • 実行結果
  • 解説
• まとめ

指定した桁数でパスワードをランダム自動生成する処理の流れ

以下が今回の処理の流れになります。

• ①変数宣言
• ②「For～Nextステートメント」を利用して、指定した桁数回ループ処理
• ③「makeRndInt」を利用して、0～9の数字をランダム抽出し文字結合
• ④Chr 関数とRnd関数を利用して、a～zの英字をランダム抽出し文字結合

利用する関数・サブルーチンについて

• Chr関数とは
• Int関数とは
• Rnd関数とは
• Randomizeステートメントとは
• makeRndIntとは

Chr関数とは

Chr関数は指定したASCIIコードに対応する文字列を返す関数です。
※ASCIIコードの０～31の範囲の文字は表示できません。

Int関数とは

Int関数は小数点以下を切り捨てて整数にする関数です。
※マイナス値の場合は、小さいほうに丸めます。（Int(-10.52)　→ -11

Rnd関数とは

Rnd関数は0以上1未満の乱数を発生させる関数です。戻り値は、単精度浮動小数点数型 (Single) の乱数を返します。また、引数Numberによって、どのような乱数を返すかを指定することもできます。

Randomizeステートメントとは

Randomizeステートメントは乱数ジェネレータを初期化 (乱数系列を再設定) します。Randomizeステートメントを使用しない場合、引数を指定しないでRnd関数を呼び出すと、最初にRnd 関数を呼び出したときのシード値(乱数ジェネレータの状態変数)と同じ値が使用されてしまいます。それ以降も直前に生成された数がシード値として使用されますので、Rnd関数を利用する場合は、必ず初期化させます。

makeRndIntとは

makeRndIntは指定した範囲でランダム（乱数）の整数を取得するマクロです。こちらは戻り値が必要ですので、functionプロシージャで対応しています。引数には取得する整数の「最小値」「最大値」の2つが設定されています。以下が引数の詳細になります。

「minInt」「maxInt」は必須項目です。「minInt」には取得する整数の最小値を設定します。「maxInt」には取得する整数の最大値を設定します。

指定した桁数でパスワードをランダム自動生成するサンプルコード

今回のサンプルコードは指定した桁数で数字のみ・英字のみのパスワードを自動生成するマクロになります。

Sub sample()

    Dim str1 As String, str2 As String
    
    For i = 1 To 5

        '乱数ジェネレータを初期化
         Randomize
        
        '数字(0～9)のみ
        str1 = str1 & makeRndInt(0, 9)
        
         '英字(a～z：ASCII文字コード)のみ
        str2 = str2 & Chr(Int(Rnd * 26) + 97)

    Next i
    
    Debug.Print "数字のみのパスワード：" & str1
    Debug.Print "英字のみのパスワード：" & str2
    
End Sub

ASCII文字コード表

実行結果

ランダムで数字のみ・英字のみのパスワードが生成される。
数字のみのパスワード：91545
英字のみのパスワード：rwfmw

解説

Dim str1 As String, str2 As String

型をを宣言します。

For i = 1 To 5
（省略）
Next

For～Nextステートメントを利用して、5桁のパスワードを生成するためにループ処理をしています。

'乱数ジェネレータを初期化
Randomize

Randomizeステートメントを利用して、乱数をする際に乱数ジェネレータを初期化させます。

'数字(0～9)のみ
str1 = str1 & makeRndInt(0, 9)

makeRndIntを利用して、0～9の中から1文字ランダムで数字を抽出します。また、ループ処理をさせているので、5回数字を結合します。

'英字(a～z：ASCII文字コード)のみ
str2 = str2 & Chr(Int(Rnd * 26) + 97)

Chr関数・Int関数・Rnd関数を利用して、a～z9の中から1文字ランダムで英字を抽出します。Int(Rnd * 26) + 97は、ASCII文字コードの97が英字の小文字「a」で英字は26文字あるので、97～122のASCII文字コードの中からランダムで1文字抽出しています。また、ループ処理をさせているので、5回英字を結合します。

Debug.Print "数字のみのパスワード：" & str1
Debug.Print "英字のみのパスワード：" & str2

数字のみ・英字のみのパスワードをそれぞれ抽出しています。ここでは、数字のみ・英字のみで指定した桁数でランダム生成しましたが、中には英数字を混ぜてパスワードを作成する場合もあります。今度は、こちらも踏まえたサブルーチンを作成していきましょう。

パスワードをランダム自動生成するサブルーチン「passwordGet」の解説

Function passwordGet(cnt As Integer, Optional chrType As String) As String

    Dim i As Integer, n As Integer
    
    For i = 1 To cnt
    
        n = makeRndInt(1, 2)
        
        '乱数ジェネレータを初期化
         Randomize
        
        If chrType = "0-9" Then
            '数字(0～9)
            passwordGet = passwordGet & makeRndInt(0, 9)
        ElseIf n = 1 Or chrType = "a-z" Then
            '英字(a～z：ASCII文字コード)
            passwordGet = passwordGet & Chr(Int(Rnd * 26) + 97)
        Else
            '数字(0～9)
            passwordGet = passwordGet & makeRndInt(0, 9)
        End If
    
    Next i

End Function

こちらが「指定した桁数のパスワードをランダム自動生成するサブルーチン」になります。こちらは戻り値が必要ですので、functionプロシージャで対応しています。引数には「パスワード桁数」「パスワードタイプ」の2つが設定されています。以下が引数の詳細になります。

「cnt」は必須項目です。「cnt」には、パスワードの桁数を設定します。「chrType」には、パスワードのタイプを設定します。「0-9」を指定した場合は、数字のみのパスワードを、「a-z」を指定した場合は英字のみのパスワードを設定します。また、何も指定しない場合は、英数字混合のパスワードを生成します。

「passwordGet」を利用してランダムでパスワードを自動生成するサンプルコード

Sub sample()

  Debug.Print "桁数10桁の英数字パスワード：" & passwordGet(10)
  Debug.Print "桁数8桁の数字パスワード：" & passwordGet(8, "0-9")
  Debug.Print "桁数5桁の英字パスワード：" & passwordGet(5, "a-z")

End Sub

実行結果

桁数10桁の英数字パスワード：i71p206ml2
桁数8桁の数字パスワード：21358937
桁数5桁の英字パスワード：kwoaz

解説

今回は、3つのパスワードを設定しています。パスワードタイプを設定していない場合は英数字パスワードが自動生成されているのが、分かるかとおもいます。

まとめ

今回は、passwordGetサブルーチンを利用して指定した桁数でパスワードを自動生成する方法について解説しました。パスワードを生成してアカウント作成する場合は、必ずパスワードはエクセルシートに保存するようにしましょう。