【已完美解决】根据多种条件，生成随机不重复数

LMY123 · 发表于 2013-4-14 11:19

本帖最后由 LMY123 于 2013-4-14 13:22 编辑

捕获.PNG

根据A2到D2的条件，在A3到c62这个区域生成50-100范围内的不重复随机数，保留两位小数.rar (8.24 KB, 下载次数: 188)

lzyamo3057 · 发表于 2013-4-14 12:00

Sub text()
Dim arr() As Single '定义数组
Dim min As Integer '定义随机数的最小值
Dim max As Integer '定义随机数的最大值
Dim flag As Boolean '定义标志变量，用来判断是否有重复值
Dim rng As Range
Dim n As Integer
n = Val(Range("c2"))
max = Val(Range("b2")) '将b2单元格的数值赋值给最大值
min = Val(Range("a2")) '将a2单元格的数值赋值给最小值
ReDim arr(n) '更改数组大小
For I = 0 To n '循环生成随机数
Do
arr(I) = Rnd() * (max - min) + min '生成随机数
flag = False
For j = 0 To (I - 1) '循环判断当前的随机数是否和前面生成的随机数相同，如果相同就重新生成
If (arr(I) = arr(j)) Then
flag = True
End If
Next
Loop While flag
Next
t = 0
For Each rng In [a3:c42]
rng = Format(arr(t), "0.00")
t = t + 1
Next
End Sub

复制代码

lzyamo3057 · 发表于 2013-4-14 12:01

大概这个意思吧，修改修改下。。

LMY123 · 发表于 2013-4-14 12:24

lzyamo3057 发表于 2013-4-14 12:01
大概这个意思吧，修改修改下。。

多谢大师指导，我仔细研究一下

香川群子 · 发表于 2013-4-14 12:54

本帖最后由香川群子于 2013-4-14 13:05 编辑

功能比楼主要求更复杂的随机取数代码：

功能介绍：
1、2. 指定数值区间 a to b
备注：
   a或b 也可以是负数（直接写成负数即可）
   a或b 也可以是小数（当指定小数数位d时）

3. 指定取数个数m

4. 指定小数位数 d=2

或者指定d=0时，返回整数
或者指定d=负数时，可向上取整数（和=Round()函数一样的用法）
比如 d=-2时，返回 100/400/2300/10300……类似这样的数据。

5. 增加了指定最小间隔的参数h
这个参数的作用是这样的：
h=1时，可以保证抽取的结果不会重复。
h=0时，可以让抽取结果产生随机重复。
h>0时，可以保证抽取结果之间的最小间隔>=h
  → 这个功能很强大！

6. 自动计算取值区间内的不重复数据个数
(这个用工作表函数就能计算得到结果。注意初值需要+1处理)

7. 输出结果可以指定列数l

如果列数l=1，则可纵向按行输出到1列
如果列数=m (取值个数)，则可横向输出为一行。

8. 输出顺序参数r
默认r=0时，使用经典数组洗牌法乱序后输出结果。
如果r=1(或其它值)时，将按从小到大顺序输出结果。

随机取数.rar (8.95 KB, 下载次数: 423)

LMY123 · 发表于 2013-4-14 13:00

香川群子发表于 2013-4-14 12:54
功能比楼主要求更复杂的随机取数代码：

功能介绍：

多谢大师指导，确实太强大了

香川群子 · 发表于 2013-4-14 13:03

补充：如果设定【取值个数】超过数据区间【不重复个数】时：
1. 如果设定了最小间隔=0，那么将会抽取到重复值直至满足取值个数。
2. 如果设定最小间隔>0 (包括h=1时)，则会抽取所有不重复值以后，再以0值代替空余的输出位置。最后乱序输出结果。

附代码：

Sub kagawa() '指定区间内均匀随机取不重复值按指定列数输出
Randomize
d = [d2]: a = [a2] * 10 ^ d: b = [b2] * 10 ^ d
m = [c2]: h = [e2]: l = [g2]: r = [h2]
ReDim c(m - 1)
If b - a < m * h Then c(0) = a Else c(0) = Int(((b - a + 1) / m - h) * Rnd()) + a
n = 0
Do
If b - c(n) < (m - n) * h Then
If c(n) + h <= b Then
c(n + 1) = c(n) + h
Else
GoTo Ext
End If
Else
c(n + 1) = c(n) + Int(((b - c(n) + 1) / (m - n) - h) * Rnd() * 2) + h
End If
n = n + 1
Loop Until n = m - 2
c(m - 1) = c(n) + Int((b - c(n) + 1 - h) * Rnd()) + h
Ext:
ReDim f(m \ l, l - 1)
If r = 0 Then
For i = 0 To m - 1
r = Int((m - i) * Rnd()) + i
t = c(r): c(r) = c(i): c(i) = c(r)
f(i \ l, i Mod l) = t / 10 ^ d
Next
Else
For i = 0 To m - 1
f(i \ l, i Mod l) = c(i) / 10 ^ d
Next
End If
[a4].CurrentRegion.Offset(1) = ""
[a5].Resize(m \ l + 1, l) = f
End Sub

复制代码

香川群子 · 发表于 2013-4-14 13:08

LMY123 发表于 2013-4-14 13:00
多谢大师指导，确实太强大了

呵呵，我不谦虚地说，这个是目前论坛里最好的随机取值实际应用代码。

算法我就不介绍了。

有兴趣的话自己好好研究一下。

香川群子 · 发表于 2013-4-14 13:10

LMY123 发表于 2013-4-14 12:24
多谢大师指导，我仔细研究一下

他这个代码很容易理解……应该也够你用了。

不过反复进行检查来排除重复，从算法效率上来看是不及格的。

LMY123 · 发表于 2013-4-14 13:11

香川群子发表于 2013-4-14 13:03
补充：如果设定【取值个数】超过数据区间【不重复个数】时：
1. 如果设定了最小间隔=0，那么将会抽取到重复 ...

多谢大师再次指导，慢慢消化学习中

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

[求助] 【已完美解决】根据多种条件，生成随机不重复数

评分

评分