基于EХCELVBA的差旅报销软件实现

2017-12-13杜运夯

科技与创新 2017年24期

关键词：差旅费差旅单据

杜运夯

（云南能源职业技术学院，云南曲靖 655001）

基于EХCELVBA的差旅报销软件实现

杜运夯

（云南能源职业技术学院，云南曲靖 655001）

在实际工作中，要想简化差旅报销填报流程，提高财务审核效率，就要充分利用EХCELVBA，电子填报单位差旅报销明细，精准计算，从而提高工作效率，在现有工作模式和流程中锐意进取、开拓创新，利用可靠的方法系统化、科学化、规范化地完成各类工作。

EХCEL VBA；差旅报销软件；财务审核；报销单据

1 单位差旅报销概况

1.1 学院出差人员结构复杂，标准不一

云南能源职业技术学院现有教职工350余人，学生9 000余人。学院出差分为编外人员出差、在职在编出差、学生实习出差、各类比赛出差等，存在人员按类型、职称、级别报销标准不统一，出差类型报销不统一的问题。

1.2 出差情况异常偶有出现

在报销时，经常会发生车船票遗失、往返程路线不一致、住宿超标、交通工具使用费用超标等情况，这导致差旅报销填报标准不一，扣减出差各类补贴计算复杂，按照标准出差人员反复填报单据等情况出现。

1.3 财务审核难度大

差旅费制度与干部待遇政策挂钩，而且还会上升到党风廉政建设的高度。财务人员要对差旅费报销审核把关，但是，差旅费审核项目内容繁多，审核压力大，填报单据内容、报销项目、各类异常情况都需进行人工分析，人工核对报销金额，以确保财务报销合规合法。

2 报销软件设计与实现

2.1 差旅报销软件界面设计实现

按照《云南能源职业技术学院差旅报销标准》《学生实习管理办法》《教学类比赛管理办法》内规定的各类人员、各种出差情况归类划分，将差旅报销软件划分为“教职工正常差旅”“教职工异常差旅”“学生正常差旅”“学生异常差旅”4种类型，同时，对于过度复杂的差旅情况，还需手工填报。在差旅报销软件界面，通过添加“控件”，设置单元格格式等手段呈现相关按钮。在Workbook中设置3个sheets，分别为“主界面”“录入界面”“报销单据界面”，并设置“录入界面”“报销单据界面”，Visible属性为False与True之间的切换。主界面、录入界面、报销单据界面如图1、如2、图3所示。

图1 主界面

图2 录入界面

图3 单据呈现界面

2.2 利用EXCEL函数实现核心计算

出差天数实现＝IF(E7=quot;quot;,quot;quot;,E7-D7+1)

个人差旅费用计算＝IF(R7=AB7,IF(R7=quot;quot;,quot;quot;,IF(AND(T7=quot;否quot;,R7lt;gt;quot;quot;),S7*80+AC7,IF(AND(T7=quot;是quot;,R7lt;gt;quot;quot;),S7*65+AC7,IF(AND(T7=quot;单程quot;,R7lt;gt;quot;quot;),S7*80-15+AC7,quot;quot;)))),IF(R7=quot;quot;,quot;quot;,IF(AND(T7=quot;否quot;,R7lt;gt;quot;quot;),S7*80,IF(AND(T7=quot;是quot;,R7lt;gt;quot;quot;),S7*65,IF(AND(T7=quot;单程quot;,R7lt;gt;quot;quot;),S7*80-15,quot;quot;)))))

报销金额总计实现＝IF(SUM(H8:R8)lt;=0,quot;quot;,SUM(H8:R8))

在此需要注意，这个步骤是按照《云南能源职业技术学院差旅报销标准》录入公式的。

2.3 报销单据生成与核心计算实现

新建sheet，设置Visible属性为False，连接呈现。报销单据分为“预算单”“审批单”“报销单”，采用各类数据在填报表中提取。

核心大写人民币实现＝IF(U46=0,quot;quot;,SUBSTITUTE(SUBSTITUTE(IF(U46lt;0,quot;负 quot;,quot;quot;)amp;TEХT(TRUNC(ABS(ROUND(U46,2))),quot;[DBNum2]quot;)amp;quot;元quot;amp;IF(ISERR(FIND(quot;.quot;,ROUND(U46,2))),quot;quot;,TEХT(RIGHT(TRUNC(ROUND(U46,2)*10)),quot;[DBNum2]quot;))amp;IF(ISERR(FIND(quot;.0quot;,TEХT(U4 6,quot;0.00quot;))),quot;角quot;,quot;quot;)amp;IF(LEFT(RIGHT(ROUND(U46,2),3))=quot;.quot;,TEХT (RIGHT(ROUND(U46,2)),quot;[DBNum2]quot;)amp;quot;分quot;,IF(ROUND(U46,2)=0,quot;quot;,quot;整quot;)),quot;零元零quot;,quot;quot;),quot;零元quot;,quot;quot;))

公杂费金额实现＝IF(费用明细y!D7=quot;quot;,0,IF(费用明细y!T7=quot;是quot;,COUNTA(费用明细y!H7:R7)*15*T40,COUNTA(费用明细 y!H7:R7)*30*T40-费用明细 y!T19-费用明细y!T22))