VBA蓝底单元格输入数字全排列 再容错

laoau138

VBA蓝底单元格输入数字全排列   再容错

today0427

不会做，下一题！

laoau138

today0427 发表于 2017-1-10 12:43
不会做，下一题！

原来这个有点问题，再化简了一下，请再看一次

today

grf1973

1. Sub 容错输出()
   
2.     bw = Join(Application.Transpose(Application.Transpose([b1:k1])), "")   '百位
   
3.     sw = Join(Application.Transpose(Application.Transpose([b2:k2])), "")   '百位
   
4.     gw = Join(Application.Transpose(Application.Transpose([b3:k3])), "")   '个位
   
5.     Dim arr(1 To 1000, 1 To 3)
   
6.     cmin = [n2]: cmax = [p2] '最大最小错误数
   
7.     For i = 0 To 999
   
8.         a = i \ 100
   
9.         b = (i - a * 100) \ 10
   
10.         c = i Mod 10
    
11.         cw = 3 + (InStr(bw, a) > 0) + (InStr(sw, b) > 0) + (InStr(gw, c) > 0)   '错误数
    
12.         If cw >= cmin And cw <= cmax Then
    
13.             n = n + 1
    
14.             arr(n, 1) = a: arr(n, 2) = b: arr(n, 3) = c
    
15.         End If
    
16.     Next
    
17.     [a11:c1100] = ""
    
18.     If n > 0 Then [a11].Resize(n, 3) = arr
    
19.     MsgBox "共有" & n & "组"
    
20. End Sub
    

复制代码

laoau138

grf1973 发表于 2017-1-10 20:16

grf1973大侠是高手

laoau138

grf1973 发表于 2017-1-10 20:16

VBA蓝底单元格输入数字全排列   改定两位容错

grf1973

代码不用变，N2 P2按要求改变就行。0-3都可以的。

laoau138

grf1973 发表于 2017-1-11 11:16
代码不用变，N2 P2按要求改变就行。0-3都可以的。

谢谢高手了，你说的对，

laoau138

grf1973 发表于 2017-1-11 11:16
代码不用变，N2 P2按要求改变就行。0-3都可以的。

用VBA计算  每一行3个数字是否相同


http://www.excelpx.com/thread-427101-1-1.html

laoau138

today0427 发表于 2017-1-10 12:43
不会做，下一题！

VBA不用A列辅助编号改写逆顺   行数小于60先逆行到1   再从60 59逆下去


http://www.excelpx.com/thread-427134-1-1.html