ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 963|回复: 9

[求助] 哪位大神帮我设计一下VBA?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-7-16 18:21 | 显示全部楼层 |阅读模式
一个表是出号历史,另外一个表是设计的大底,求设计的大底在历史中的出号次数,即每组号码出4个的次数,5个的次数,6个的次数分别是多少、、、、见附件,,,,,,,,,

双.7z

689.54 KB, 下载次数: 16

TA的精华主题

TA的得分主题

发表于 2018-7-16 18:24 | 显示全部楼层
好像不讨论彩票,出门左拐吧

TA的精华主题

TA的得分主题

发表于 2018-7-16 19:12 | 显示全部楼层
这个东西实现起来倒是很简单,不过统计了也没啥意思呀。彩票这东西......

TA的精华主题

TA的得分主题

发表于 2018-7-16 20:11 | 显示全部楼层
楼主这个就是个双层for循环对比
不过从概率角度讲,楼主统计的东西没有规律的

TA的精华主题

TA的得分主题

发表于 2018-7-16 21:38 | 显示全部楼层
想问一下,如果帮助写了代码中了500万大奖,能分给帮助者100万吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-17 08:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
vbee 发表于 2018-7-16 18:24
好像不讨论彩票,出门左拐吧

没有讨论呀,只是想知道而已

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-17 08:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
ye8974 发表于 2018-7-16 19:12
这个东西实现起来倒是很简单,不过统计了也没啥意思呀。彩票这东西......

能否教一下呢?

TA的精华主题

TA的得分主题

发表于 2018-7-17 10:17 | 显示全部楼层

我不关注彩票,不知道规则,但是这个问题可以回答。
如果大底顺序保持不变、中间不间断的方式匹配的,循环所有大底行,循环中加三个函数从大底和出号历史取数据,循环匹配连续数据,第一个函数匹配6个的,第二个函数匹配有5个的,第三个函数匹配4个的。
如果大底顺序保持不变、中间会间断的方式匹配的,循环所有大底行,循环中加三个函数从大底和出号历史取数据,循环取一个大底数据,找到了,再用下一个大底再向后匹配,第一个函数匹配6个的,第二个函数匹配有5个的,第三个函数匹配4个的。
如果大底顺序会变,循环所有大底行,循环中加三个函数从大底和出号历史取数据,循环取一个大底数据,找到了后,用下一个大底数据又从历史数据的头部匹配,第一个函数匹配6个的,第二个函数匹配有5个的,第三个函数匹配4个的。
注意数据累计和什么时候清零。
你自己更清楚逻辑,循环处理就能实现。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-19 12:04 | 显示全部楼层
chxw68 发表于 2018-7-16 21:38
想问一下,如果帮助写了代码中了500万大奖,能分给帮助者100万吗?

这个可以有,前提是得中了先呀。。。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-19 12:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
ye8974 发表于 2018-7-16 19:12
这个东西实现起来倒是很简单,不过统计了也没啥意思呀。彩票这东西......

我这个统计和别人的不一样
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-10 11:14 , Processed in 0.027365 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表