Foxtable(狐表)用户栏目专家坐堂 → 求会计科目期未余额的自定义函数


  共有6860人关注过本帖树形打印复制链接

主题:求会计科目期未余额的自定义函数

帅哥哟,离线,有人找我吗?
zhuxinhui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6332 威望:0 精华:0 注册:2017/11/8 17:37:00
求会计科目期未余额的自定义函数  发帖心情 Post By:2021/7/10 14:22:00 [只看该作者]

目前系统要做自定义财务报表,想设置求会计科目期未余额的自定义函数,函数叁数:函数名称、科目代码、起始年、起始月、结束年、结束月,有相关的案例学习下吗?


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110649 积分:563159 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/10 14:29:00 [只看该作者]

没接触过财务,不懂。如果有实例,和详细的计算规则,可以上传发上来看看

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6332 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/7/12 14:37:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.rar


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210712143321.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210712143415.png
图片点击可在新窗口打开查看

 

这些函数不知怎样设


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6332 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/7/12 14:39:00 [只看该作者]

如果函数代码设好,还想着怎样才能应用于EXCEL表

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110649 积分:563159 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/12 14:48:00 [只看该作者]

按什么规则计算?

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6332 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/7/13 6:57:00 [只看该作者]

按会计科目、年份、月份,例如:函数名ABA,会计科目1001,年份2021、月份01,组合成:ABA(1001,2021,01)

单一求一个的值,这个值可放文本、单元格、EXCEL


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110649 积分:563159 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/13 8:39:00 [只看该作者]

还是没看懂,意思就是组合成这么一个字符串【ABA(1001,2021,01)】放到单元格里?



 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6332 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/7/13 11:08:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6332 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/7/13 11:10:00 [只看该作者]

ABA是函数,这个ABA的自定义函数怎样写呢??

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110649 积分:563159 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/13 11:18:00 [只看该作者]

以下是引用zhuxinhui在2021/7/13 11:08:00的发言:

报表,datacolchanged事件
If e.DataCol.Name = "第一列"  Then
    If e.DataRow.IsNull("第一列") Then
        e.DataRow("第三列") = Nothing
    Else
        Dim dr As DataRow = DataTables("明细").Find("科目名称='" & e.DataRow("第一列") & "'")
        If dr IsNot Nothing Then
            e.DataRow("第三列") = "=ABA(" & dr("科目") & "," & Date.Today.Year & "," & Format(Date.Today.Month,"00") & ")"
        Else
            e.DataRow("第三列") = Nothing
        End If
    End  If
End  If

 回到顶部
总数 29 1 2 3 下一页