[已解决]求大神帮忙做一个简单的记账宏表格

xinghai1024

表格需求大致是这样的
在第一个表格可以选择日志内容，交易对象，数量，贩卖的价格（具体内容都可以在下面自定义没有关系）


主要是这步：点击【确认添加】之后输出到第二个分表『按日期算』，主要规则是
1.判断表1填入的交易日期，若没有此日的交易信息，自动在表2列表最下方空一行，生成一个表头，如图：



然后再把表1每格的信息自动输入。

2.若有此日的交易信息，则自动添加在下一行。


内容是：

首先感谢大神，原本预计早点做好给老丈人一个方便的，无奈能力和时间有限，之前做了一半但是找不到之前做的宏了，好像保存错了= =

最佳答案

月排行榜 / 总排行榜

grf1973

2015-7-16 17:00

还是建议搞成列表，然后一键生成日期清单或者个人清单就非常方便。

跳转到最佳答案楼层

xinghai1024

附件忘传了～ 记账簿V0.1.rar (17.13 KB, 下载次数: 4)

2015-7-14 19:38 上传

点击文件名下载附件

zpy2

这样保存不便查询，保存为列表用透表可能容易些

xinghai1024

zpy2 发表于 2015-7-16 05:37
这样保存不便查询，保存为列表用透表可能容易些

透视表吗？其实不需要查询，老丈人在用的时候，就是框选那天的，然后打印下就好了

grf1973

1. Sub 添加()
   
2.     Dim Rng As Range
   
3.     rq = [h4] & Format([j4], "00") & Format([L4], "00")    '日期
   
4.     With Sheet3
   
5.         Set Rng = .UsedRange.Find(rq, lookat:=xlPart)       '日期是否已存在
   
6.         If Rng Is Nothing Then
   
7.             r = .[a65536].End(3).Row + 2
   
8.             .[a1:f2].Copy .Cells(r, 1)
   
9.             .Cells(r, 1) = rq & "交易日志"
   
10.             r = r + 2
    
11.         Else
    
12.             r = .Cells(Rng.Row, 1).End(xlDown).Row + 1
    
13.             .Rows(r).Insert
    
14.         End If
    
15.         .Cells(r, 1).Resize(1, 6) = Array([L5], [H5], [H6], [J6], [L6], Left([L8], Len([L8]) - 1))
    
16.     End With
    
17.     MsgBox "已添加！"
    
18. End Sub
    

复制代码

grf1973

还是建议搞成列表，然后一键生成日期清单或者个人清单就非常方便。

zpy2

grf1973 发表于 2015-7-16 17:00
还是建议搞成列表，然后一键生成日期清单或者个人清单就非常方便。

双手同意！！

xinghai1024

grf1973 发表于 2015-7-16 17:00
还是建议搞成列表，然后一键生成日期清单或者个人清单就非常方便。

是啊，有道理！

做的很完美，很感谢，就先这样，用一段时间有需要我研究看看～