资源描述：
《excel账务处理系统操作手册》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第一步凭证输入初始界面设置1.新建工作表，命名凭证输入2.绘制如下凭证模板，字体型号大小与表格式样，自行美化设计3.去掉网格线先进入EXCEL选项把这个钩去掉选凭证输入工作表选高级最后效果如下第二步设计会计科目表1.新建工作表，命名科目设置1.自行设计科目表如下第三步设计员工表1.新建工作表，命名员工设置2.自行设计表格如下第四步数据有效性设置1.数据有效设置的命名菜单如下：1.设置凭证类型设置方法：、逗号一定是半角2.凭证日期的有效性设置5．借贷方金额的有效性设置1.设置凭证号的数据有效性2.设置科目名称的数据有效
2、性设置完的效果1.审核与制单员的有效性设置第五步相关公式的设置显示现金凭证如果凭证类型选现金1.凭证名称显示银行凭证如果凭证类型选银行显示转帐凭证如果凭证类型选转帐=LEFT(C3,1)&""&RIGHT(C3,1)&""&"凭证"2.科目编码公式选中一个科目名称自动显示对应的科目代码=IF(ISERROR(INDEX(科目设置!A:A,MATCH(F5,科目设置!B:B,0),1)),"",INDEX(科目设置!A:A,MATCH(F5,科目设置!B:B,0),1))1.求和公式1.大写金额公式=IF(ROUND(
3、G14,2)=0,"",IF(G14<0,"负","")&IF(ABS(G14)>=1,TEXT(INT(ROUND(ABS(G14),2)),"[dbnum2]")&"元","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(G14,2),2),"[dbnum2]0角0分;;整"),"零角",IF(G14^2<1,,"零")),"零分","整"))第六步保护单元格1.取消锁定2.选定要保护的范围用CTR选择蓝色范围并进行锁定1.设置单元格保护第七步建立凭证数据库1.新建工作表，命名凭证
4、数据库2．建立凭证数据表如下3在凭证输入界面，也做好相应的数据格式，便于数据传输1.完成公式的链接工作2.做好公式验证如果借贷平衡，显示OK，否则显示借贷不平如果银行凭证没有使用银行科目，显示错误（COUNTIF函数）如果现金凭证没有使用现金科目，显示错误（COUNTIF函数）如果凭证编码重复，显示错误（MATCH+ISERROR函数）（注意以上显示的OK都必须是大写，小写ok程序不运行）设置公式计算凭证分录行数，与凭证数据库已使用行数第八步：给以下关键单元格进行命名对以下黄色区域单元格进行命名名称数据文件借贷平衡银
5、行凭证正确现金凭证正确凭证行数数据库行数编码重复命名后结果如下：可以用CTRL+F3，调用名称对话框，查看已定义的名称是否正确第九步：做好启用宏的设置1．文件另存为启用宏的工作簿定义文件名称与文件类型，注意要是XLSM类型的文件才能运行宏2．打开某某同学账务系统3．启用宏进入EXCEL选项1.关掉文件再重新打开，即进入宏启用状态第十步：编辑VBA程序1.点击宏命名1.输入宏名（凭证录入）并点创建2.进入VBA编辑窗口3.复制以下程序段DimX凭证行数AsIntegerDimX数据库行数AsIntegerX凭证行数=W
6、orksheets("凭证输入").Range("凭证行数")X数据库行数=Worksheets("凭证输入").Range("数据库行数")IfWorksheets("凭证输入").Range("借贷平衡")<>"OK"ThenMsgBoxWorksheets("凭证输入").Range("借贷平衡")ExitSubEndIfIfWorksheets("凭证输入").Range("银行凭证正确")<>"OK"ThenMsgBoxWorksheets("凭证输入").Range("银行凭证正确")ExitSubEnd
7、IfIfWorksheets("凭证输入").Range("现金凭证正确")<>"OK"ThenMsgBoxWorksheets("凭证输入").Range("现金凭证正确")ExitSubEndIfIfWorksheets("凭证输入").Range("编码重复")<>"OK"ThenMsgBoxWorksheets("凭证输入").Range("编码重复")ExitSubEndIfMsgBox"新增数据库行数"&X数据库行数+1Fori=1ToX凭证行数Forj=1To12Worksheets("凭证数据库").
8、Cells(X数据库行数+i,j)=Worksheets("凭证输入").Range("数据文件").Cells(i,j)NextjNexti1.做一个命令按钮并指定刚才所设置的宏即可
