按设置的条件提取数据（求助VBA）

grf1973 · 发表于 2024-2-27 16:23

4、按复杂程序把条件排序，先判断运算量最少的。当某个条件不符合，直接用goto语句跳出。

Enocheasty · 发表于 2024-2-27 16:59

本帖最后由 Enocheasty 于 2024-2-27 17:02 编辑

最近搞C#，写法比较C#，楼主也算狠人，搞个彩票这么费力，4w+个号筛选，不过你的第8个条件不清楚是啥意思。

复制代码

Enocheasty · 发表于 2024-2-27 17:28

本帖最后由 Enocheasty 于 2024-2-27 18:34 编辑

干脆把文件贴上来了！主要是质数的条件，我也改成成具体的数组了，因为范围不大，所以光贴代码肯定运行不正常。起始就跟条件1，2一样，还有很多条件起始可以合并，不过就是不合并代码也不是太多。

chxw68 · 发表于 2024-2-27 18:56

练练手，没有仔细推敲。

grf1973 · 发表于 2024-2-28 11:11

里面的条件随时变的。。。。 2~4可以变成3~5

三票 · 发表于 2024-2-28 21:47

本帖最后由三票于 2024-2-29 08:27 编辑

grf1973 发表于 2024-2-28 11:11
里面的条件随时变的。。。。 2~4可以变成3~5

非常感谢老师！！老师您看一下：1、正确结果有漏掉的。2、老师您方便时能不能再给增加两个条件；把条件9-13做一下小的更改！！（最大尾数减最小尾：每个数除10余数的最大减最小。一、二位；二、三；等尾数差值也是除10余数的差）

三票 · 发表于 2024-2-29 09:04

Enocheasty 发表于 2024-2-27 16:59
最近搞C#，写法比较C#，楼主也算狠人，搞个彩票这么费力，4w+个号筛选，不过你的第8个条件不清楚是啥意思。 ...

每个数除10余数的最大减最小

grf1973 · 发表于 2024-2-29 15:53

不好意思，质数数组里把23漏掉了。。。。。。。

grf1973 · 发表于 2024-2-29 16:31

本帖最后由 grf1973 于 2024-2-29 16:33 编辑

。。。。。。。。。。。。。。

grf1973 · 发表于 2024-2-29 16:34

19楼附件重新更新过，原来代码质数又没加上23

		自动登录	找回密码
密码			免费注册

[已解决] 按设置的条件提取数据（求助VBA）