[已解决]两位字母+3位数值

xhuang

以下VBA如何现实在指定单元格显示整数位数为四位（不显示一位至二位数，且不能重复），请帮忙！

要求两位字母+3位数值(高手已经帮忙解决，详细如下）

Sub test2()
    For Each ag In Selection
         S = ""
        s1 = Chr(Int(26 * Rnd() + 65))
        s2 = Chr(Int(26 * Rnd() + 65))
        For I = 1 To 3
        S = S & Int(10 * Rnd())
        Next
        S = s1 & s2 & S
         If ag.Value = "" Then
             ag.Value = S
         End If
     Next
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2013-12-27 22:01

随机数.rar (7.01 KB, 下载次数: 11)

2013-12-27 22:01 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

Sub GetRand()
    Dim S$, D, I%
    Set D = CreateObject("scripting.dictionary")
    Selection.NumberFormatLocal = "@"
    W = Selection.Count
       Do
       S = ""
        For I = 1 To 4
        S = S & Int(10 * Rnd())
        Next
       D(S) = ""
    Loop Until D.Count = W
    K = D.KEYS
    For I = 1 To Selection.Count
       Selection(I) = Format(K(I - 1), "0000")
    Next
End Sub

zjdh

随机数.rar (7.01 KB, 下载次数: 11)

2013-12-27 22:01 上传

点击文件名下载附件