수다닷컴

Function Random_String(ByVal Length As Long) As String Randomize()
Dim StrA As String Dim i As Long
Random_String = StrA = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
Do If i = Length Then : Exit Do Random_String = Random_String & Mid(StrA, Int((Len(StrA)) * Rnd) + 1, 1) i = i + 1 End If Loop End Function
=====
Dim KeyNum As StringKeyNum = Random_String(16)key= & KeyNum
이처럼 했는데 안되는거같아서요.key= & KeyNum 이걸 여러군데에 쓰면 계속 새로운 랜덤값을 구하는지 아니면 한번구해온 랜덤값을 그대로 사용하는지 알고싶어서요.
추가소스는 덧글로 부탁해주세요!!

신청하기