如何使用VBA生成随机字符串

如题所述

例如,生成10个随机字符的字符串代码:

Option Explicit

Sub YgB()
    Dim i, s
    For i = 1 To 10
        s = s & Chr(Rnd() * 26 + Asc("A"))
    Next i
    MsgBox s
End Sub

执行效果:


温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网