[已解决]按要求给单元格填充颜色

123456le

按要求给单元格填充颜色

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-27 04:59

………………

跳转到最佳答案楼层

123456le

再顶一下看看。

123456le

没有人解答哦。可以补充。

a583091790

做个辅助 加个条件格式 就解决了，

好像是SSC吧

a583091790

这种分析选号方法 是跟红顶白， 留意或追踪近4期内的重复开号么

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%, s&
   
3. arr = Range("b970:f" & Range("b65536").End(xlUp).Row)
   
4. [b:f].Interior.ColorIndex = xlNone
   
5. For j = 1 To UBound(arr, 2)
   
6.     For i = UBound(arr) To 5 Step -1
   
7.         s = 0: p = ""
   
8.         Do Until Len(p) = 4 Or i - s = 1
   
9.             s = s + 1
   
10.             If InStr(p, arr(i - s, j)) = 0 Then p = p & arr(i - s, j)
    
11.         Loop
    
12.         If InStr(p, arr(i, j)) Then Cells(i + 969, j + 1).Interior.ColorIndex = 3
    
13.     Next
    
14. Next
    
15. End Sub

复制代码

dsmch

………………