015集——vba 产生随机字符

山水CAD插件定制

已于 2024-04-01 11:31:21 修改

阅读量279

点赞数

CC 4.0 BY-SA版权

分类专栏：函数（VBA）文章标签： vba

于 2024-04-01 09:51:48 首次发布

本文链接：https://blog.youkuaiyun.com/yongshiqq/article/details/137198995

函数（VBA）专栏收录该内容

47 篇文章

订阅专栏

第一个随机字符随机8个字符（具体数字可自己设定），第二个随机字符为1个特殊字符，2个数字和5个字母（可自己设置），同时包含了数字、字母、特殊字符。

Sub 产生随机字符()
'yngqq：443440204@2024年3月31日13:52:59
Dim str As String, n As Integer
n = 8
str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#$%:&*()_+-/"
str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
str2 = "0123456789"
str3 = "!@#$%^&*()"
For i = 1 To n
Randomize
    mystr = Mid(str, Int(1 + Len(str) * Rnd), 1)
    myrnd1 = myrnd1 & mystr
Next i

For i = 1 To n - 3
Randomize
    mystr1 = Mid(str1, Int(1 + Len(str1) * Rnd), 1)
    mycode1 = mycode1 & mystr1
Next i
For i = 1 To 2
Randomize
    mystr2 = Mid(str2, Int(1 + Len(str2) * Rnd), 1)
    mycode2 = mycode2 & mystr2
Next i
For i = 1 To 1
Randomize
    mystr3 = Mid(str3, Int(1 + Len(str3) * Rnd), 1)
    mycode3 = mycode3 & mystr3
Next i
myrnd2 = mycode1 + mycode2 + mycode3
Stop
MsgBox "第一个随机字符是" & myrnd1 & vbCr & "第二个随机字符是" & myrnd2, , "qq：443440204"
End Sub