Excel VBA でランダム文字列を生成

手っ取り早いランダム文字列を生成するExcel マクロを作成しました。

文字列の長さは8文字。生成した文字列をアクティブセルに表示します。

Sub RandomStr()
    On Error GoTo ErrHandler
   
    Const maxChars = 8
    
    Dim str As String
    Dim i As Integer
    Dim c As Integer
    Dim res As String
    
    str = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    res = ""
    Randomize

    For c = 1 To maxChars
        ' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
        i = Int((Len(str) - 1 + 1) * Rnd + 1)
        res = res & Mid(str, i, 1)
    Next
    
    Debug.Print res
    ActiveCell.Value = res
    
    Exit Sub
ErrHandler:
    Debug.Print Err.Number & ":" & Err.Description
    Resume Next
End Sub