[已解决]如何实现用VBA代码按条件调用数据

grf1973

cunfu2010 发表于 2016-4-19 13:54
不好意思，因问题没有解决，撤消了最佳，不然问题解决不了了，抱歉。

这个我不在乎的，有时间就做。

cunfu2010

grf1973 发表于 2016-4-19 14:20
请看附件。

没有从第2行开始调用数据，从第3行开始的

cunfu2010

grf1973 发表于 2016-4-19 14:23
这个我不在乎的，有时间就做。

非常不好意思

grf1973

没注意旁边的数据改过了

cunfu2010

grf1973 发表于 2016-4-19 14:20
请看附件。

还有，没有实现下月延续上月的，现在是每月都从头开始。
如：1月份jbr排到的是魏士昌、张令帅，那么2月份接着排李雪梅、王传浩

grf1973

这个比较麻烦，按序点1月，2月，4月。。。没问题，中间点了3月再点4月就又从头开始了。。。。

grf1973

要解决此问题需要输入月份后计算从1月到上月共出现过几次匹配的日期，乘以2即为匹配过的人数，然后据此在名单中定位。暂时没时间弄，有空再说吧。

cunfu2010

grf1973 发表于 2016-4-19 16:10
这个比较麻烦，按序点1月，2月，4月。。。没问题，中间点了3月再点4月就又从头开始了。。。。

就是，而且点了3月份再点4月份，第一列数据只填入一个

cunfu2010

grf1973 发表于 2016-4-19 16:21
要解决此问题需要输入月份后计算从1月到上月共出现过几次匹配的日期，乘以2即为匹配过的人数，然后据此在名 ...

能不能设置辅助单元格，辅助单元格的值等于数据调用最后一个人的序号的下一个号。比如：最后一个人的序号为1，辅助单元格的值等于2，如果某一个月中没有符合条件的，没有调用数据，则辅助单元格的值为上一个调用数据月的值。
只是这个想法，不知道能否实现？

另外，能不能解释一下这段代码，特别是红色的几句：
                    k(j) = k(j) + 2
                     k1 = k(j) + 1: k2 = k(j) + 2
                    r = Cells(65536, j + 15).End(3).Row
                   If k1 > r Then
                        k1 = 2: k(j) = 1: k2 = 3
                    ElseIf k2 > r Then
                        k2 = 2: k(j) = 1
                    End If
                    Cells(i, j + 5) = Cells(k1, j + 15) & Chr(10) & Cells(k2, j + 15)

cunfu2010

grf1973 发表于 2016-4-19 16:21
要解决此问题需要输入月份后计算从1月到上月共出现过几次匹配的日期，乘以2即为匹配过的人数，然后据此在名 ...

很是感谢，前面的目标已经完成，后面的是额外的，只是想完善起来，让你费心了。再次感谢！！！