excel怎么随机产生10位混合密码？

Question

如题所述

Answer 1

LS都是高手啊，小弟借问下(RAND()*9+48,RAND()*25+65,RAND()*25+97)，用哪个函数调出里面3个random中任意一个数值，用or就变成判断了，结果为TRUE

我的方法和几位相同，concatenate,char,但是会有大小英文和数字这3种结果，code码又不相连，所以要从上述3个条件中选一个

请教请教，麻烦告知不胜感激

折中实现大小写字母和数字混合的密码
=CONCATENATE(CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))),CHAR(INT(CHOOSE(INT(RAND()*2.999+1),RAND()*9+48,RAND()*25+65,RAND()*25+97))))

Answer 2

按ALT+F11组合键，调出VBA窗口，插入一个模块，把下面代码复制进去，执行即可得到10位随机数
Sub b()
Dim r As Integer
Dim n As String
Randomize
For i = 1 To 10 '随机数10位
r = Rnd() * 2
If r = 0 Then
t = Int(Rnd() * 9)
Else
t = Chr(Rnd() * (122 - 97) + 97)
End If
n = n & t
Next
MsgBox n
End Sub