产品计划用

来源：互联网发布：mac pro 需要键盘膜吗编辑：程序博客网时间：2024/06/09 17:38

Private Sub CommandButton1_Click()



    Call sum(54)
    Call sum(61)
    Call sum(68)
    Call sum(77)
    Call sum(86)
    Call sum(92)


    'MsgBox "end"


End Sub

Sub sum(intBeineLine_param As Integer)
    'MsgBox "sum begin"

    Dim coutnBeginColumn As Integer '8 ｿｪﾊｼﾎｻﾖﾃ
    Dim countKind1 As Double '078A
    Dim countKind2 As Double '083A
    Dim strCompareKind1 As String
    Dim strCompareKind2 As String


    '------------------------------------------------078A----------------------------------------------------
    countKind1 = 0
    strCompareKind1 = Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 1, 52).Value
    'MsgBox strCompareKind1
    coutnBeginColumn = 8
    Do While coutnBeginColumn < 51

        If Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param, coutnBeginColumn).Value = strCompareKind1 Then
           countKind1 = countKind1 + Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 1, coutnBeginColumn).Value
        End If

        coutnBeginColumn = coutnBeginColumn + 1

    Loop

    Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 1, 53).Value = countKind1




    '------------------------------------------------083A----------------------------------------------------

    countKind2 = 0
    strCompareKind2 = Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 2, 52).Value
    coutnBeginColumn = 8
    Do While coutnBeginColumn < 51

        If Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param, coutnBeginColumn).Value = strCompareKind2 Then
           countKind2 = countKind2 + Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 1, coutnBeginColumn).Value
        End If

        coutnBeginColumn = coutnBeginColumn + 1

    Loop

    Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 2, 53).Value = countKind2

End Sub