本文共 1961 字，大约阅读时间需要 6 分钟。

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
        
    '------------------------------------------------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
        
    '------------------------------------------------083A----------------------------------------------------
        
    countKind2 = 0
        
    strCompareKind2 = Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 2, 52).Value
        
    'MsgBox strCompareKind2
        
    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
        
    Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 1, 53).Value = countKind1
        
    Worksheets("ﾉ峵bﾓ興ｭ").Cells(intBeineLine_param + 2, 53).Value = countKind2
End Sub