.怎么在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
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