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

香川群子

显然必须由我亲自出马：

1. Sub kagawa_Rnd多列乱序() '忽略空白单元格的香川随机乱序[数组洗牌法]
   
2.     Dim ar, br, cr&(), i&, j&, k&, m&, n&, r&, t&
   
3.    
   
4.     ar = [a1:g12] '源数据读入数组ar
   
5.     br = ar '复制为要随机乱序的结果数组br
   
6.    
   
7.     m = UBound(ar): n = UBound(ar, 2) '得到行数m 列数n
   
8.     ReDim cr&(m * n, 2) '定义存放随机位置的临时数组cr
   
9.     '数组cr有3列 分别为: 非空白序号k 行位置i 列位置j
   
10.    
    
11.     '下面整理原始数据 得到非空白单元格的 序号k 行位置i 列位置j
    
12.     For i = 1 To m
    
13.       For j = 1 To n
    
14.         If ar(i, j) <> "" Then
    
15.           cr(k, 0) = k: cr(k, 1) = i: cr(k, 2) = j: k = k + 1
    
16.         End If
    
17.       Next
    
18.     Next
    
19.    
    
20.     '接下来开始随机乱序
    
21.     Randomize
    
22.     For i = 0 To k - 1
    
23.       r = Int(Rnd * (k - i)) + i '[数组洗牌法]不重复随机乱序
    
24.       t = cr(r, 0): cr(r, 0) = cr(i, 0): cr(i, 0) = t '[数组洗牌法]交换
    
25.       br(cr(i, 1), cr(i, 2)) = ar(cr(t, 1), cr(t, 2)) '本次随机乱序结果 赋值到数组br
    
26.     Next
    
27.    
    
28.     '随机乱序完成 输出数组br结果到工作表
    
29.     [j1].Resize(m, n) = br
    
30. End Sub
    
31. 
    

复制代码

张雄友

香川群子 发表于 2015-3-15 15:04
显然必须由我亲自出马：

第29句，在原地乱，不是更好！[a1:g12] = br

张雄友

应用，至少我是这样理解的(Mark)：
（1）实际工作中，假设有 N 笔钱，其中有数笔钱是不能动的，只能动用其中几笔钱 。
（2）有一群坏人，哪些能动，哪些不能动。
（3） 在对抗敌特分子行动中，不要让“敌人”进入防区 ，保护司令。
（4） 此座位是留给市长，和局长之类的子女坐的，其它人不能坐，如果你想换座位，只能跟其它人换 ！


Sub kagawa_Rnd多列乱序() '忽略空白单元格的香川随机乱序[数组洗牌法]
    Dim ar, br, cr&(), i&, j&, k&, m&, n&, r&, t&

    ar = [a1:g12] '源数据读入数组ar
    br = ar '复制为要随机乱序的结果数组br

    m = UBound(ar): n = UBound(ar, 2) '得到行数m 列数n
    ReDim cr&(m * n, 2) '定义存放随机位置的临时数组cr
    '数组cr有3列 分别为: 非空白序号k 行位置i 列位置j

    '下面整理原始数据 得到非空白单元格的 序号k 行位置i 列位置j
    For i = 1 To m
      For j = 1 To n
        If ar(i, j) <> "" Then
          cr(k, 0) = k: cr(k, 1) = i: cr(k, 2) = j: k = k + 1
        End If
      Next
    Next

    '接下来开始随机乱序
    Randomize
    For i = 0 To k - 1
      r = Int(Rnd * (k - i)) + i '[数组洗牌法]不重复随机乱序
      t = cr(r, 0): cr(r, 0) = cr(i, 0): cr(i, 0) = t '[数组洗牌法]交换
      br(cr(i, 1), cr(i, 2)) = ar(cr(t, 1), cr(t, 2)) '本次随机乱序结果 赋值到数组br
    Next

    '随机乱序完成 输出数组br结果到工作表
    [j1].Resize(m, n) = br
End Sub

hhjjpp

按f9简单地计算，如何：

yzyyyyyyy

香川群子 发表于 2015-3-15 15:04
显然必须由我亲自出马：

能否单列乱序呢，即各列在各列乱序。

香川群子

yzyyyyyyy 发表于 2015-3-15 18:50
能否单列乱序呢，即各列在各列乱序。

1. 选择单列范围执行宏，即可得到单列的随机乱序结果。

2. 如果需要同时对多列，或多行内容进行各自分开的随机乱序，那么只要代码加入按列或按行的循环操作即可。

maditate

香川群子 发表于 2015-3-15 20:27
1. 选择单列范围执行宏，即可得到单列的随机乱序结果。

2. 如果需要同时对多列，或多行内容进行各自分 ...

何必如此麻烦呢，转为一列，逢空不动，乱序再转二维。张雄友的思维实在不敢恭维。

yzyyyyyyy

香川群子 发表于 2015-3-15 20:27
1. 选择单列范围执行宏，即可得到单列的随机乱序结果。

2. 如果需要同时对多列，或多行内容进行各自分 ...

第2个，对某一区域，按列或行随机乱序，能有个例子吗

香川群子

maditate 发表于 2015-3-15 20:33
何必如此麻烦呢，转为一列，逢空不动，乱序再转二维。张雄友的思维实在不敢恭维。

请仔细看一下我的代码。事实上操作比一般想象的要复杂一些。

但是，我的代码运算效率是最高的。不信，你可以自己另写代码来测试，比较。

香川群子

张雄友 发表于 2015-3-15 15:19
应用，至少我是这样理解的(Mark)：
（1）实际工作中，假设有 N 笔钱，其中有数笔钱是不能动的，只能动用其 ...

如果是这样考虑的话，
只要把代码中 If ar(i, j) <> "" Then 这一个条件判断句的条件作变更，
就能适应更多种类型。

比如，If ar(i, j) > 30000 Then ……值大于3万
或  If ar(i, j) Like "A*" Then ……以A开头的字符串
甚至于 If Cells(i, j).Interior.ColorIndex = 6 Then ……黄色单元格。
……
呵呵。