请教老师，调整现有代码,使产生的随机数中可含有重复数，谢谢！

cartel · 发表于 2024-1-11 20:35

请教老师，调整现有代码,使产生的随机数中可含有重复数，谢谢！.zip (17.37 KB, 下载次数: 7)

gwjkkkkk · 发表于 2024-1-11 21:03

Sub test1()
Dim ar, br, s$
ar = Split([BQ1], ",")
ReDim br([BR1].Value - 1)
For i = 0 To UBound(br)
br(i) = Int((UBound(ar) + 1) * Rnd)
Next i
[BS1].Value = Join(br, ",")
End Sub

gwjkkkkk · 发表于 2024-1-11 21:05

重写应该更简单，请参考

cartel · 发表于 2024-1-12 09:52

gwjkkkkk 发表于 2024-1-11 21:05
重写应该更简单，请参考

gwjkkkkk老师，您好！
感谢您的回复！
再想请教下，想要整列自动生成，
请老师看下新附件，谢谢！

cartel · 发表于 2024-1-12 09:52

请gwjkkkkk老师，调整现有代码,随机数中可含有重复数，（新附件）谢谢！.zip (23.83 KB, 下载次数: 2)

ykcbf1100 · 发表于 2024-1-12 10:07

cartel 发表于 2024-1-12 09:52

我用gwjkkkkk老师的代码改一个吧。

ykcbf1100 · 发表于 2024-1-12 10:08

gwjkkkkk老师的代码很简洁，值得学习。

cartel · 发表于 2024-1-12 11:27

ykcbf1100 发表于 2024-1-12 10:07
我用gwjkkkkk老师的代码改一个吧。

ykcbf1100老师，您好！
请教下，
随机产生的数是要按前面每行的数来生成的，
但有些行产生的随机数，是前面没有的，
请老师再看下附件，谢谢！

cartel · 发表于 2024-1-12 11:28

随机产生的数是要按BQ每行来产生的.zip (48.46 KB, 下载次数: 3)

ykcbf1100 · 发表于 2024-1-12 12:06

cartel 发表于 2024-1-12 11:28

改一下吧。

最好是用字典取下最大值。

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

[求助] 请教老师，调整现有代码,使产生的随机数中可含有重复数，谢谢！

评分

评分

评分

评分