Office中国论坛/Access中国论坛

标题: If Month(.Cells(r, 2)) = 1 [打印本页]

作者: 大熊 时间: 2002-12-9 17:35
值得一读。

作者: 詩意柔情 时间: 2002-12-11 00:27
可太長了要花點時間！　　：）

作者: zhengjialon 时间: 2002-12-11 20:40
感触颇深

作者: sunguochang 时间: 2002-12-12 06:01
不错，要是能压缩一下那就好了，太长了
分析透彻——个人观点

作者: 默然 时间: 2003-1-9 21:25
决策人物应该多看，分析此类文章。

作者: WTM1 时间: 2003-1-9 23:01
很好！！！我不在深圳没有进分析的必要！！进行这样的研究至少要
1个星期的调查研究才可以！！

作者: 默然 时间: 2003-1-9 23:37
一星期太久，只争朝夕！

作者: WTM1 时间: 2003-1-10 22:27
三尺寒冰，岂是一日之功！！？？

作者: 默然 时间: 2003-1-11 17:34
那是古人也。现在，造风，造雨还不都是挥手之间的事？

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

作者: zyz218 时间: 2005-1-26 00:54
标题: If Month(.Cells(r, 2)) = 1
我想用循环从那列中挑出一月,二月,三月,...因为我要根据出货计划统计出每月每个机种的可能出货量来调整当月的生产计划我的代码是:

Private Sub Outputeverymonth()

Dim r, s, u, v, jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec As Integer

Dim NET As String

s = 3: jan = 5: feb = 6: mar = 7: apr = 8: may = 9: jun = 10: jul = 11: aug = 12: sep = 13: oct = 14: nov = 15: dec = 16

With ActiveSheet

Application.ScreenUpdating = False '关闭屏幕更新

Worksheets("数据统计").Range("NET_Area") = ""  '清空以前数据

Do Until s > 30

      For r = z To x

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

            .Cells(r, 3) = "NET" And _

            .Cells(r, 4) = Worksheets("数据统计").Cells(s, 3) Then

                  u = Worksheets("数据统计").Cells(s, jan)

                  v = Worksheets("数据统计").Cells(s + 1, jan)

                  Worksheets("数据统计").Cells(s, jan) = .Cells(r, 5) + u

                  Worksheets("数据统计").Cells(s + 1, jan) = .Cells(r, 6) + v

         End If

      Next r

         s = s + 2

Loop

Application.ScreenUpdating = True '打开屏幕更新

End With

End Sub

其中的Month(.cells(r,2))=1不对,也不好因为不能区别年份请老鬼多多指点.(z是常量)

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

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

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

作者: zyz218 时间: 2005-1-26 02:40
标题: 原文件在此:)
原文件在此

[attach]8768[/attach]

作者: zyz218 时间: 2005-1-26 04:35
其实这个问题用数组可以解决,但数组好像不能连续复制对吗?我目前用的就是一个一个复制数组的,麻烦!!!!!

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

作者: 老鬼 时间: 2005-1-26 05:26
还有，如果你的行列没搞错，那你引用的CELLS不要是合并掉的单元格，合并后的单元格只有左上角的单元格有效。

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)