随机数字

350977106

excel海 发表于 2020-2-21 19:06
能解决大部分问题

老师，你好！
自定义函数部分，感觉是对数组重新排序，但d值是从1到15个数中随机产生的，可能有很多重复啊，还未对数组真正理解，数组下标改变，原来的顺序不改变吗？海老师能帮忙解释一下这几句代码和真正作用和意图吗。就像绕了一个圈。
For i = 1 To 15
        d = Int(Rnd * 15 + 1)
        t = arr(i, 1)
        arr(i, 1) = arr(d, 1)
        arr(d, 1) = t
    Next

350977106

一把小刀闯天下 发表于 2020-2-23 12:12
If Timer - tm > 0.01 Then j = j - 1: Exit For

相应行修改了一下能跑出15*10，不是很吃力，估计偶尔会 ...

老师，你好了！
这句代码怎么解释，起到什么作用，为什么还要强调  i>1


If i > 1 Then dic(j)(arr(i - 1) & "-" & arr(i)) = 1

350977106

yjh_27 发表于 2020-2-22 14:48
参见附件。

老师，你好！
下面的这段代码，假设部分，用数组方法该怎么改写：如能提到上一个循环内，goto 语句从随机数字开始，是不是效果更好一些。
我的意思是每一行做为一个数组，数组的最后一个随机数字与前面的不重复，这个数字就是有效的，否则重新生成一个随机数字。


Sub 随机数字()

Dim m, n, i, x, k, t, r, arr(), brr()
m = Range("a18"): n = Range("a19")
ReDim arr(1 To n, 1 To 1)
ReDim brr(1 To n, 1 To m)
Cells(1, 1).Resize(16, 16) = ""

For k = 1 To m
For i = 1 To n
arr(i, 1) = i
Next i

xx:
   For i = 1 To n
x = Int(Rnd * (n - i + 1)) + i
t = arr(i, 1): arr(i, 1) = arr(x, 1): arr(x, 1) = t
Cells(i, k) = arr(i, 1)
brr(i, k) = arr(i, 1)
Next i

  For r = 1 To n
If Application.CountIf(Cells(r, 1).Resize(1, k), Cells(r, k)) > 1 Then GoTo xx
Next r

Next k

Cells(1, 1).Resize(n, m) = brr
End Sub

350977106

请问老师这段代码如何修改成数组表达方式

For r = 1 To n
If Application.CountIf(Cells(r, 1).Resize(1, k), Cells(r, k)) > 1 Then GoTo xx
Next

一把小刀闯天下

350977106 发表于 2020-3-4 18:28
老师，你好了！
这句代码怎么解释，起到什么作用，为什么还要强调  i>1

同列行的第1个数据不用去判断的，因为最小组为2，也就是1-2、2-3，，，

yjh_27

350977106 发表于 2020-3-4 19:36
老师，你好！
下面的这段代码，假设部分，用数组方法该怎么改写：如能提到上一个循环内，goto 语句从随 ...

yjh自定义函数  7L
http://club.excelhome.net/thread-1509415-1-1.html
(出处: ExcelHome技术论坛)


mode=1   行列不重复

350977106

yjh_27 发表于 2020-3-4 20:17
yjh自定义函数  7L
http://club.excelhome.net/thread-1509415-1-1.html
(出处: ExcelHome技术论坛)

老师，你写的代码是最符合原要求的，考虑到了数字连锁问题，可惜我能力太弱，一下了消化不了那么多。

350977106

yjh_27 发表于 2020-3-4 20:17
yjh自定义函数  7L
http://club.excelhome.net/thread-1509415-1-1.html
(出处: ExcelHome技术论坛)

老师，您好！
不考虑数字连锁的问题，我们可以先对数字错位排列，再对行列随机调整，应该可以得到无数个15*15的工作表，但很明显，按附件代码运行，到后来会越来越慢，因为生成的符合要求随机数字越来越少。假如换个思路，该怎样去写代码呢？
显然，最后一列，最后一排的可选数字就一个，越往右下角，如图，可用数字越少。假如将1-15个数字作为一个初始数组，单元格所在行和列作为另两个数组，与初始数组作比较，排除用过的数字，从剩下的数字中挑选，图中黄色单元格至少有3个数字可选，最多有7个数字可选。
行列所在的数组是随机变化的，与初始数组进行比较筛选，现在对我都是个难题，老师能否帮忙写一个，我再对照学习，不甚感激！谢谢！！！

350977106

老师，你好！
能否按排除法写代码，即从1-15个数字中，去除行，列已用过的数字，再随机挑选可用的随机数字。

350977106

yjh_27 发表于 2020-3-4 20:17
yjh自定义函数  7L
http://club.excelhome.net/thread-1509415-1-1.html
(出处: ExcelHome技术论坛)

老师，你好！
能否按我下面的思路，帮写一下代码。我参照学习。i5即黄色单元格有3-7个符合要求的数字可选。需要将1-15个数字作为初始数组，已用的行，列数字作为两个动态数组。初始数组减去动态数组用过的数字，为可选数字。谢谢！