.怎么在EXCEL单元格内随机生成16位数字字母混合的密码，要求字母要大写的。

发布网友发布时间：2022-04-23 06:42

共3个回答

热心网友时间：2023-10-06 03:33

1楼的答案会有一些特殊字符（非大写字母，非数字）。我为什么昨天推荐你用宏，公式太麻烦了：=CHAR(CHOOSE(INT(RAND()*2)+1,SMALL(ROW(48:57),INT(RAND()*10)+1),SMALL(ROW(65:90),INT(RAND()*26)+1)))这个公式回车时同时按Ctrl和Shift键，返回一个大写字母或者数字。4个就是：
=CHAR(CHOOSE(INT(RAND()*2)+1,SMALL(ROW(48:57),INT(RAND()*10)+1),SMALL(ROW(65:90),INT(RAND()*26)+1)))&CHAR(CHOOSE(INT(RAND()*2)+1,SMALL(ROW(48:57),INT(RAND()*10)+1),SMALL(ROW(65:90),INT(RAND()*26)+1)))&CHAR(CHOOSE(INT(RAND()*2)+1,SMALL(ROW(48:57),INT(RAND()*10)+1),SMALL(ROW(65:90),INT(RAND()*26)+1)))&CHAR(CHOOSE(INT(RAND()*2)+1,SMALL(ROW(48:57),INT(RAND()*10)+1),SMALL(ROW(65:90),INT(RAND()*26)+1)))就是&链接了4个，16个你自己链接吧。必须同时按Ctrl、Shift、Enter

热心网友时间：2023-10-06 03:33

没有函数，建议你用专门的密码生成软件。

热心网友时间：2023-10-06 03:34

Public Function RandA()
Dim Rst As String
For i = 1 To 16
Do
Tmp = Int(Rnd() * 255)
If (Tmp >= 65 And Tmp <= 90) Or (Tmp >= 48 And Tmp <= 57) Then
Exit Do
End If
Loop
Rst = Rst + Chr(Tmp)
Next
RandA = Rst
End Function

热心网友时间：2023-10-06 03:33

没有函数，建议你用专门的密码生成软件。

热心网友时间：2023-10-06 03:34