香川随机乱序在会计上的广泛应用！

yjh_27

将非空记入B数组，对B数组乱序，再导回A数组。

jpj123

顺便赞下香川老师的随机乱序排列的思路：循环中通过随机数取得一个随机行号和随机列号，再和当前循环到的行号、列号对应的位置值交换数值。不错的思路，学习了!!

张雄友

jpj123 发表于 2015-3-14 14:29
请测试附件。

Sub kagawa_Rnd多列乱序() '香川随机乱序数组洗牌法！
Dim R, brr, m%, crr, L%, a
On Error Resume Next
  Randomize
  arr = Selection: rw = UBound(arr): cl = UBound(arr, 2)
ReDim brr(1 To Selection.Cells.Count, 1 To 2)'为什么要用2？
For i = 1 To rw
    For j = 1 To cl
      If arr(i, j) = "" Then
      m = m + 1
         brr(m, 1) = i: brr(m, 2) = j
      End If
    Next
Next
  For i = 1 To rw
    For j = 1 To cl
        R = Round(Rnd() * 10000, 0)'用1000与10有什么区别？
        i1 = R Mod rw + 1: j1 = R Mod cl + 1
        For L = 1 To UBound(brr)
          If (i = brr(L, 1) And j = brr(L, 2)) Or (i1 = brr(L, 1) And j1 = brr(L, 2)) Then
            a = a + 1
          End If
       Next
       If a < 1 Then
       t = arr(i1, j1): arr(i1, j1) = arr(i, j): arr(i, j) = t
       End If
       a = 0
    Next
  Next
  Selection = arr
End Sub

jpj123

张雄友 发表于 2015-3-14 18:06
Sub kagawa_Rnd多列乱序() '香川随机乱序数组洗牌法！
Dim R, brr, m%, crr, L%, a
On Error Resume  ...

ReDim brr(1 To Selection.Cells.Count, 1 To 2)'为什么要用2？
申明BRR为一个2 列的数组
R = Round(Rnd() * 10000, 0)'用1000与10有什么区别？
返回一个4 位数。这个你自己试下RND()的值就明白了。

张雄友

jpj123 发表于 2015-3-14 18:10
ReDim brr(1 To Selection.Cells.Count, 1 To 2)'为什么要用2？
申明BRR为一个2 列的数组
R = Round(Rn ...

ReDim brr(1 To Selection.Cells.Count, 1 To 2)'为什么要用2？
申明BRR为一个2 列的数组（怎么会是2列？不是多列吗？）

R = Round(Rnd() * 10000, 0)'用1000与10有什么区别？（我的意思是用`1000与用10都能得出一样的结果，用1000与10有什么区别？）
返回一个4 位数。这个你自己试下RND()的值就明白了。

jpj123

张雄友 发表于 2015-3-14 18:14
ReDim brr(1 To Selection.Cells.Count, 1 To 2)'为什么要用2？
申明BRR为一个2 列的数组（ ...

Brr这个数组是用来记录空值的位置 的，至于RND()*10，你觉得能和的话，也行吧，我习惯*10000

张雄友

jpj123 发表于 2015-3-14 19:40
Brr这个数组是用来记录空值的位置 的，至于RND()*10，你觉得能和的话，也行吧，我习惯*10000

选中A1：E10，效果明显，但是选中1：10行，就没有什么效果了。

jpj123

张雄友 发表于 2015-3-14 20:02
选中A1：E10，效果明显，但是选中1：10行，就没有什么效果了。

整行的话在2003中就是256 列了，实际表格中你不会整行全选吧，代码思路还是香川老师的思路，我只是排除了空值单元格而已。

张雄友

太慢了的。

张雄友

自己顶一下，慢得不成样子。