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

张雄友

所选区域是：A1：G12，但怎么令这些非空值在相互间跑动（就是黄色区域跑动），怎么做到忽略空值？令它不在空白（红色区域跑动）？

实际工作中，假设有 N 笔钱，其中有数笔钱是不能动的，只能动用其中几笔钱，就是附件这个意思。

jpj123

1. Sub kagawa_Rnd多列乱序() '香川随机乱序数组洗牌法！
   
2. On Error Resume Next
   
3.   Randomize
   
4.   arr = Selection ': rw = UBound(arr): cl = UBound(arr, 2)
   
5.   rw = Cells(1, 256).End(xlToLeft).Column
   
6.   cl = Cells(65536, rw).End(3).Row
   
7.   For i = 1 To rw
   
8.     For j = 1 To cl
   
9.         If Len(arr(i, j)) And IsArray(arr) Then '不发挥作用！
   
10.         r = Int(Rnd() * ((rw - i + 1) * cl - j + 1)) + (i - 1) * cl + j - 1
    
11.         'i1 = Int(r / cl) + 1: j1 = r Mod cl + 1
    
12.         i1 = r Mod cl + 1: j1 = r Mod rw + 1
    
13.         t = arr(i1, j1): arr(i1, j1) = arr(i, j): arr(i, j) = t
    
14.           End If '不发挥作用！
    
15.     Next
    
16.   Next
    
17.   Selection = arr
    
18. End Sub

复制代码

jpj123

请测试附件     

张雄友

jpj123 发表于 2015-3-13 20:54
请测试附件

谢谢，但是这样是不行的，左下角的数据从未跑动过。

maditate

张雄友 发表于 2015-3-13 21:39
附件已经很现实了，就是对选中区域，对局部单元格实施限制性避免入侵。说得明白一点就是：有一群坏人，哪些 ...

1. Sub kagawa_Rnd多列乱序() '香川随机乱序数组洗牌法！
   
2. On Error Resume Next
   
3.   Randomize
   
4.   arr = Selection: rw = UBound(arr) - 2: cl = UBound(arr, 2) - 2
   
5.   For i = 1 To rw
   
6.     For j = 1 To cl
   
7.         If Len(arr(i, j)) And IsArray(arr) Then '不发挥作用！
   
8.         r = Int(Rnd() * ((rw - i + 1) * cl - j + 1)) + (i - 1) * cl + j - 1
   
9.         i1 = Int(r / cl) + 1: j1 = r Mod cl + 1
   
10.         t = arr(i1, j1): arr(i1, j1) = arr(i, j): arr(i, j) = t
    
11.           End If '不发挥作用！
    
12.     Next
    
13.   Next
    
14.   Selection = arr
    
15. End Sub
    

复制代码

jpj123

张雄友 发表于 2015-3-13 20:59
谢谢，但是这样是不行的，左下角的数据从未跑动过。

1. Sub kagawa_Rnd多列乱序() '香川随机乱序数组洗牌法！
   
2. On Error Resume Next
   
3.   Randomize
   
4.   arr = Selection ': rw = UBound(arr): cl = UBound(arr, 2)
   
5.   cl = Cells(1, 256).End(xlToLeft).Column
   
6.   rw = Cells(65536, cl).End(3).Row
   
7.   For i = 1 To rw
   
8.     For j = 1 To cl
   
9.         If Len(arr(i, j)) And IsArray(arr) Then '不发挥作用！
   
10.         r = Int(Rnd() * 10000)
    
11.         'i1 = Int(r / cl) + 1: j1 = r Mod cl + 1
    
12.         i1 = r Mod rw + 1: j1 = r Mod cl + 1
    
13.         t = arr(i1, j1): arr(i1, j1) = arr(i, j): arr(i, j) = t
    
14.           End If '不发挥作用！
    
15.     Next
    
16.   Next
    
17.   Selection = arr
    
18. End Sub

复制代码

maditate

楼主的意思是不是黄色区域的数据随机打乱？

jpj123

请再测试下附件  

张雄友

maditate 发表于 2015-3-13 21:14
楼主的意思是不是黄色区域的数据随机打乱？

是的，但是不能跑到红色区域去乱（而又要选中红色区域）。

maditate

张雄友 发表于 2015-3-13 21:17
是的，但是不能跑到红色区域去乱（而又要选中红色区域）。

选中干吗？你只要把数据打乱不就得了。在实际工作中选中这条语句是极少用到的。