VBA编写模块-查找对方科目

记录自己编的第一个VBA，总算明白四大为什么青睐计算机专业的了，EXCEL之光。

先制作一个序时账草稿

在“借”这里是一个公式，举例：=IF(H2<>0,"借","贷")

注意：公式要拉到底，不然最后数字对不上很难找到原因。

下一步：

VBA截图

已经编好的代码，可以直接使用，基本熟悉IF就可以编写（当然要先明白做账逻辑）

在Code="1406"处可以将自己要找的科目代码输进去（注意：只需要四级科目代码就可以，四级科目代码可以在查询系统里用=Len公式）

在Document Of Subject.Name="包含“&Code&"科目的贷所有凭证"和

If Left (Cells(Pointer,CodeColumn),CodeLenth)=Code And Cells(Pointer,6)="贷" Then

IF这里是一个公式，在这两处可以依据负债类、权益类，资产类科目去设置对方科目是借方或是贷方。

举例：2201（职工薪酬）做账是：

借：应付职工薪酬

贷：管理费用（或其他）

那么职工薪酬的对方科目就是贷方，即这两个地方就可以直接改成贷

然后修改模块名称之后就可以开始运行。

小结：在已经完成的小程序上基本只用上述的三个操作就可以找到对方科目，但是要注意草稿的格式以及公式是否正确，否则需要一遍遍重新操作调整。

问题：目前的这个版本并不是很完善，偶尔会出现一些多余的科目，导致数字对不上，还是要去手工筛选，后期继续更新调试。