excel账务处理系统操作手册.docxVIP

第一步凭证输入初始界面设置新建工作表，命名凭证输入绘制如下凭证模板，字体型号大小与表格式样，自行美化设计去掉网格线先进入EXCEL选项把这个钩去掉选凭证输入工作表选高级最后效果如下第二步设计会计科目表新建工作表，命名科目设置自行设计科目表如下第三步设计员工表新建工作表，命名员工设置自行设计表格如下第四步数据有效性设置1.数据有效设置的命名菜单如下：设置凭证类型设置方法：、逗号一定是半角凭证日期的有效性设置5．借贷方金额的有效性设置设置凭证号的数据有效性设置科目名称的数据有效性设置完的效果审核与制单员的有效性设置第五步相关公式的设置显示现金凭证如果凭证类型选现金凭证名称显示银行凭证如果凭证类型选银行显示转帐凭证如果凭证类型选转帐=LEFT(C3,1) RIGHT(C3,1) 凭证科目编码公式选中一个科目名称自动显示对应的科目代码=IF(ISERROR(INDEX(科目设置!A:A,MATCH(F5,科目设置!B:B,0),1)),,INDEX(科目设置!A:A,MATCH(F5,科目设置!B:B,0),1))求和公式大写金额公式=IF(ROUND(G14,2)=0,,IF(G140,负,)IF(ABS(G14)=1,TEXT(INT(ROUND(ABS(G14),2)),[dbnum2])元,)SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(G14,2),2),[dbnum2]0角0分;;整),零角,IF(G14^21,,零)),零分,整))第六步保护单元格取消锁定选定要保护的范围用CTR选择蓝色范围并进行锁定设置单元格保护第七步建立凭证数据库新建工作表，命名凭证数据库建立凭证数据表如下3在凭证输入界面，也做好相应的数据格式，便于数据传输完成公式的链接工作做好公式验证如果借贷平衡，显示OK，否则显示借贷不平如果银行凭证没有使用银行科目，显示错误 （COUNTIF函数）如果现金凭证没有使用现金科目，显示错误（COUNTIF函数）如果凭证编码重复，显示错误 （MATCH+ISERROR函数）（注意以上显示的OK都必须是大写，小写ok程序不运行）设置公式计算凭证分录行数，与凭证数据库已使用行数第八步：给以下关键单元格进行命名对以下黄色区域单元格进行命名名称数据文件借贷平衡银行凭证正确现金凭证正确凭证行数数据库行数编码重复命名后结果如下：可以用CTRL+F3，调用名称对话框，查看已定义的名称是否正确第九步：做好启用宏的设置文件另存为启用宏的工作簿定义文件名称与文件类型，注意要是XLSM类型的文件才能运行宏2．打开某某同学账务系统3．启用宏进入EXCEL选项关掉文件再重新打开，即进入宏启用状态第十步：编辑VBA程序点击宏命名输入宏名（凭证录入）并点创建进入VBA编辑窗口复制以下程序段Dim X凭证行数 As IntegerDim X数据库行数 As IntegerX凭证行数 = Worksheets(凭证输入).Range(凭证行数) X数据库行数 = Worksheets(凭证输入).Range(数据库行数) If Worksheets(凭证输入).Range(借贷平衡) OK ThenMsgBox Worksheets(凭证输入).Range(借贷平衡)Exit SubEnd IfIf Worksheets(凭证输入).Range(银行凭证正确) OK ThenMsgBox Worksheets(凭证输入).Range(银行凭证正确)Exit SubEnd If If Worksheets(凭证输入).Range(现金凭证正确) OK ThenMsgBox Worksheets(凭证输入).Range(现金凭证正确)Exit SubEnd If If Worksheets(凭证输入).Range(编码重复) OK ThenMsgBox Worksheets(凭证输入).Range(编码重复)Exit SubEnd If MsgBox 新增数据库行数 X数据库行数 + 1For i = 1 To X凭证行数For j = 1 To 12Worksheets(凭证数据库).Cells(X数据库行数 + i, j) = Worksheets(凭证输入).Range(数据文件).Cells(i, j)Next jNext i做一个命令按钮并指定刚才所设置的宏即可下面是赠送的企业管理名句100，欢迎欣赏!!!!!!关于企业管理的名言名句?5、对产品质量来说，不是100分就是0分。——日本经营之神松下幸之助?6、全世界没一个质量差、光靠价格便宜的产品能够长久地存活下来。——华硕总经理徐世明?7、把我们顶尖的20个人才挖走，那么我告诉你，微软会变成一家无足轻重的公司。——世界首富比尔·盖茨?8、将合