首页 > 代码库 > x01.Excel: 合计件数
x01.Excel: 合计件数
由于 VBA 与 Excel 是耦合的，所以还是先看表：
件数的计算，用 Mod 即可。但考虑到要求码洋、数量等多种需求，就该 VBA 登场了。代码如下：
‘================================================================‘ 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
在表中，如果有多个发货清单，该宏具有很好的穿透能力，使用起来还是挺方便的。使用方法如下：
1. 仿照 Excel 表的 列 新建一 Excel 表。
2. 按 Atl + F11 快捷键，在显示窗口中插入模块，将上面代码复制到模块中。
3. 在命令窗口中输入类似如下命令并回车即可：
Count Sheet1,30,1,200
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。