请帮忙做个双色球定位组号宏

阿力力

山菊花 发表于 2021-4-29 08:54
没理解规则，抱歉。

大神您好，我分开说一下，
第一个问题：不使用胆。您的宏生成了127注，使用胆18，结果是89注。用第三方工具全排结果，这六组号生成号码是88注。用上胆18，过滤结果是我上传的第二张图的那40注。
第二个问题：不使用和值，点按钮时出现错误。
不知我写的明白不。先谢谢大神费心了。

阿力力

yjh_27 发表于 2021-4-29 10:23
8L 的第3组为什么不符合要求？？

你的40个里面没有第3组

这是定位组号，用公式得下拉1.3万行。表运行太慢。去重，去有空格不足六位数的组合和前位的号比后位的大的。第三注是05 09 16 18 28 27，第五位比第六位大。所以过滤掉了。
组号公式=IF(G1*1>$AE$5*1,"",INDIRECT("A"&INT(MOD(ROW(A1)-1,$AE$5)/$AF$5)+1)&INDIRECT("B"&INT(MOD(ROW(A1)-1,$AF$5)/($AG$5))+1)&INDIRECT("C"&INT(MOD(ROW(A1)-1,$AG$5)/($AH$5))+1)&INDIRECT("D"&INT(MOD(ROW(A1)-1,$AH$5)/($AI$5))+1)&INDIRECT("E"&INT(MOD(ROW(A1)-1,$AI$5)/($AJ$5))+1)&INDIRECT("F"&MOD(ROW(A1)-1,$AJ$5)+1))
去重和不足六码公式
=IF($AD$3=0,IF(H1="","",IF(OR(I1>=J1,J1>=K1,K1>=L1,L1>=M1,M1>=N1),"",H1)),IF(H1="","",IF(OR(I1>=J1,J1>=K1,K1>=L1,L1>=M1,M1>=N1,Q1<>$AD$3*1),"",H1)))
还有重新排序公式
=IF(T1="","",VLOOKUP(T1,G:H,2))

山菊花

阿力力 发表于 2021-4-29 10:39
大神您好，我分开说一下，
第一个问题：不使用胆。您的宏生成了127注，使用胆18，结果是89注。用第三方 ...

不明白

yjh_27

阿力力 发表于 2021-4-29 11:05
这是定位组号，用公式得下拉1.3万行。表运行太慢。去重，去有空格不足六位数的组合和前位的号比后位的大 ...

参见附件。

阿力力

yjh_27 发表于 2021-4-29 12:45
参见附件。

谢谢高人。问题基本解决了。您的排序是先用的第六列的数，27 33，不过能用了。再次感谢！！！

阿力力

yjh_27 发表于 2021-4-29 12:45
参见附件。

大神，有空儿再帮忙改下表。你的宏按一次，组号注数就变一次，每次生成的结果有点不一样。顺便给加个AC值，大小比个数，奇偶比个数，每注的和值和序号。如图。先谢谢大神了

yjh_27

阿力力 发表于 2021-5-5 11:08
大神，有空儿再帮忙改下表。你的宏按一次，组号注数就变一次，每次生成的结果有点不一样。顺便给加个AC值 ...

不一样是不稳定排序造成的，改用字典去重复。

要说明：AC值、大小个、奇偶数的规则，不然无从下手。

阿力力

yjh_27 发表于 2021-5-6 16:24
不一样是不稳定排序造成的，改用字典去重复。

要说明：AC值、大小个、奇偶数的规则，不然无从下手。

规则说明与AC值等公式写在表里了，见附件。请大师帮写VBA，再次感谢！！

yjh_27

阿力力 发表于 2021-5-6 23:57
规则说明与AC值等公式写在表里了，见附件。请大师帮写VBA，再次感谢！！

参见附件。

三票

yjh_27 发表于 2021-5-7 16:44
参见附件。

老师，您好！！楼上这个图表条件不变,能不能输出5个数的结果。