[已解决]如何随机产生随机字符串？

tough2010 · 发表于 2011-11-21 14:59

我现在要在单元格A1中产生一串80个字符（含A～Z,a~z)的随机字符串，请高手帮忙？求代码

最佳答案

suye1010

2011-11-21 15:57

本帖最后由 suye1010 于 2011-11-21 16:01 编辑

Sub RA()
Dim i As Integer, s As String, s1 As String
For i = 1 To 80
Randomize
s = Chr(IIf(10 * Rnd > 5, Int(26 * Rnd + 65), Int(26 * Rnd + 97)))
s1 = s1 & s
Next i
Cells(1, 1) = s1
End Sub

跳转到最佳答案楼层

菜鸟锐 · 发表于 2011-11-21 15:03

我也不会，正好学习一下。{:011:}帮你顶一下

suye1010 · 发表于 2011-11-21 15:57

这个最佳答案由 suye1010 给出，感谢 suye1010 的回答。

单击隐藏图章

本帖最后由 suye1010 于 2011-11-21 16:01 编辑

Sub RA()
Dim i As Integer, s As String, s1 As String
For i = 1 To 80
Randomize
s = Chr(IIf(10 * Rnd > 5, Int(26 * Rnd + 65), Int(26 * Rnd + 97)))
s1 = s1 & s
Next i
Cells(1, 1) = s1
End Sub

liuts · 发表于 2011-11-21 16:10

Sub aa()
    Dim sr As String * 80
    For i = 1 To 80
'        Mid(sr, i, 1) = Chr(Int(65 + Rnd * (122 - 65))) '带下划线等符号的
        Mid(sr, i, 1) = Chr(IIf(10 * Rnd > 5, Int(26 * Rnd + 65), Int(26 * Rnd + 97))) '纯字母的
    Next
    Range("A1") = sr
End Sub

qq92380906 · 发表于 2012-10-25 19:54

正是我需要的功能，太感谢了

上清宫主 · 发表于 2012-10-25 21:05

多个变量少点判断

s$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i = 1 To 80
s1 = s1$ & Mid(s, Int(Rnd() * 52 + 1), 1)
Next

02761752696 · 发表于 2017-9-26 10:28

学习学习

		自动登录	找回密码
密码			注册