文字数を指定して0-9,A-Zまでのランダムな文字列を生成するマクロです。
別の処理で使う予定だったのですが、結局使う機会が無くなってしまったのでメモとして残しておきます。
Option Explicit
Public Sub Sample()
Debug.Print MakeRndStr(100)
End Sub
Private Function MakeRndStr(ByVal LenNum As Long) As String
'0-9,A-Zまでのランダムな文字列を生成
Dim ret As String
Dim num As Integer
ret = "" '初期化
Do
num = RndScope(48, 90)
Select Case num
Case 58 To 64
Case Else
ret = ret & ChrW(num)
End Select
Loop Until Len(ret) >= LenNum
MakeRndStr = ret
End Function
Private Function RndScope(ByVal MinNum As Long, MaxNum As Long) As Integer
'指定した範囲の乱数を生成
Dim ret As Integer
Randomize
ret = Int(Rnd() * (MaxNum - MinNum + 1) + MinNum)
RndScope = ret
End Function

















この記事へのコメントはありません。