2009年7月アーカイブ

資料請求のデータ処理システムで、パスワードを自動作成するルーチンが必要に

なりました。

そこで試験的に、Excelを使って、ちょっとした「パスワード自動作成シート」を作っ

てみました。

パスワードは、ランダムに自動生成しつつ、その前後に任意の文字列を付加でき

るようにしています。また、

　・パスワードに利用する文字

　・ランダム部分のパスワードの文字数

も指定可能です。

マクロを実行すると、次図の10行目以下のように、次々とパスワードがセルに入

力されていきます。

ソースはこれだけです。

'↓－－－－－－－－－－ここから

Option Explicit

Sub subMakePW()

    If ActiveCell.Value <> "" Then
        Exit Sub
    End If

    Dim strRiyo As String
    Dim intKeta As Integer
    Dim strBefore As String
    Dim strAfter As String

    Dim intII As Integer
    Dim strPW As String
   
    strRiyo = Cells(1, 2)
    intKeta = Cells(2, 2)
    strBefore = Cells(3, 2)
    strAfter = Cells(4, 2)

    strPW = ""
    Randomize
    For intII = 1 To intKeta
        strPW = strPW & Mid(strRiyo, Int((Rnd * Len(strRiyo))) + 1, 1)
    Next intII

    ActiveCell.Value = strBefore & strPW & strAfter
    ActiveCell.Offset(1, 0).Select

End Sub

'↑－－－－－－－－－－ここまで

サンプルファイルは、自己責任にて

こちらを  [右クリック]－ [対象をファイルに保存] 。

てゆーか、あっというまに７月。

サクランボが美味しい季節です。

そしてもうすぐ、葡萄に梨、くだもの盛りだくさんの季節ですねー。