大家好！本人是2007，附件有说明，非常感谢老师！

weifengcz · 发表于 2024-8-11 08:05

本帖最后由 weifengcz 于 2024-8-11 08:58 编辑

利用宏代码，在指定的一个单元格中生成一个不重复的随机四位数字字符串，字符串类型范围（0000~9999）

生成随机数的代码2024.zip (198.02 KB, 下载次数: 9)

无关岁月 · 发表于 2024-8-11 08:32

本帖最后由无关岁月于 2024-8-11 08:35 编辑

副本生成随机数的代码2024.7z (145.3 KB, 下载次数: 5)

屏幕截图 2024-08-11 083058.png

ynzsvt · 发表于 2024-8-11 08:33

原来的代码就不能保证行内不重复。

weifengcz · 发表于 2024-8-11 08:58

非常感谢老师！！！

3190496160 · 发表于 2024-8-11 08:59

Sub 随机数()
Dim ar()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ls = [g1]
ReDim ar(1 To 1000, 1 To ls)
For j = 1 To ls
d.RemoveAll
n = 0
Do
      sjs = Application.RandBetween(0, 9999)
      If Not d.Exists(sjs) Then
         n = n + 1
         If n > 1000 Then GoTo 10
         ar(n, j) = Format(sjs, "000")
         d(sjs) = ""
      End If
Loop
10:
Next j
y = Cells(4, Columns.Count).End(xlToLeft).Column
Range(Cells(4, 8), Cells(1003, y)) = Empty
[h4].Resize(1000, ls) = ar
Set d = Nothing
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-8-11 08:59

生成随机数的代码2024.rar (238.19 KB, 下载次数: 3)

weifengcz · 发表于 2024-8-11 09:24

3190496160 发表于 2024-8-11 08:59

非常感谢老师！

		自动登录	找回密码
密码			免费注册

[已解决] 大家好！本人是2007，附件有说明，非常感谢老师！

评分

评分