排列三的形态遗漏统计

hdgggggggg

排列三形态统计，如果开奖号是888，那么质合形态是合合合，在相应的单元格用●表示。

hdgggggggg

自己研究了一下午，找了不少资料，把问题解决了。但总觉得不是很好，望高手能指点一下。
不好意思，刚那个附件没有保存好，里面没代码。
这次重新上传了一个，请下载了的朋友重新下载。

hdgggggggg

重新上传了个附件

longming3

排三迷，我以前也是喜欢排列三，好久没有研究这玩意了，看起来有规律，其实一点都不好抓住规律

longming3

hdgggggggg 发表于 2013-5-31 21:20
重新上传了个附件

公式可以写成这样：
=IF(C2="","",IF(SUM(COUNTIF(C2:E2,{0,4,6,8,9}))=3,"●",""))

longming3

1. Sub 质合()
   
2.     Dim A&, X&, B As Byte
   
3.     Dim arr, brr, i&, j%, y&
   
4.     y = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     If y < 2 Then MsgBox "没有数据，请导入": Exit Sub
   
6.     arr = Range("c2").Resize(y - 1, 3)
   
7.     arr1 = Range("f1").Resize(1, 8)
   
8.     ReDim brr(1 To UBound(arr), 1 To 8)
   
9.     For j = 1 To UBound(arr1, 2)
   
10.         For i = 1 To UBound(arr)
    
11.             sss = arr(i, 1) & arr(i, 2) & arr(i, 3)
    
12.             With CreateObject("vbscript.regexp")
    
13.                 .Global = True
    
14.                 .Pattern = "[04689]"
    
15.                 sss1 = .Replace(sss, "合")
    
16.                 .Pattern = "[12357]"
    
17.                 sss1 = .Replace(sss1, "质")
    
18.             End With
    
19.         
    
20.             If InStr(arr1(1, j), sss1) > 0 Then
    
21.                 brr(i, j) = "●"
    
22.                 n = 0
    
23.             Else
    
24.                 n = n + 1
    
25.                 brr(i, j) = n
    
26.             End If
    
27.         Next
    
28.         n = 0
    
29.     Next
    
30.     [f2].Resize(UBound(arr), 8) = brr
    
31. End Sub

复制代码

排列三形态遗漏统计.rar (250.22 KB, 下载次数: 37)

2013-5-31 22:35 上传

点击文件名下载附件

hdgggggggg

非常感谢，学习了。比我弄的要好多了。{:soso_e179:}