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

qhllqhll

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

顶顶顶顶顶顶顶顶顶顶顶
非常好
谢谢老师
辛苦您了
好人有好报，祝您合家欢乐万事如意
本论坛的赵老师（zhaogang1960）也很好，在此也祝福他了

[ 本帖最后由 qhllqhll 于 2011-5-4 00:53 编辑 ]

qhllqhll

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

老师 G列、K列、和M列 的公式能否也改成自动运算啊：看看我下面的该法错在哪里请老师修改 谢谢（加粗的是我自己加上的 复制公式）

    If Target.Column = 4 Then        'E列某单元格输入数据时，以下代码写入公式
    Range("G" & m + 1).FormulaR1C1 = "=RC[-2]*RC[-1]"
       [G6].Copy [G7:G3000]
       Range("K" & m + 1).FormulaR1C1 = "=RC[-2]*RC[-1]"
       [K6].Copy [K7:K3000]
       Range("M" & m + 1).FormulaR1C1 = "=RC[-6]-RC[-2]-RC[-5]"
       [M6].Copy [M7:G3000]
       Range("G" & m - 8 & ":M" & m - 8 & "").Value = Range("G" & m - 8 & ":M" & m - 8 & "").Value
    End If

[ 本帖最后由 qhllqhll 于 2011-5-4 01:30 编辑 ]

wangjhiove

谢谢楼主分享.

qhllqhll

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

老师您好：经测试非常好

[ 本帖最后由 qhllqhll 于 2011-5-4 07:25 编辑 ]

brdsz

原帖由 qhllqhll 于 2011-5-4 01:26 发表

老师 G列、K列、和M列 的公式能否也改成自动运算啊：看看我下面的该法错在哪里请老师修改 谢谢（加粗的是我自己加上的 复制公式）

    If Target.Column = 4 Then        'E列某单元格输入数据时，以下代码写入 ...

这几列已经会自动运算了。我开始考虑当前行运算完后，直接就把公式去除，但考虑到比如说你的某一个单价或数量输错了，要修改的话，这G列、K列、和M列的值不会随着你的修改而变化。如果要变化，还要重新输入当前行的D单元格的值（或选择后双击），一般的人操作，容易引起错误。于是我就把这几行的公式预留了9行，当前行以上的9行之上公式已经去除。也就是说，如果你要修改9行以上的数据，必须要对相应行的D单元格进行操作。如果你想修改保留公式的行数，可以修改以下代码中的m-8中的8，如修改为m+1，则当前行的G列、K列、和M列只保留数值而不保留公式，你自己试试看，记得要同时改4个地方。

Range("G" & m - 8 & ":M" & m - 8 & "").Value = Range("G" & m - 8 & ":M" & m - 8 & "").Value

eyso

谢谢分享！

brdsz

你也可以把以下代码直接删除，这样你输入过的行中的公式可以全部保留。但如果你数据非常多的话，最后文件会较大。看你自己的取舍。

Range("G" & m - 8 & ":M" & m - 8 & "").Value = Range("G" & m - 8 & ":M" & m - 8 & "").Value

青青草6312

brdsz:我的出纳台账还是不能启用宏啊？我发给你帮我看看吧？能告知你的邮箱吗？

青青草6312

我发到你邮箱了，帮我看看啊！我很急的啊。我说每天要用的

青青草6312

brdsz：我见你上午在线的嘛，下午咋不上线了啊？我在线等啊