R
R Avery
what is the fastest VBA code to generate a list of random strings of a
specified length.
the function prototype i want is
sub GetUniqueStrings(Strings() as string, Length as long)
The one i had been using seems slow when using it to generate lots of
strings, and i was wondering if there was a way to speed it up. Thanks!
Public Function GetUniqueString(ByVal NumChars As Long) As String
Dim i As Long, str As String
GetUniqueString = Space$(NumChars)
For i = 1 To NumChars
Mid$(GetUniqueString, i, 1) = Chr(RandBetween(97, 122))
Next i
End Function
Public Function RandBetween(ByVal LB As Long, ByVal UB As Long) As Long
RandBetween = LB + Round(Rnd * (UB - LB), 0)
End Function
specified length.
the function prototype i want is
sub GetUniqueStrings(Strings() as string, Length as long)
The one i had been using seems slow when using it to generate lots of
strings, and i was wondering if there was a way to speed it up. Thanks!
Public Function GetUniqueString(ByVal NumChars As Long) As String
Dim i As Long, str As String
GetUniqueString = Space$(NumChars)
For i = 1 To NumChars
Mid$(GetUniqueString, i, 1) = Chr(RandBetween(97, 122))
Next i
End Function
Public Function RandBetween(ByVal LB As Long, ByVal UB As Long) As Long
RandBetween = LB + Round(Rnd * (UB - LB), 0)
End Function