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

zyz218

我想用循环从那列中挑出一月,二月,三月,...因为我要根据出货计划统计出每月每个机种的可能出货量来调整当月的生产计划我的代码是:

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是常量)

大熊

值得一读。

詩意柔情

可太長了要花點時間！　　：）

zhengjialon

感触颇深

sunguochang

不错，要是能压缩一下那就好了，太长了
分析透彻——个人观点

默然

决策人物应该多看，分析此类文章。

WTM1

很好！！！我不在深圳没有进分析的必要！！进行这样的研究至少要
1个星期的调查研究才可以！！

默然

一星期太久，只争朝夕！

WTM1

三尺寒冰，岂是一日之功！！？？

默然

那是古人也。现在，造风，造雨还不都是挥手之间的事？