科技与创新┃Science and Technology&Innovation ·110·2017年第24期
文章编号：2095－6835（2017）24－0110－02
基于EXCEL VBA的差旅报销软件实现
杜运夯
（云南能源职业技术学院，云南曲靖655001）
摘要：在实际工作中，要想简化差旅报销填报流程，提高财务审核效率，就要充分利用EXCEL VBA，电子填报单位差旅报销明细，精准计算，从而提高工作效率，在现有工作模式和流程中锐意进取、开拓创新，利用可靠的方法系统化、科学化、规范化地完成各类工作。
关键词：EXCEL VBA；差旅报销软件；财务审核；报销单据
中图分类号：TP391.13文献标识码：A DOI：10.15913/jki.kjycx.2017.24.110
1单位差旅报销概况
excel做成软件录入界面
1.1学院出差人员结构复杂，标准不一
云南能源职业技术学院现有教职工350余人，学生9000余人。学院出差分为编外人员出差、在职在编出差、学生实习出差、各类比赛出差等，存在人员按类型、职称、级别报销标准不统一，出差类型报销不统一的问题。
1.2出差情况异常偶有出现
在报销时，经常会发生车船票遗失、往返程路线不一致、住宿超标、交通工具使用费用超标等情况，这导致差旅报销填报标准不一，扣减出差各类补贴计算复杂，按照标准出差人员反复填报单据等情况出现。
1.3财务审核难度大
差旅费制度与干部待遇政策挂钩，而且还会上升到党风廉政建设的高度。财务人员要对差旅费报销审核把关，但是，差旅费审核项目内容繁多，审核压力大，填报单据内容、报销项目、各类异常情况都需进行人工分析，人工核对报销金额，以确保财务报销合规合法。
2报销软件设计与实现
2.1差旅报销软件界面设计实现
按照《云南能源职业技术学院差旅报销标准》《学生实习管理办法》《教学类比赛管理办法》内规定的各类人员、各种出差情况归类划分，将差旅报销软件划分为“教职工正常差旅”“教职工异常差旅”“学生正常差旅”“学生异常差旅”4种类型，同时，对于过度复杂的差旅情况，还需手工填报。在差旅报销软件界面，通过添加“控件”，设置单元格格式等手段呈现相关按钮。在Workbook中设置3个sheets，分别为“主界面”“录入界面”“报销单据界面”，并设置“录入界面”“报销单据界面”，Visible属性为False与True之间的切换。主界面、录入界面、报销单据界面如图1、如2、图3所示。
图1主界面
图2录入界面. All Rights Reserved.
Science and Technology &Innovation ┃科技与创新
·111·
2017年第24期
图3单据呈现界面
2.2利用EXCEL 函数实现核心计算
出差天数实现＝IF(E7="","",E7-D7+1)个人差旅费用计算＝IF(R7=AB7,IF(R7="","",IF(AND (T7="否",R7<>""),S7*80+AC7,IF(AND(T7="是",R7<>""),S7*65+AC7,IF(AND(T7="单程",R7<>""),S7*80-15+AC7,"")))),IF(R7="","",IF(AND(T7="否",R7<>""),S7*80,IF(AND (T7="是",R7<>""),S7*65,IF(AND(T7="单程",R7<>""),S7*80-15,"")))))
报销金额总计实现＝IF(SUM(H8:R8)<=0,"",SUM (H8:R8))
在此需要注意，这个步骤是按照《云南能源职业技术学院差旅报销标准》录入公式的。2.3报销单据生成与核心计算实现
新建sheet ，设置Visible 属性为False ，连接呈现。报销单据分为“预算单”“审批单”“报销单”，采用各类数据在填报表中提取。
核心大写人民币实现＝IF(U46=0,"",SUBSTITUTE (SUBSTITUTE(IF(U46<0,"负","")&TEXT (TRUNC(ABS (ROUND(U46,2))),"[DBNum2]")&"元"&IF(ISERR(FIND (".",ROUND (U46,2))),"",TEXT (RIGHT(TRUNC(ROUND (U46,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(U46,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(U46,2),3))=".",TEXT
(RIGHT(ROUND(U46,2)),"[DBNum2]")&"分
",IF(ROUND(U46,2)=0,"","整")),"零元零",""),"零元",""))
公杂费金额实现＝IF(费用明细y!D7="",0,IF(费用明细y!T7="是",COUNTA(费用明细y!H7:R7)*15*T40,COUNTA (费用明细y!H7:R7)*30*T40-费用明细y!T19-费用明细y!T22))
2.4系统打印与保存
系统打印设置时，按照打印范围、打印分数设置预览效果，对打印进行调整设置。
保存出差记录实现：
ThisWorkbook.SaveAs "D:\差旅报销\我的出差记录\"&Format(Now,"出差报销"&"YYYYMMDDhhmmss")
Application.Quit 3应用效果分析
软件使用了少量的EXCEL 函数完成各类计算，比如IF 、FIND 、RIGHT 、ROUND 等，同时，还实现了各类数据分类和精准计算。这样做，减少了报账人员的计算工作量，避免了计算错误，有效解决了计算标准不统一等问题。
多个sheets 在不同情况下通过Visible 属性于False 、True 之间切换，界面简洁，解决了分类核算的问题。而且，使用
这个软件，在各种情况下均可实现精准计算。
在报销时，出差人员只需输入出差实际花销金额，系统自动扣减超标准金额，并自动呈现核报金额，报销明细一目了然。使用这个软件，大大提高了填报与审核效率，实现了无错误免重复填报，同时，系统自动保存出差记录，自动划分各类费用，还实现了痕迹管理。4结束语
以云南能源职业技术学院为例，其差旅报销软件开发是基于本单位深化改革的需要，也是在信息化建设时期提高工作效率，减轻工作负担所采取的必然措施。本文是在对日常工作有所思考的基础上，利用可靠、便捷的手段对现有工作模式和工作流程进行创新优化。参考文献：
［1］邵亮.Excel 在会计中的应用［M ］.北京：教育科学出版
社，2013.
［2］杜华英.基于Excel 的年度工资生成解决方案［J ］.电脑
知识与技术，2010，6（3X ）：1998-1999.
［3］谢国波，刘竹松.利用VBA 编写Excel 中的工资条与工
资查询窗口［J ］.电脑知识与技术，2008（14）.————————
作者简介：杜运夯（1979—），男，2000年毕业于中国矿业大学采矿工程专业，高校讲师。
〔编辑：白洁〕
. All Rights Reserved.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。