随机数字

yjh_27

350977106 发表于 2020-3-7 18:13
老师，你好！
能否按我下面的思路，帮写一下代码。我参照学习。i5即黄色单元格有3-7个符合要求的数字可 ...

arr源数组，1-15
名次从起始位 到 终止位  随机取一个数a
取出后 ,a  与 起始数 对调，起始位加1
每次取数前，判断可用数是否需排除，排除则与终止位对调，终止位减1

我的代码基本实现你的要求

350977106

谢谢老师的答复，知道了老师的逻辑思维，再理解代码应该容易一些，本来想最后研究你的代码的，因为看起来最复杂。
以下代码，是按单个元素依次置换的，整行，整列置换应该怎么写
Sub 验证()
    Dim m, arr(), c, i, k, r, x, t
    m = 15
    Cells(1, 1).Resize(16, 16).Clear
   
    ReDim arr(1 To m, 1 To m)
    For i = 1 To m
        For k = 1 To m
            If i + k - 1 <= m Then
                arr(i, k) = i + k - 1
            Else
                arr(i, k) = i + k - 1 - m
            End If
        Next k
    Next i
   
    For c = 1 To m                                                '**************按列随机交换
        x = Int(Rnd * (m) + 1)
        For r = 1 To m
            t = arr(r, c): arr(r, c) = arr(r, x): arr(r, x) = t
        Next r
    Next c
   
   
    For r = 1 To m                                               '****************按行随机交换
        x = Int(Rnd * (m) + 1)
        For c = 1 To m
            t = arr(r, c): arr(r, c) = arr(x, c): arr(x, c) = t
        Next c
    Next r
   
    Cells(1, 1).Resize(m, m) = arr
End Sub

一把小刀闯天下

'没有约束条件的行列不重复，以前碰到过这样的一个问题，，，

Option Explicit

Const NUM  As Long = 15

Sub test()
  Dim i As Long, j As Long, n As Long, t As Long, dt As Single
  dt = Timer
  ReDim arr(1 To NUM, 1 To NUM) As Long
  For j = 1 To NUM
    n = 0
    For i = j To NUM
      n = n + 1: arr(i, j) = n
    Next
    n = NUM - j + 1
    For i = 1 To j - 1
      n = n + 1: arr(i, j) = n
    Next
  Next
  Randomize
  For i = 1 To NUM
    n = Int(Rnd * NUM) + 1
    For j = 1 To NUM
      t = arr(i, j): arr(i, j) = arr(n, j): arr(n, j) = t
    Next
  Next
  For j = 1 To NUM
    n = Int(Rnd * NUM) + 1
    For i = 1 To NUM
      t = arr(i, j): arr(i, j) = arr(i, n): arr(i, n) = t
    Next
  Next
  Cells.ClearContents
  [a1].Resize(NUM, NUM) = arr
End Sub

一把小刀闯天下

如果就最开始的约束条件

计算了一下，15*(15-1)/15，也就是15个数最多可以组成一个15*14的矩阵，15*15应该是无解的，，，

350977106

一把小刀闯天下 发表于 2020-3-8 16:39
如果就最开始的约束条件

计算了一下，15*(15-1)/15，也就是15个数最多可以组成一个15*14的矩阵，15*15应 ...

谢谢老师给出的答案，用心学习！！！

350977106

谢谢老师给予的答案，用心学习！！！

350977106

liulang0808 发表于 2020-2-21 19:16
附件内容供参考。。。。

有一个新问题，老师能帮忙解答一下吗？
excel恢复文件批量重命名问题。以下是我的提问链接地址
求助   excel 批量重命名
http://club.excelhome.net/thread-1588925-1-1.html
(出处: ExcelHome技术论坛)

350977106

micch 发表于 2020-2-22 20:17
不知道有没有BUG

老师，您好！
能再问您一个问题吗？
u盘格式化恢复过来的文件是软件系统命名的（如file001,file002等），我想恢复文件的名字
1，恢复原文件名
2，以工作表1的名字+工作表1 A4单元格值命名
3，重命名时遇到重复文件时加上序号1，保证所有序号文件重命名
4，希望以对话框方式查看文件夹内的excel文件。
以下是我的提问链接，谢谢老师。
求助   excel 批量重命名
http://club.excelhome.net/thread-1588925-1-1.html
(出处: ExcelHome技术论坛)

350977106

一把小刀闯天下 发表于 2020-3-4 20:14
同列行的第1个数据不用去判断的，因为最小组为2，也就是1-2、2-3，，，

老师，您好！
能再问您一个问题吗？
u盘格式化恢复过来的文件是软件系统命名的（如file001,file002等），我想恢复文件的名字
1，恢复原文件名
2，以工作表1的名字+工作表1 A4单元格值命名
3，重命名时遇到重复文件时加上序号1，保证所有序号文件重命名
4，希望以对话框方式查看文件夹内的excel文件。
以下是我的提问链接，谢谢老师。
求助   excel 批量重命名
http://club.excelhome.net/thread-1588925-1-1.html
(出处: ExcelHome技术论坛)

350977106

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

老师，您好！
能再问您一个问题吗？
u盘格式化恢复过来的文件是软件系统命名的（如file001,file002等），我想恢复文件的名字
1，恢复原文件名
2，以工作表1的名字+工作表1 A4单元格值命名
3，重命名时遇到重复文件时加上序号1，保证所有序号文件重命名
4，希望以对话框方式查看文件夹内的excel文件。
以下是我的提问链接，谢谢老师。
求助   excel 批量重命名
http://club.excelhome.net/thread-1588925-1-1.html
(出处: ExcelHome技术论坛)