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

第一步 凭证输入初始界面设置1. 新建工作表，命名凭证输入2. 绘制如下凭证模板，字体型号大小与表格式样，自行美化设计3. 去掉网格线先进入EXCEL选项把这个钩去掉选凭证输入工作表选高级最后效果如下第二步 设计会计科目表1. 新建工作表，命名科目设置2. 自行设计科目表如下第三步 设计员工表1. 新建工作表，命名员工设置2. 自行设计表格如下第四步 数据有效性设置1.数据有效设置的命名菜单如下：3. 设置凭证类型设置方法：、逗号一定是半角4. 凭证日期的有效性设置5 借贷方金额的有效性设置5. 设置凭证号的数据有效性6. 设置科目名称的数据有效性设置完的效果7. 审核与制单员的有效性设置第五步 相关公式的设置显示现金凭证如果凭证类型选现金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)3. 求和公式4. 大写金额公式=IF(ROUND(G14,2)=0,IF(G14=1,TEXT(INT(ROUND(ABS(G14),2),dbnum2)&元,)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(G14,2),2),dbnum20角0分;整),零角,IF(G1421,零),零分,整)第六步 保护单元格1. 取消锁定2. 选定要保护的范围用CTR选择蓝色范围并进行锁定3. 设置单元格保护第七步 建立凭证数据库1. 新建工作表，命名凭证数据库2 建立凭证数据表如下3在凭证输入界面，也做好相应的数据格式，便于数据传输4. 完成公式的链接工作5. 做好公式验证如果借贷平衡，显示OK，否则显示借贷不平如果银行凭证没有使用银行科目，显示错误 （COUNTIF函数）如果现金凭证没有使用现金科目，显示错误（COUNTIF函数）如果凭证编码重复，显示错误 （MATCH+ISERROR函数）（注意以上显示的OK都必须是大写，小写ok程序不运行）设置公式计算凭证分录行数，与凭证数据库已使用行数第八步：给以下关键单元格进行命名对以下黄色区域单元格进行命名名称数据文件借贷平衡银行凭证正确现金凭证正确凭证行数数据库行数编码重复命名后结果如下：可以用CTRL+F3，调用名称对话框，查看已定义的名称是否正确第九步：做好启用宏的设置1 文件另存为启用宏的工作簿定义文件名称与文件类型，注意要是XLSM类型的文件才能运行宏2打开某某同学账务系统3启用宏进入EXCEL选项5. 关掉文件再重新打开，即进入宏启用状态第十步：编辑VBA程序1. 点击宏命名2. 输入宏名（凭证录入）并点创建3. 进入VBA编辑窗口4. 复制以下程序段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(凭证数据库).Cel