哪位高手有制作万能6红的制作方法？

jydodo

哪位高手有制作万能6红的制作方法？


面对几十注号码，哪们高手有制作万能6红（5或7红）的制作方法？即只要填入几十注号码，就能自动显示万能6红（5或7红）盼回复，谢谢。

例如下图：2008102到126期开奖号码中最少开出万能6红（1、9、10、14、24、32）中的至少1个号码。
但1、9、10、14、24、32是通过人工选择出来的，非常耗时，如能设计某些公式，在图表中填入开将号码，就能自动计算出万能码是哪几个。
希望得到帮助、回复，如有能通过excel设计者，愿高价支付报酬，谢谢


期号        开奖号码                                                万能6红                                       
2008102        3        7        12        21        25        32        1        9        10        14        24        32
2008103        1        12        16        18        22        33       1        9        10        14        24        32
2008104        3        6        8        17        24        31        1        9        10        14        24        32
2008105        5        17        19        27        28        32        1        9        10        14        24        32
2008106        14        19        25        27        29        30        1        9        10        14        24        32
2008107        6        13        18        22        27        32        1        9        10        14        24        32
2008108        9        10        15        17        23        30        1        9        10        14        24        32
2008109        4        7        9        16        21        28        1        9        10        14        24        32
2008110        10        16        22        23        29        31        1        9        10        14        24        32
2008111        17        18        21        25        31        32        1        9        10        14        24        32
2008112        5        13        14        19        22        23        1        9        10        14        24        32
2008113        6        9        10        12        17        22        1        9        10        14        24        32
2008114        4        9        20        24        25        31        1        9        10        14        24        32
2008115        2        12        13        14        17        18        1        9        10        14        24        32
2008116        3        7        21        22        24        29        1        9        10        14        24        32
2008117        3        5        7        10        14        33        1        9        10        14        24        32
2008118        4        9        16        27        31        33        1        9        10        14        24        32
2008119        5        7        9        15        24        29        1        9        10        14        24        32
2008120        10        11        22        24        26        33        1        9        10        14        24        32
2008121        2        22        23        27        31        32        1        9        10        14        24        32
2008122        2        8        11        14        19        26        1        9        10        14        24        32
2008123        10        11        15        16        25        29        1        9        10        14        24        32
2008124        1        7        10        13        21        22        1        9        10        14        24        32
2008125        10        11        12        15        26        29        1        9        10        14        24        32
2008126        4        11        12        14        20        30        1        9        10        14        24        32

失恋太少

不明白哦！！！～～

pureshadow

PS，LIWEN版主的做法，才是VBA的正道，我是VBA太差了，走的旁门

pureshadow

原帖由 liwen 于 2008-11-9 14:40 发表


小妖这不是寒掺人吗？

穷举就是一个一个试，可能要试到最后一组号码才能有结果，而小妖的随机数运气好的话很快就能得到结果．

这真的是我第一次听说穷举法。。。。。。[:30]
不过学会了，谢谢LIWEN[:50]

liwen

我在有一台机上感觉速度还可以，但在另一台机上是感觉速度很慢，好象并不只是代码的问题。试试把doevents改变一下位置看是否会快点。不过估计没多大变化。

jydodo

运算速度不知能不能快一些，有时持续很久。[:17] [:17] [:17]

liwen

原帖由 pureshadow 于 2008-11-8 18:28 发表
什么叫穷举法？不懂诶。。。。。。[:30]
指点一下吧[:50]

小妖这不是寒掺人吗？

穷举就是一个一个试，可能要试到最后一组号码才能有结果，而小妖的随机数运气好的话很快就能得到结果．

jydodo

什么叫穷举法？[:17] [:17] [:17]

pureshadow

什么叫穷举法？不懂诶。。。。。。[:30]
指点一下吧[:50]

liwen

小妖真高，不过使用随机数我找万能5码好久都出不来结果，反而使用穷举法能得出结果出来。
期号        开奖号码                                                自动计算出万能6红                                       
2008102        3        7        12        21        25        32        10        14        16        24        32       
2008103        1        12        16        18        22        33                                               
2008104        3        6        8        17        24        31                                               
2008105        5        17        19        27        28        32                                               
2008106        14        19        25        27        29        30                                               
2008107        6        13        18        22        27        32                                               
2008108        9        10        15        17        23        30                                               
2008109        4        7        9        16        21        28                                               
2008110        10        16        22        23        29        31                                               
2008111        17        18        21        25        31        32                                               
2008112        5        13        14        19        22        23                                               
2008113        6        9        10        12        17        22                                               
2008114        4        9        20        24        25        31                                               
2008115        2        12        13        14        17        18                                               
2008116        3        7        21        22        24        29                                               
2008117        3        5        7        10        14        33                                               
2008118        4        9        16        27        31        33                                               
2008119        5        7        9        15        24        29                                               
2008120        10        11        22        24        26        33                                               
2008121        2        22        23        27        31        32                                               
2008122        2        8        11        14        19        26                                               
2008123        10        11        15        16        25        29                                               
2008124        1        7        10        13        21        22                                               
2008125        10        11        12        15        26        29                                               
2008126        4        11        12        14        20        30