会计对账（自动对账表）

No.1

介绍本节之前，首先了解一下什么是"对账"。

对账，就是核对账目，是指在会计核算中，为保证账簿记录正确可靠，对账簿中的有关数据进行检查和核对的工作。

说白了，就是对账目进行核查。

本节就简单介绍一个对账表制作过程。

对账操作页如下图所示：

可实现，自动初始化表功能，对所有的选择项目实现预处理。

选择供应单位或采购单位可实现账目自动搜索、显示、计算和绘图功能。

账目一目了然。

No.2

下图为订单记录表：

订单记录是整个对账操作过程中是最重要的一个表，所有的计算将对此表进行检索。

下图为供应商表：

供应商信息要预先进行建表设置，这个是固定不变的一个表，过程当中需要对此表进行一个比较操作。

除此之外还有一个采购方表，一般来说，采购方为对账主体，当然采购方表和供应方一样要建立自己的采购信息表。同样也是对采购表进行比较操作。

No.3

表格建立不是很难，重要的是如何实现自行化处理和计算。

下面为实现自动搜索、计算的一些代码截图：

总体编码思路为模块化函数式编程，基本上可以实现模块化就以模块为单位进行拆分，函数功能返回特定的数据，以便多处调用和后期修改。

计算不是很多，只做了一个应付款项、已付款项和待付款项。同时以图表形式呈现出来，更加直观。

由于对财务专业知识不太熟悉，可能本例中呈现出来的表格可能有一些不合理，重点是讲实现功能的VBA方法和思路，如果有错误的地方，欢迎指正。

本例中应用了许函数、对象的使用方法，其中要以添加"数据验证"最突出，数据表初始货的功能就用到利用代码自动添加"数据验证"的方法。

所以，后面文章会，专门介绍如何利用VBA代码，来进行"数据验证"操作。

数据验证Validation对象，代表工作表区域的数据有效性规则。

    With Selection.Validation
        .Delete
        .Add xlValidateList, xlValidAlertWarning, xlEqual, Join(NewArr, ",")
    End With

对账表制作基本方法，就是这些，由于没有通用性，可能不同的公司有不同的帐目表，所以做这个意义在于，利用不同方法实现表格筛选和统计功能。

欢迎关注、收藏。

---END---