Excel中自动按照货物名称实现结余累计的示例

日常生活中，购入消耗货物常运用Excel进行相关统计，能不能实现自动统计出某类货物的结余情况呢？能。示例如下：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lj, jy, Ljgr, Ljxh
If Target.Row <= 1 Then Exit Sub
If Target.Column < 3 Or Target.Column > 7 Then Exit Sub
If Target.Count > 2 Then Exit Sub'判断输入值非负数
If Target.Value < 0 And Target.Column > 3 And Target.Column < 6 ThenMsgBox "内容不能为负值！"Target.SelectTarget.Value = ""
End IfIf Target.Row = 2 ThenCells(2, 6) = Cells(2, 4) - Cells(2, 5)
End If
If Target.Row > 2 ThenLjgr = 0Ljxh = 0For i = 2 To Target.Row - 1If Cells(i, 3) = Cells(Target.Row, 3) ThenLjgr = Ljgr + Cells(i, 4)Ljxh = Ljxh + Cells(i, 5)End IfNext'判断消耗是否大于以往结余If (Target.Value > Ljgr - Ljxh + Cells(Target.Row, 4)) And Target.Column = 5 ThenMsgBox "消耗过多了！"Target.Value = ""Target.SelectEnd IfCells(Target.Row, 6) = Ljgr - Ljxh + Cells(Target.Row, 4) - Cells(Target.Row, 5)End If
End Sub

Excel中自动按照货物名称实现结余累计的示例相关推荐

HTML如何实现单元格自动编号,如何在Excel中自动为列编号？
如何在Excel中自动为列编号? 您是否曾经想过在Excel中对列进行编号? 本教程将讨论一些对列进行编号的方法. 通过公式= ROW()自动编号一列如果要根据行号对列进行编号,可以键入此公式 ...
计算机excel怎么添加实线边框,Excel中自动添加边框线条的方法！学会效率翻倍！你确定不学？...
原标题:Excel中自动添加边框线条的方法!学会效率翻倍!你确定不学? 平常大家在工作中,有时候是不是需要给Excel表格加上边框啊?那么今天我们就来聊聊Excel表格添加边框线条那些事. 大家给Ex ...
计算机函数中数与数之间的冒号,如何在数字之间插入冒号以使其在Excel中自动成为时间格式？...
如何在数字之间插入冒号以使其在Excel中自动成为时间格式? 当您在工作表单元格中插入时间格式时,您是否曾经每次输入冒号都感到烦恼? 在本文中,我将讨论在输入数字以使其在Excel中自动成为时间格式时 ...
如何在Excel中自动创建报告 Excel中自动创建报告的方法
如何在Excel中自动创建报告 Excel中自动创建报告的方法,Excel工作表中存储的数据,可以使用宏来一键创建报告并导出为不同的文件类型.Excel自带步骤记录器,因此你不需要自己编写宏.小编在这 ...
excel中自动填充到最后一行
excel中如果中间没有空行,通过双击黑色十字可自动填充到最后一行,但如果数据中间空行多并且数据多,双击黑色十字只可以填充到空行前面的一行. 这时,可使用ctrl+enter组合键实现自动填充. 1. ...
excel中提取月份_在Excel中自动添加月份表
excel中提取月份 Set up a Master sheet in your workbook, and add month sheets automatically, based on that ...
Excel 中自动阅卷的实现
因单位要求,帮镇工会组织的"2008迎奥运,计算机操作竞赛"出试题.主要内容有打字.Word操作.Excel操作和PPT操作.由于参加竞赛的人员较多,不可能为每一位选手手工评分, ...
excel中自动统计计算方法
C D E 正常非法 56 1970 0.971573604 55 16612 0.99668914 2 72 0.972222222 7 83 ...
excel中自动填充很多行
当在EXCEL中有多行需要自动填充时,例如从B1-B5000填充公式=(A1-15)/1000, 可以先选择B1,即填充内容,Ctrl+C: 然后,选择B2,将表格拉至B5000位置,按住shift键 ...

Excel中自动按照货物名称实现结余累计的示例

Excel中自动按照货物名称实现结余累计的示例相关推荐

最新文章

热门文章