（10月11日再次更新）银行多账户出纳台账，可分月、分账户查询

qhllqhll

原帖由 brdsz 于 2011-5-3 17:34 发表
根据你的要求修改了，试试看。记得启用---宏！！！！

好用的话，记得顶一下，哈哈。

顶顶顶顶顶顶顶顶顶顶顶
能否解释一下各句的代码
请老师再帮我测试一下
1、给单位发货的
    金额=单价*数量
2、销售成本的
    金额=单价*数量
3、销售利润=发货金额 -  税金 - 成本金额 - 销售费用
4、 欠收款 = 发货金额 - 已收款

[ 本帖最后由 qhllqhll 于 2011-5-3 17:59 编辑 ]

brdsz

我大概测试了一下，没问题。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False   
If Target.Column <> 4 Then Exit Sub    ‘如果使用列不是D列，退出SUB
On Error Resume Next  
m = Target.Row - 1
If Target.Value = "月结" Then        '如果使用单元格的值为“月结”，则执行以下代码
i = Range("C" & m + 1).End(xlUp).Row      
Range("G" & m + 1) = Evaluate("SUMPRODUCT(($B$6:$B" & i & "=$B" & i & ")*G$6:G" & i & ")")       ’公式，如果月份数等于“月结”单元格之上一行的月份数，则该月份数对应的G列值相加
Range("K" & m + 1) = Evaluate("SUMPRODUCT(($B$6:$B" & i & "=$B" & i & ")*K$6:K" & i & ")")
Range("M" & m + 1) = Evaluate("SUMPRODUCT(($B$6:$B" & i & "=$B" & i & ")*M$6:M" & i & ")")
ElseIf Target.Value = "年结" Then
n = Target.Row - 2
Range("G" & n + 2) = Evaluate("SUMPRODUCT(($B$6:$B" & n & ">0)*G$6:G" & n & ")")       ’公式，所有有月份数的列对应的G列值相加
Range("K" & n + 2) = Evaluate("SUMPRODUCT(($B$6:$B" & n & ">0)*K$6:K" & n & ")")
Range("M" & n + 2) = Evaluate("SUMPRODUCT(($B$6:$B" & n & ">0)*M$6:M" & n & ")")
End If
Application.ScreenUpdating = True   
End Sub

brdsz

按你的要求，只给你做“月结”“年结”部分的，其他部分直接用公式就行了。

qhllqhll

原帖由 brdsz 于 2011-5-3 18:07 发表
我大概测试了一下，没问题。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False   
If Target.Column  4 Then Exit Sub    ‘如果使用列不是D列，退出SUB
On Error Re ...

谢谢 无私奉献的 好老师
我再试试

qhllqhll

原帖由 brdsz 于 2011-5-3 18:09 发表
按你的要求，只给你做“月结”“年结”部分的，其他部分直接用公式就行了。

为了您的无私奉献
顶顶顶顶顶顶

brdsz

原帖由 qhllqhll 于 2011-5-3 17:52 发表

顶顶顶顶顶顶顶顶顶顶顶
能否解释一下各句的代码
请老师再帮我测试一下
1、给单位发货的
    金额=单价*数量
2、销售成本的
    金额=单价*数量
3、销售利润=发货金额 -  税金 - 成本金额 - 销售费用
4、 ...

如果想全部用代码，也可以。等我有时间再给你做。

brdsz

其实你也可以自己用录制宏的方式试试看。具体录制宏的方法，在VBA板块中有，你可以搜一下。

qhllqhll

原帖由 brdsz 于 2011-5-3 18:20 发表
其实你也可以自己用录制宏的方式试试看。具体录制宏的方法，在VBA板块中有，你可以搜一下。

顶：我认为录制宏的方法只能录制一些简单的，到不了您的这个境界，您看您的帖子的下载率是多么的高啊！
夸张一点的话 您就可以达到：“一个代码闯天下”了
谢谢 您好老师

茉儿

很不错,谢谢了!

brdsz

不用客气。想当初，我进这里的时候，可以说是一片空白。在坛友们的帮助下，完成了两个比较大的系统。即使到现在，也不敢说自己已经入门了，有很多东西到现在也不明就里，而只会“拿”来用。能尽自己的一点绵薄之力帮助坛友，也是我的荣幸。

做了一个全部用代码的，不知是否符合你的要求，请测试一下。有问题请反馈。

[ 本帖最后由 brdsz 于 2011-5-3 22:54 编辑 ]