x01.Excel: 共计件数

'================================================================
' Count (c) 2014 by x01
'-------------------------
'   计算每行的整件数和码洋
'
' 参数：
'   sheet: 所选的表。
'   numPerBag: 每件的数量。
'   startRow: 开始的行数。
'   endRow: 结束的行数。
'================================================================
Public Sub Count(sheet, numPerBag, startRow, endRow)
    For i = startRow To endRow
        If Application.WorksheetFunction.IsNumber(sheet.Cells(i, 4)) Then
        If Trim(sheet.Cells(i, 1)) <> "合计" Then
        '通过定价选择行数
        'If 15# = sheet.Cells(i, 3) Then
            '计算每行整包
            sheet.Cells(i, 6) = CStr(Int(sheet.Cells(i, 4) / numPerBag)) & "件+" & CStr(sheet.Cells(i, 4) Mod numPerBag)
            
            '计算每行码洋
            sheet.Cells(i, 5) = sheet.Cells(i, 3) * sheet.Cells(i, 4)
        'End If
        End If
        End If
    Next
    Debug.Print CStr(startRow) & " - " & CStr(endRow)
End Sub

'=================================================================
' SumCol (c) 2014 by x01
'-----------------------
'   计算列的合计数，如数量合计，码洋合计等。
'
' 参数：
'   sheet: 所选的表。
'   col: 指定的列。
'   startRow: 开始的行数。
'   endRow: 结束的行数。
'=================================================================
Public Sub SumCol(sheet, col, startRow, endRow)
    Dim result As Double
    result = 0
    For i = startRow To endRow
        If Application.WorksheetFunction.IsNumber(sheet.Cells(i, col)) Then
        If Trim(sheet.Cells(i, 1)) <> "合计" Then
        If 23# = sheet.Cells(i, 3) Then
            result = result + sheet.Cells(i, col)
        End If
        End If
        End If
    Next
    
    Debug.Print CStr(result)
End Sub