请问各位老师如何用VBA实现这个计算

sxjpf2119

不知道为什么 发表于 2018-7-13 14:12
论坛里凡是咨询 彩票 股票类的，需求通常都很诡谲，飘逸！共同点是 从来不会一次能把需求说明白！呵呵

不好意思，老师，下午有事没在线！
遗漏，是指多少期没出现了，如上面的图片中，2003001期到2003002期，数字26遗漏是0，因为2003001期有26，2003002期出现26，所以26遗漏为0次，而4，9，19，20，21上一期没有出现，所以遗漏1次，以此类推。先谢谢老师了！！！

不知道为什么

sxjpf2119 发表于 2018-7-13 21:00
不好意思，老师，下午有事没在线！
遗漏，是指多少期没出现了，如上面的图片中，2003001期到2003002期， ...

如图，不知道是你模拟的结果有问题，还是我对你需求理解的问题。总之代码出来的结果和你模拟的有很大差异！

不知道为什么

sxjpf2119 发表于 2018-7-13 21:00
不好意思，老师，下午有事没在线！
遗漏，是指多少期没出现了，如上面的图片中，2003001期到2003002期， ...

代码

sxjpf2119

不知道为什么 发表于 2018-7-14 01:28
代码

谢谢  老师   我试试哈    谢谢谢谢

sxjpf2119

不知道为什么 发表于 2018-7-14 01:28
代码

老师，我已评分，您辛苦了，但是，那个代码不对，可能您没理解了，老师能再修改下吗？
我重新解释下哈：
   遗漏的意思是“本期出现的数字和以前开出的数字比对，如何以前出过，遗漏就是本期和据他最近出过那期的间隔数；如果以前期没出现自动计算开始数据到本期的间隔数，”
比如：                      开出数字                                           间隔
2003001                10        11        12        13        26        28
2003002                4        9        19        20        21        26
2003003                1        7        10        23        28        32
2003004                4        6        7        10        13        25         1   3   0  0  2  3
4号2003002期出现，本期再出现，所以间隔为1；6号一直没出现，所以间隔为3，7号上期出了，所以间隔为0，  10号上期出了，间隔为0，13号 2003001期出过，所以间隔为2，25号一直没出现，所以间隔为3

jiminyanyan

不知道为什么 发表于 2018-7-14 01:28
代码

遇上彩题，可以多收点辛苦费，哈哈。
万一中了个大奖呢。

sxjpf2119

jiminyanyan 发表于 2018-7-14 10:09
遇上彩题，可以多收点辛苦费，哈哈。
万一中了个大奖呢。

老师，能帮就帮帮吧，谢谢

不知道为什么

jiminyanyan 发表于 2018-7-14 10:09
遇上彩题，可以多收点辛苦费，哈哈。
万一中了个大奖呢。

嗯嗯， 老师说的极是！哈哈

不知道为什么

sxjpf2119 发表于 2018-7-14 09:58
老师，我已评分，您辛苦了，但是，那个代码不对，可能您没理解了，老师能再修改下吗？
我重新解释下哈 ...

好吧，每次都是败在理解题意上，我要开始复习语文了。
如图，上面的代码简单改动下就是你需要的了

sxjpf2119

不知道为什么 发表于 2018-7-14 15:04
好吧，每次都是败在理解题意上，我要开始复习语文了。
如图，上面的代码简单改动下就是你需要的了

请问，老师怎么动呢？