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

张雄友

jpj123 发表于 2015-3-13 21:14

这样当选中区域以外的地方有数据的话，就全部报废了。不断执行，数据都变没了。

jpj123

张雄友 发表于 2015-3-13 21:22
这样当选中区域以外的地方有数据的话，就全部报废了。不断执行，数据都变没了。

是的，你没说外面有数据，哈哈!

jpj123

如果方便的话可否把你要实现的效果表模拟一个!

张雄友

附件已经很现实了，就是对选中区域，对局部单元格实施限制性避免入侵。说得明白一点就是：有一群坏人，哪些能动，哪些不能动。可能大家没有明白......

张雄友

maditate 发表于 2015-3-13 21:49

您这是针对附件特殊情况做出的，真正要做的是忽略空值，不要让“敌人”进入防区。请看！在规定范围内，不管你怎么动，有些地方就是不能动！！！不知是否明白？

张雄友

再总结一下：

实际工作中，假设有 N 笔钱，其中有数笔钱是不能动的，只能动用其中几笔钱，就是附件这个意思。
就是对选中区域，对局部单元格实施限制性避免入侵。说得明白一点就是：有一群坏人，哪些能动，哪些不能动。
真正要做的是忽略空值，不要让“敌人”进入防区。请看！在规定范围内，不管你怎么动，有些地方就是不能动！

张雄友

说得再白一点就是：空值代表座位，是留给市长，和局长之类的子女坐的，其它人不能坐，如果你想换座位，只能跟其它人换，指定（空值）座位就是不能坐。的意思！！！！

jpj123

张雄友 发表于 2015-3-14 13:15
说得再白一点就是：空值代表座位，是留给市长，和局长之类的子女坐的，其它人不能坐，如果你想换座位，只能 ...

巴结领导，呵呵!玩笑!帮你顶起来!!

jpj123

1. Sub kagawa_Rnd多列乱序() '香川随机乱序数组洗牌法！
   
2. Dim R, brr, m%, crr, L%, a
   
3. On Error Resume Next
   
4.   Randomize
   
5.   arr = Selection: rw = UBound(arr): cl = UBound(arr, 2)
   
6. ReDim brr(1 To Selection.Cells.Count, 1 To 2)
   
7. For i = 1 To rw
   
8.     For j = 1 To cl
   
9.       If arr(i, j) = "" Then
   
10.       m = m + 1
    
11.          brr(m, 1) = i: brr(m, 2) = j
    
12.       End If
    
13.     Next
    
14. Next
    
15.   For i = 1 To rw
    
16.     For j = 1 To cl
    
17.         R = Round(Rnd() * 10000, 0)
    
18.         i1 = R Mod rw + 1: j1 = R Mod cl + 1
    
19.         For L = 1 To UBound(brr)
    
20.           If (i = brr(L, 1) And j = brr(L, 2)) Or (i1 = brr(L, 1) And j1 = brr(L, 2)) Then
    
21.             a = a + 1
    
22.           End If
    
23.        Next
    
24.        If a < 1 Then
    
25.        t = arr(i1, j1): arr(i1, j1) = arr(i, j): arr(i, j) = t
    
26.        End If
    
27.        a = 0
    
28.     Next
    
29.   Next
    
30.   Selection = arr
    
31. End Sub
    

复制代码

jpj123

请测试附件。