分享一款财务审计专用的Excel工具箱，功能强大，简单易用

方方格子

分享一款功能强大的财务审计专用工具箱：AudTool。软件提供财务审计行业最实用的功能。
本版本采用VSTO开发(Com加载项)，支持32位和64位Office，支持Excel2007至2013各版本。


软件安装后提供超过30个功能：清除非数字、生成对方科目、尾差报告、添加Round、提取工作表、提取单元格等。

最新版V1.2.4。 欢迎大家下载使用。
【百度网盘】：http://pan.baidu.com/share/home?uk=1982809066#category/type=0

安装后Excel界面：


部分功能介绍：
------------------------------------------------------------------------
1.清除非数字

说明：

当我们制作的明细表中有些单元格包含了非数字，比如字母，汉字，符号等，这些妨碍我们对单元格进行计算比如：

通用电气	A产品800989.09
中国神化	24,542.00元
交通银行	56,465.00
合计

操作：

选中要清除非数字的区域，点击【4.      清除非数字】，结果如下：

通用电气	800,989.09
中国神化	24,542.00
交通银行	56,465.00
合计

2.对方科目

说明：

客户提供给我们序时账和科目余额表，在是筛选某个科目的所有凭证的时候，不能显示完整的借贷关系分录，后者我们细节测试想看某个科目的对方科目是否异常，测试计提与分配，等等都需要看到对方科目。这时候我们可以将对方科目放在同一行，方便筛选和统计。

【注意1】因为序时账一般都包含各月小计，累计金额，需要将这些行筛选出来删除，以免造成麻烦

【注意2】生成对方科目一般是需要一级科目（如：应付职工薪酬）即可，而不需要生成其对方科目的明细项目（如：养老保险费、津贴、补贴），但是序时账的记账凭证都是记录的明细科目，所以要在序时账里插入三列，一列给明细科目对一级科目编码，一列给明细科目对应一级科目名称，一列获取明细可以代码的前四位（如果前四位是代表一级科目的话，依次类推，可以使用left函数搞定），对应明细科目的一级科目编码和名称的来源是科目余额表，对应的方法是使用vlookup函数。

【注意3】当凭证号全年是有重复的情况下，建议将记账日期和凭证号组合成一列（再增加一个辅助列吧），以免程序认为全年重复的是一笔凭证。

操作：

点击【对方科目】-在弹出窗口中选择四个关键字段“凭证号”“一级科目编码”“一级科目名称”“方向”，然后选择生成对方科目的存放位置，注意，一定要存放在第一笔凭证的起始行的某一列，如图示。

生成结果如下：

3.    透视单元格

说明：

该功能相当于透视表一样透视单元格，可以穿透整个工作簿查询每个工作表的指定单元格的值和公式，方便对合并汇总数据进行检验和测算，方便核对数据和查询。

操作：

选中要透视的单元格，点击【透视单元格】--弹出透视结果，还可以将结果导出到工作表的指定位置，点击【导出】--鼠标点选要存放导出透视内容的起始位置

4.提取文件

该功能可以提取文件夹中指定若干文件的相同表格的相同区域，并连续放置在同一个工作表中，并与源工作表建立超链接。

此功能可以用于合并报表，合并附注等。

最终结果：

补充内容 (2019-6-19 10:51):
如果链接失效，请到这里下载：http://ffcell.com/home/AuditOrder.aspx

jyhxr

有没有可以应付审计的软件啊?

方方格子

jyhxr 发表于 2015-7-7 16:14
有没有可以应付审计的软件啊?

了解别人怎么审计 才能应付啊~

方方格子

自己顶一下

方方格子

应付审计，你必须先知道别人是怎么审计，会找出什么样的问题，如果你在别人审计之前，自己就知道了，那不就好办了，你说是吧。
这款审计专版对你肯定有帮助。

lysmile13

虽然没有用过 但是能研究出来这样的软件也是件了不起的事情 支持你{:soso_e130:}

方方格子

lysmile13 发表于 2015-8-13 16:16
虽然没有用过 但是能研究出来这样的软件也是件了不起的事情 支持你

多谢支持，这款审计专版是由几个审计专家全程指导完成的，肯定非常适合做审计的人员用的

shaowu459

相反数，添加round这两个功能很常用，我也放在了自己的工具条中。
推荐再加一个功能，代码如下：

1. Sub SumVisible()        '选择不连续区域后按钮，再选择1个单元按钮返回总合
   
2.     Static result
   
3.     a = Selection.Count
   
4.     If a = 1 Then
   
5.         Selection.Value = result
   
6.     Else
   
7.         result = Application.Sum(Selection.SpecialCells(xlCellTypeVisible))
   
8.     End If
   
9. End Sub

复制代码

toobarger

这个真不错，是个好东东！

方方格子

toobarger 发表于 2015-8-13 21:29
这个真不错，是个好东东！

多谢支持 .......