Written by This function will return random text (a-z) for the specified length. For ex. Randtxt(5) will return xythp.
‘—————————————————————————————
‘ Procedure : Randtxt
‘ DateTime : 10/23/2005 11:54
‘ Author : Ashutosh
‘ Purpose :This function will return random text for the specified no. of chars
‘ 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
Recent Comments