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

yuzhai2001

又2.3.3拉。现在是每过几天我就上来看一下是否有新版发行。哈哈。。。支持

Delphima

原帖由 gongjiangj 于 2011-3-4 08:19 发表

按照你的这个方法以及下载2.3.3版本，尝试后结果均和以前一样，导入数据的文件选取框的初始地址是"我的文档"，而不是本文件的当前文件夹。
这是怎么回事？

"yuzhai2001"谢谢关注，最近的更新是一些比较小的地方，对用户使用体验是改善，没有大的结构上变化~~

GJ，在我电脑上测试过好多次，2.3.3的更新是有效的，莫非Excel在什么地方还会耍诈？你帮忙测试一下这个方法：
导入数据弹出的文件选择对话框指定当前位置需要加上一些补充；
   表对象：EHF_05SysStg
   模块：'一键导入数据
         Private Sub DataInPut_Click()
   位置：在“fName = Application.GetOpenFilename("文本文件 (*.txt),*.txt")”之前加入：
         ChDir ThisWorkbook.Path
         application.defaultfilepath = ThisWorkbook.Path

红字的这句加上看看你的机器上是不是有效了？
=============
我发现主要是EHF2放在不同的存储器盘上，就会出问题，只有一个C盘就没有问题，这个问题我需要再看一下肯定是可以解决的。
=============
问题解决了，就是盘符的问题！
   表对象：EHF_05SysStg
   模块：'一键导入数据
         Private Sub DataInPut_Click()
   位置：在“fName = Application.GetOpenFilename("文本文件 (*.txt),*.txt")”之前加入：
   ChDrive Left(ThisWorkbook.Path, 1)
   ChDir ThisWorkbook.Path
=============
2.3.3 在3月4号更新了，解决了上面的问题！

[ 本帖最后由 Delphima 于 2011-3-4 19:45 编辑 ]

xzlsendoh

实在是太棒了，学习学习！膜拜呀！

ZJ95566

看看，理财了

yufishyy

我是有2.2.3版本按照黏贴复制导入2.3.2版本的，目前记录了几笔都可以，只是查看收支报表的时候出现问题，如下：
运行时错误‘1004’：
不能取得类 WorksheetFunction的VLookup属性

Delphima

原帖由 yufishyy 于 2011-3-9 10:53 发表
我是有2.2.3版本按照黏贴复制导入2.3.2版本的，目前记录了几笔都可以，只是查看收支报表的时候出现问题，如下：
运行时错误‘1004’：
不能取得类 WorksheetFunction的VLookup属性

好奇怪，我看了一下你以前的回复，都是类似的问题，如果你信得过我，可以把你带有数据的2.2.3版本的软件发给我 Delphima@hotmail.com，我帮你导入2.3.3试试。

还有啊，你是在生成哪个报表的时候报错的？另外，我建议检查一下你的Office安装的是不是完整版的？

==========

经过 yufishyy将文件直接发送给我，发现了是因为在记录表中出现错误记录而导致，已发现的情况有两种：
a. 记录表中的账户名称，在账户表中缺少；
b. 只有流水号，没有记录其他内容；

[ 本帖最后由 Delphima 于 2011-3-20 08:05 编辑 ]

gongjiangj

楼主，在“年度统计表”中的全年一列后面可否再添加一列平均值啊？

Delphima

原帖由 gongjiangj 于 2011-3-14 13:08 发表
楼主，在“年度统计表”中的全年一列后面可否再添加一列平均值啊？

========================
【2011.3.20插入】：
2.3.4版本在图表中心提供了复选框，供用户自行决定是否在报表中列出月均收支金额。

========================
这个很方便加入，我回头给你看一下，把代码发在这一楼，未来的版本更新会考虑加入这一统计功能。
谢谢GJ！

========================

把这些代码加入到模块 “图表02年度收支表” 的
“Sub PayErn_GenerateData(AppYear As Integer, AppCurr As String, ShowZroBal As Boolean)” 过程 的以下代码的前面：

“End With
Application.ScreenUpdating = True
End Sub”

========================
代码内容：

    '每月平均收支金额的计算
    FstRecR = 4
    LstRecR = .[O1000].End(xlUp).Row
    Dim Min_Date, Max_Date As Date
    Min_Date = Format(WorksheetFunction.Min(EHF_02DtRec.Range("C:C")), "yyyy-m-d")
    Max_Date = Format(WorksheetFunction.Max(EHF_02DtRec.Range("C:C")), "yyyy-m-d")
    '确定统计年度的有效月份数量
    If Year(Min_Date) = Year(Max_Date) Then
        j = Month(Max_Date) - Month(Min_Date) + 1
    Else
        Select Case AppYear
        Case Is = Year(Min_Date)
            j = 13 - Month(Min_Date)
        Case Is = Year(Max_Date)
            j = Month(Max_Date)
        Case Else
            j = 12
        End Select
    End If
    '设置格式
    .Range("O3:O" & LstRecR).Copy
    .Range("P3:P" & LstRecR).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    .[A4].Select
    .Range("P3").Value = "每月平均"
    '填入金额
    For i = FstRecR To LstRecR
        If Not (EHF_04CatgStg.Range("B:B").Find(.Cells(i, 2).Value) Is Nothing) Or _
           Right(.Cells(i, 2).Value, 2) = "小计" Or _
           Right(.Cells(i, 2).Value, 3) = "合计：" Then
            .Cells(i, 16).Value = Round(.Cells(i, 15).Value / j, 2)
        End If
    Next i
========================
以上代码3.15日重新更新了。

[ 本帖最后由 Delphima 于 2011-3-20 08:07 编辑 ]

gongjiangj

Select Case AppYear
    Case Is = Year(Format(WorksheetFunction.Min(EHF_02DtRec.Range("C:C")), "yyyy-m-d"))
        j = 13 - Month(Format(WorksheetFunction.Min(EHF_02DtRec.Range("C:C")), "yyyy-m-d"))
    Case Is = Year(Format(WorksheetFunction.Max(EHF_02DtRec.Range("C:C")), "yyyy-m-d"))
        j = Month(Format(WorksheetFunction.Max(EHF_02DtRec.Range("C:C")), "yyyy-m-d"))
    Case Else
        j = 12
    End Select
以上语句应该是对计算平均值时的除数进行判断的，但是在实际应用中，以我的情况举例记账表中的数据是从2011年开始的，而现在又在2011年当中，所以程序判断均按照“Case Else”执行，即除数是12。
这点应该是与楼主的本意相悖的。

[ 本帖最后由 gongjiangj 于 2011-3-15 11:34 编辑 ]

Delphima

原帖由 gongjiangj 于 2011-3-15 09:58 发表
Select Case AppYear
    Case Is = Year(Format(WorksheetFunction.Min(EHF_02DtRec.Range("C:C")), "yyyy-m-d"))
        j = 13 - Month(Format(WorksheetFunction.Min(EHF_02DtRec.Range("C:C")), "yyyy-m-d") ...

你说的情况，我明白了，用户只有一年的数据，但是还没有记满一年，应该是第一个case 比如你现在一共记了2月，2、3月份，但是j会自动进入第一种情况，最后赋值j=11，这样求出平均来肯定是错的。等我想想，我给重新加一句。

===============

GJ，我已经更新了代码，还是放在原来的那一楼了，就不重新再贴出来了。

[ 本帖最后由 Delphima 于 2011-3-15 18:49 编辑 ]