【Excel家庭记账-II】v2.4.4版 ★2013.1.28 更新

Delphima

ourfear 发表于 2013-11-22 13:04
谢谢楼主的回复，后来我是手工alt + F11 进去调整了excel文件里面的引用库然后导出成功。。一头汗啊

{:soso_e179:} 多种解决办法

ourfear

Delphima 发表于 2013-11-22 22:29
多种解决办法

楼主，麻烦看看 年度收支统计表的问题，前面的合计算出来应该就是 4925.71 + 20 + 100， 为什么最后的支出合计算出来是 6731.64 呢？

Delphima

ourfear 发表于 2013-11-24 03:22
楼主，麻烦看看 年度收支统计表的问题，前面的合计算出来应该就是 4925.71 + 20 + 100， 为什么最后的支 ...

这么看看不出问题来的。发附件上来或者把数据导出emial给我

ourfear

Delphima 发表于 2013-11-24 20:38
这么看看不出问题来的。发附件上来或者把数据导出emial给我

汗。。是我的问题。。。我没卷到最上面一行。。。

hodgen

楼主你好，对VBA不是很了解，能否解释下“有效期至2014年8月14日”是什么意思呢？

LinSHX2005

你好 非常感谢你贡献这么好的东西 想咨询下你 不知道可以在下一版本进行如下修改吗？
1.在“账户”那个文件后边添加实时余额，同时可实现查询不同时期的余额；
2.增加信用卡账单周期账单显示，增加一个统计图标，只要我们设置出账单日和还款日，就可以实现每期的账单进行统计并提醒。

非常感谢您！谢谢！

Delphima

hodgen 发表于 2013-11-25 07:32
楼主你好，对VBA不是很了解，能否解释下“有效期至2014年8月14日”是什么意思呢？

数字证书有效日期到那时，不影响使用。详细资料请度娘‘VBA数字证书’。谢谢~

Delphima

LinSHX2005 发表于 2013-11-25 07:56
你好 非常感谢你贡献这么好的东西 想咨询下你 不知道可以在下一版本进行如下修改吗？
1.在“账户”那个文 ...

下一个版本的开发没有时间表 :D,
不同时期的的账户余额查询在，图表中心‘资产负债’表对话框内填入指定日期即可显示该日期余额；
信用卡账单周期显示，的问题在当前版本下可以在查询表内输入指定账户和相关日期参数，执行查询后可以获得统计信息。整合后功能没有计划开发，用户可以根据自己需要开发相关模块。

谢谢。

paperpaper

你好，楼主， 今天打开文件输入数据添加时出现错误信息
方法“Range”作用于对象“_Worksheet”失效

然后点击调试出现下列信息， 第一行是黄色的， 请问如何修改

.Range("$B$" & LastRow).Value = WorksheetFunction.Max(.Range("B:B")) + 1
.Range("$C$" & LastRow).Value = Format(Add_Records_Form.Date_input.Value, "yyyy-mm-dd")
.Range("$D$" & LastRow).Value = Add_Records_Form.Account_input.Value
.Range("$E$" & LastRow).Value = Add_Records_Form.Categ_input.Value
.Range("$F$" & LastRow).Value = WorksheetFunction.VLookup(Add_Records_Form.Account_input.Value, EHF_03AccStg.Range("B:F"), 4, 0)
If Add_Records_Form.OP_Credit Then .Range("$G$" & LastRow).Value = Add_Records_Form.Amount_input.Value
If Add_Records_Form.OP_Debit Then .Range("$H$" & LastRow).Value = Add_Records_Form.Amount_input.Value
If Trim(Add_Records_Form.Owner_input.Value) = "" Then
.Range("$I$" & LastRow).Value = " "
Else
.Range("$I$" & LastRow).Value = Add_Records_Form.Owner_input.Value
End If
If Trim(Add_Records_Form.Descrp_input.Value) = "" Then
.Range("$J$" & LastRow).Value = " "
Else

Delphima

paperpaper 发表于 2013-11-30 11:29
你好，楼主， 今天打开文件输入数据添加时出现错误信息
方法“Range”作用于对象“_Worksheet”失效

导出数据，换一个新的EHF2再导入继续使用；也许是使用过程中损坏了。