家事通记账本 Just-Saving! VB应用习作

tinajiuyue

感谢楼主的分享，我09年使用双胞胎拔拔的记录一年，前天上他的网站准备下载新的版本，结果看见他推荐的你做的这个账本，下载来用了一下，感觉很不错，增加了很多实用的界面和分类，谢谢楼主的分享，但是还有几点疑问想要说一下（我下载的12月16日最新更新的那个版本）：

1.在setup中设置了银行的起始余额和信用卡的未缴款余额，但是在bank和creditcard这两张表格中分别点击“在下面显示银行卡（信用卡）流水明细”按钮后，明细中只显示摘要信息（银行卡期初余额/记账日之初信用卡未缴金额），但是余额一栏中并没有带入相关的数据，我参看了一下cashcard这张表格，在setup中预先设置消费卡起始余额，在cashcard中点击“在下面显示消费卡流水明细”按钮，则有相关的数据被带过来。于是我查找这几个宏编辑器里内容，发现cashcard有一句
   For i = 7 To 36
        If Sheet8.Range("H" & i) = CashCardName Then
            CashCard_Ini = Sheet8.Range("J" & i)
            Exit For
        End If
    Next i  ”

而同样的语句，在bank和creditcard都是选择的sheet9.Range，于是我把这两个表的sheet9都改成了sheet8，初始数据就能被带到明细里了，请问这样改正确吗？

2.Debit表格中的四个方向性的选择，看着有点迷糊，他们的是不是仅仅是为了数据筛选而用，对于运算没有影响呢？在我的理解，假如我问他人借了一笔款项，毋庸质疑，首次借入时，“债权/债务”栏选择“借入/债务”，“方向”一栏选择“借入款项<--”，没有问题，但是当我要归还这笔款项的时候，是不是“债权/债务”栏是不是还应该选择“借入/债务”，而“方向”一栏选择“<--归还债务”呢？我不知道，这个两个箭头是否应该简单的理解为，他们都属于“借入/债务”这一项，所以方向也就相应的一致，但是我认为无论款项时借入还是借出，他的内部也应该有一个一进一出的过程，债务是借入的，那么他的箭头朝左没有问题，可是当我归还这笔债务的时候，应该款是出去了啊，所以箭头应该朝右才对；同样的道理，“借出/债权”，“借出款项-->”箭头朝右没有问题，可是当这笔钱回收回来的时候，那么“回收款项”应该箭头朝左才对啊，这样才能体现一个项目底下，一进一出的过程，但是这个箭头方向自己不会修改，还请楼主指点，多谢了

3.同样是Debit表格里的问题，资金方式里可以选择现金、各类银行卡和消费卡，为什么没有信用卡呢？有的时候替别人在网上买东西，直接用信用卡付账，可是没有信用卡项的选择，就很难直接体现出来了，不知道该如何修改呢

4.楼主在设计表格的时候，可能从简洁的角度考虑，很多汇总页面，显示的数据都直接取整了，而很多明细取又是保留两位小数的，我想从精确的角度来看，应该 统一一下比较好，所以我自己通过撤销工作表保护，修改单元格格式的方式把他们都改成了保留两位小数的形式，不知道这样会不会影响运算呢？

5.可能楼主还会不断的更新这个表格，如果以后有新的版本，是不是必须要把旧版本里的数据copy到新的版本里面才能使用呢？

6.09年的帐记录完以后，还是在同一个表格里继续记录2010年的明细就可以了是吗？11、12年....的消费明细也都是在这样一张表里顺延记录就可以了吗？


问题比较多，希望楼主不要因此不耐烦啊，再次感谢设计了如此实用的工具！

tinajiuyue

还有个疑问，请问楼主，还是在debit表格中，为什么从第28行开始，对方名称和方向这两项没有下拉选项了呢

simonzhang2008

原帖由 tinajiuyue 于 2009-12-23 14:03 发表
还有个疑问，请问楼主，还是在debit表格中，为什么从第28行开始，对方名称和方向这两项没有下拉选项了呢

恩，很细致的问题，说出了很多Bug。
我慢慢回复，改。

xyz12001

謝謝

pkpika

и?璶?更~~稰谅???荐み?膍

gjuu0927

挺好的，也学学

simonzhang2008

原帖由 tinajiuyue 于 2009-12-23 12:36 发表
1.在setup中设置了银行的起始余额和信用卡的未缴款余额，但是在bank和creditcard这两张表格中分别点击“在下面显示银行卡（信用卡）流水明细”按钮后，明细中只显示摘要信息（银行卡期初余额/记账日之初信用卡未缴金额），但是余额一栏中并没有带入相关的数据，我参看了一下cashcard这张表格，在setup中预先设置消费卡起始余额，在cashcard中点击“在下面显示消费卡流水明细”按钮，则有相关的数据被带过来。于是我查找这几个宏编辑器里内容，发现cashcard有一句
   For i = 7 To 36
        If Sheet8.Range("H" & i) = CashCardName Then
            CashCard_Ini = Sheet8.Range("J" & i)
            Exit For
        End If
    Next i  ”

而同样的语句，在bank和creditcard都是选择的sheet9.Range，于是我把这两个表的sheet9都改成了sheet8，初始数据就能被带到明细里了，请问这样改正确吗？

完全正确，原来程序有误。现在已经改好。

程序还有一个地方有Bug，在main模块里面的最后一段，应该修改为如下（其中的   SpendList(i, 1) = i -YearlySpendCount + 6   ，原来为SpendList(i, 1) = i - 6 ）：
（还没有上传2007版的V0.90.200版，目前V0.90.100-2007版用户，可以通过手动修改上述和下面这个bug继续使用）

1. Public Sub LoadSpendList()
   
2.     YearlySpendCount = Sheet9.Range("E2")
   
3.     DailySpendCount = Sheet9.Range("F2")
   
4.     For i = 1 To YearlySpendCount
   
5.         SpendList(i, 0) = Sheet9.Range("E" & i + 2)
   
6.         SpendList(i, 1) = i + 7
   
7.      Next i
   
8.     For i = YearlySpendCount + 1 To 40
   
9.         SpendList(i, 0) = Sheet9.Range("F" & i - YearlySpendCount + 2)
   
10.         SpendList(i, 1) = i -YearlySpendCount + 6
    
11.     Next i
    
12. End Sub

复制代码

原帖由 tinajiuyue 于 2009-12-23 12:36 发表
2.Debit表格中的四个方向性的选择，看着有点迷糊，他们的是不是仅仅是为了数据筛选而用，对于运算没有影响呢？在我的理解，假如我问他人借了一笔款项，毋庸质疑，首次借入时，“债权/债务”栏选择“借入/债务”，“方向”一栏选择“借入款项<--”，没有问题，但是当我要归还这笔款项的时候，是不是“债权/债务”栏是不是还应该选择“借入/债务”，而“方向”一栏选择“<--归还债务”呢？我不知道，这个两个箭头是否应该简单的理解为，他们都属于“借入/债务”这一项，所以方向也就相应的一致，但是我认为无论款项时借入还是借出，他的内部也应该有一个一进一出的过程，债务是借入的，那么他的箭头朝左没有问题，可是当我归还这笔债务的时候，应该款是出去了啊，所以箭头应该朝右才对；同样的道理，“借出/债权”，“借出款项-->”箭头朝右没有问题，可是当这笔钱回收回来的时候，那么“回收款项”应该箭头朝左才对啊，这样才能体现一个项目底下，一进一出的过程，但是这个箭头方向自己不会修改，还请楼主指点，多谢了

的确是，细节考虑不周。现在已经改好。

原帖由 tinajiuyue 于 2009-12-23 12:36 发表
3.同样是Debit表格里的问题，资金方式里可以选择现金、各类银行卡和消费卡，为什么没有信用卡呢？有的时候替别人在网上买东西，直接用信用卡付账，可是没有信用卡项的选择，就很难直接体现出来了，不知道该如何修改呢

以前自己觉得借人钱财一般不会刷信用卡吧，所以没加。如果要加，所有涉及到信用卡的公式都要修改，地方比较多，这次就先不加了，以后再说。
如果有信用卡的债权债务问题，暂时可以这样处理：信用卡里“提现金”，借给别人现金。

原帖由 tinajiuyue 于 2009-12-23 12:36 发表
4.楼主在设计表格的时候，可能从简洁的角度考虑，很多汇总页面，显示的数据都直接取整了，而很多明细取又是保留两位小数的，我想从精确的角度来看，应该 统一一下比较好，所以我自己通过撤销工作表保护，修改单元格格式的方式把他们都改成了保留两位小数的形式，不知道这样会不会影响运算呢？

完全不会影响运算。单元格和页面格式，可以随意DIY。

原帖由 tinajiuyue 于 2009-12-23 12:36 发表
5.可能楼主还会不断的更新这个表格，如果以后有新的版本，是不是必须要把旧版本里的数据copy到新的版本里面才能使用呢？

导入旧版数据的程序有打算写，但现在空闲时间不多，等些时日吧。
目前如果更换版本，可以用Copy的办法，但最好先复制，然后“选择性粘贴”-“值”，而不粘贴格式。
如果直接粘贴，会提示名称冲突，然后要按照提示不停地选“是”。

原帖由 tinajiuyue 于 2009-12-23 12:36 发表
6.09年的帐记录完以后，还是在同一个表格里继续记录2010年的明细就可以了是吗？11、12年....的消费明细也都是在这样一张表里顺延记录就可以了吗？

对，延续下去就行，只要不超过10年（暂时的设定），记录行不超过Excel的65536行，哦不对，是60000行，因为我的程序里只认60000行。

[ 本帖最后由 simonzhang2008 于 2009-12-24 14:43 编辑 ]

tinajiuyue

感谢楼主的耐心回复，除了债权/债务表里的方向性问题和下拉选框不出现的问题，自己不会修改以外，其他的操作方式也都和楼主建议的一样的，谢谢

另外，还要多问一句，还是债权债务表中，那个是否抵消的栏，选择是以后，除了其他表示此行被删除以外，并没有其他的作用是吗？就是说好像，不管选是或否，或者空白，都不会影响计算是吗，计算结果只通过，四个方向的的选择和债权债务的归属来运行判断的对吧

simonzhang2008

原帖由 tinajiuyue 于 2009-12-24 14:42 发表
感谢楼主的耐心回复，除了债权/债务表里的方向性问题和下拉选框不出现的问题，自己不会修改以外，其他的操作方式也都和楼主建议的一样的，谢谢

另外，还要多问一句，还是债权债务表中，那个是否抵消的栏，选择是以 ...

选了抵消，就是将这行的格式加了删除号，省的哪些借了哪些还了看起来太复杂，数值还是通过计算来的。

tinajiuyue

楼主，又有问题要咨询了
1.前面你说的那个main模块要修改的那段直接全copy就可以吗？我用的是2003版，还用修改吗？