If Month(.Cells(r, 2)) = 1

Trynew

据《南方都市报》网络采访，作者透露自己是一个到深圳三年，并无深圳户口的金融证券业人士，并说此事若能令自己出名，也不妨抓住机会，只是目前暂不便公开真实身份。
你看，大水也有能冲龙王庙的一天，望各位罐水界朋友努力！！

老鬼

很可能是你的“Cells(r, 2)”里面的数据不是日期格式，而是文本格式，所以类型无法匹配。试试Month(DateValue(.Cells(r, 2))) = 1，注意“Cells(r, 2)”里的数据应该是符合日期格式的文本。使用YEAR函数可以返回年份。

zyz218

老鬼大哥问题还没解决,为了让你看得明白我把原文件发上来,,顺便帮我研究研究,我想把生产计划,出货计划,物料需求全部联起来,当然目前还没做到,,估计可能要用ACCESS,先解决眼前问题,以后再考虑那个问题吧,如果老鬼那有现成的好例子不妨给在下参考一下,呵呵

zyz218

老鬼大哥问题还没解决,为了让你看得明白我把原文件发上来,,顺便帮我研究研究,我想把生产计划,出货计划,物料需求全部联起来,当然目前还没做到,,估计可能要用ACCESS,先解决眼前问题,以后再考虑那个问题吧,如果老鬼那有现成的好例子不妨给在下参考一下,呵呵

zyz218

原文件在此

zyz218

其实这个问题用数组可以解决,但数组好像不能连续复制对吗?我目前用的就是一个一个复制数组的,麻烦!!!!!

老鬼

没时间看全你的代码，不过你是不是搞错了行和列，“Cells(r, 2)”中，第一个参数是行，第二个参数是列，也就是r行2列，你是不是理解成了2行r列。month函数是绝对没错的。当然，这种数据管理的情况最好还是用ACCESS，否则开发慢，运行速度也不行，还会受到很多条件的限制。

老鬼

还有，如果你的行列没搞错，那你引用的CELLS不要是合并掉的单元格，合并后的单元格只有左上角的单元格有效。

zyz218

谢谢老鬼大哥,其实我上传的那个表就是公司在用的计划排程表,本人觉得不好,但那个日本主管不让改,没办法,对生产计划有兴趣的朋友可以参考一下,不知那位大侠有没有更好的管理表格,不妨发上来,,,,在下的下一步就是用ACCESS来开发它吧.昨天看了老鬼大哥的数组讲座真的很不错,不知还没有没其它的专题讲座?在下真的想去看看,如果有把连接发上来,如果没,不妨来点讲座呀老鬼大哥,我想学生应很多的.