Sunday, October 23, 2005
Random Text Generator
This function will return random text (a-z) for the specified length. For ex. Randtxt(5) will return xythp.
This sub will return random text for the specified length and number of random texts needed.
'---------------------------------------------------------------------------------------
' Procedure : Randtxt
' DateTime : 10/23/2005 11:54
' Author : Ashutosh
' Purpose :This function will return random text for the specified no. of chars
Function Randtxt(nochars As Byte) As String
On Error GoTo Randtxt_Error
If nochars = 0 Then Exit Function
Dim sResult As String, i As Long
sResult = ""
For i = 1 To nochars
sResult = sResult & Chr(Int(Rnd * (122 - 97) + 97))
Next i
Randtxt = sResult
Exit Function
Randtxt_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in function Randtxt"
End Function
' Procedure : Randtxt
' DateTime : 10/23/2005 11:54
' Author : Ashutosh
' Purpose :This function will return random text for the specified no. of chars
Function Randtxt(nochars As Byte) As String
On Error GoTo Randtxt_Error
If nochars = 0 Then Exit Function
Dim sResult As String, i As Long
sResult = ""
For i = 1 To nochars
sResult = sResult & Chr(Int(Rnd * (122 - 97) + 97))
Next i
Randtxt = sResult
Exit Function
Randtxt_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in function Randtxt"
End Function
This sub will return random text for the specified length and number of random texts needed.
' Procedure : Randtxt1
' DateTime : 10/23/2005 12:12
' Author : Ashutosh
' Purpose : This sub will return and no. of random text random text for the
'specified no. of chars needed starting from the activecell
Sub Randtxt1()
Dim nochars As Byte
Dim nos As Long
nochars = InputBox("Enter the length of the random text", , 1)
nos = InputBox("Enter the number the random texts needed", , 1)
On Error GoTo Randtxt_Error1
If nochars = 0 Then Exit Sub
Dim sResult As String, i As Long, j As Long
For j = 1 To nos
sResult = ""
For i = 1 To nochars
sResult = sResult & Chr(Int(Rnd * (122 - 97) + 97))
Next i
ActiveCell.Offset(j - 1, 0) = sResult
Next j
Exit Sub
Randtxt_Error1:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure Randtxt"
End Sub
' DateTime : 10/23/2005 12:12
' Author : Ashutosh
' Purpose : This sub will return and no. of random text random text for the
'specified no. of chars needed starting from the activecell
Sub Randtxt1()
Dim nochars As Byte
Dim nos As Long
nochars = InputBox("Enter the length of the random text", , 1)
nos = InputBox("Enter the number the random texts needed", , 1)
On Error GoTo Randtxt_Error1
If nochars = 0 Then Exit Sub
Dim sResult As String, i As Long, j As Long
For j = 1 To nos
sResult = ""
For i = 1 To nochars
sResult = sResult & Chr(Int(Rnd * (122 - 97) + 97))
Next i
ActiveCell.Offset(j - 1, 0) = sResult
Next j
Exit Sub
Randtxt_Error1:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure Randtxt"
End Sub
Labels: String Operations
Comments:
Links to this post:
<< Home
This is a great little script. However, it needs to be incremented in the range to 26 letters so Z's will appear.
Others may also appreciate an option with capital letters.
Others may also appreciate an option with capital letters.
I used this for a cell but the text wasn't long enough so I used concatenate to make the string longer...=CONCATENATE(randtxt(200),randtxt(200),randtxt(200),randtxt(200),randtxt(200))
Post a Comment
# posted by 
: 5:11 AM
: 5:11 AM<< Home
