[已解决]用VBA随机数字和小写英文混合(范围6至18位)

laoau138

用VBA随机数字和小写英文混合(范围6至18位)

最佳答案

月排行榜 / 总排行榜

grf1973

2017-4-21 10:29

1. Sub tt()
   
2.     n = InputBox("Please Input xxxxxx...")
   
3.     If Not IsNumeric(n) Then MsgBox "Error!": Exit Sub
   
4.     If n < 6 Or n > 18 Then MsgBox "Error!": Exit Sub
   
5.     Randomize
   
6.     xstr = "0123456789abcdefghijklmnopqrstuvwxyz"
   
7.     For k = 1 To n
   
8.         p = Int(37 * Rnd())      '产生1--36的随机整数
   
9.         x = x & Mid(xstr, p, 1)
   
10.     Next
    
11.     [a1] = x
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

大灰狼1976

不排除重复

1. Sub aaa()
   
2. Dim arr, s$, n&, i&
   
3. arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
   
4. n = InputBox("Please Input xxxxxx...")
   
5. If Not IsNumeric(n) Then MsgBox "Error!": Exit Sub
   
6. If n < 6 Or n > 18 Then MsgBox "Error!": Exit Sub
   
7. Randomize (Now())
   
8. For i = 1 To n
   
9.   s = s & arr(Int(Rnd() * 36))
   
10. Next i
    
11. [a1] = s
    
12. End Sub

复制代码

大灰狼1976

排除重复

1. Sub bbb()
   
2. Dim arr, s$, s1$, n&, n1&, i&, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
   
5. n = InputBox("Please Input xxxxxx...")
   
6. If Not IsNumeric(n) Then MsgBox "Error!": Exit Sub
   
7. If n < 6 Or n > 18 Then MsgBox "Error!": Exit Sub
   
8. Randomize (Now())
   
9. Do
   
10.   s1 = arr(Int(Rnd() * 36))
    
11.   If Not d.exists(s1) Then
    
12.     d(s1) = ""
    
13.     s = s & s1
    
14.     n1 = n1 + 1
    
15.   End If
    
16. Loop Until n1 = n
    
17. [a1] = s
    
18. End Sub

复制代码

砂海

字符 = chr( 数字)
字符0-9  对应数字为 48-57
字符a-z   对应数字为 97-122

大灰狼1976

砂海 发表于 2017-4-21 09:17
字符 = chr( 数字)
字符0-9  对应数字为 48-57
字符a-z   对应数字为 97-122

字符对应数字我知道，但是不方便混合随机取值。

砂海

随机 1-36

修正=if(随机>10,86,48)

数字 = 随机 + 修正

砂海

只是一种方法 , 反正 都要 曲线救国

大灰狼1976

你写个完整的出来我学习学习。

grf1973

1. Sub tt()
   
2.     n = InputBox("Please Input xxxxxx...")
   
3.     If Not IsNumeric(n) Then MsgBox "Error!": Exit Sub
   
4.     If n < 6 Or n > 18 Then MsgBox "Error!": Exit Sub
   
5.     Randomize
   
6.     xstr = "0123456789abcdefghijklmnopqrstuvwxyz"
   
7.     For k = 1 To n
   
8.         p = Int(37 * Rnd())      '产生1--36的随机整数
   
9.         x = x & Mid(xstr, p, 1)
   
10.     Next
    
11.     [a1] = x
    
12. End Sub
    

复制代码

grf1973

6楼方法最妙。

1. Sub tt()
   
2.     n = 10
   
3.     Randomize
   
4.     For k = 1 To n
   
5.         p = Int(36 * Rnd() + 1)    '产生1--36的随机整数
   
6.         x = x & Chr(IIf(p <= 10, p + 47, p + 86))
   
7.     Next
   
8.     [a1] = x
   
9. End Sub
   

复制代码