excel账务处理系统操作手册

1、第一步 凭证输入初始界面设置新建工作表，命名凭证输入绘制如下凭证模板，字体型号大小与表格式样，自行美化设计去掉网格线先进入EXCEL选项把这个钩去掉选凭证输入工作表选高级最后效果如下第二步 设计会计科目表新建工作表，命名科目设置自行设计科目表如下第三步 设计员工表新建工作表，命名员工设置自行设计表格如下第四步 数据有效性设置1.数据有效设置的命名菜单如下：设置凭证类型设置方法：、逗号一定是半角凭证日期的有效性设置5 借贷方金额的有效性设置设置凭证号的数据有效性设置科目名称的数据有效性设置完的效果审核与制单员的有效性设置第五步 相关公式的设置显示现金凭证如果凭证类型选现金凭证名称显示银行凭证如果

2、凭证类型选银行显示转帐凭证如果凭证类型选转帐=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(G14=1,TEXT(INT(ROUND(ABS(G14),2),dbnum2)&元,)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(G14,2),2),dbnum20角

3、0分;整),零角,IF(G1421,零),零分,整)第六步 保护单元格取消锁定选定要保护的范围用CTR选择蓝色范围并进行锁定设置单元格保护第七步 建立凭证数据库新建工作表，命名凭证数据库 建立凭证数据表如下3在凭证输入界面，也做好相应的数据格式，便于数据传输完成公式的链接工作做好公式验证如果借贷平衡，显示OK，否则显示借贷不平如果银行凭证没有使用银行科目，显示错误 （COUNTIF函数）如果现金凭证没有使用现金科目，显示错误（COUNTIF函数）如果凭证编码重复，显示错误 （MATCH+ISERROR函数）（注意以上显示的OK都必须是大写，小写ok程序不运行）设置公式计算凭证分录行数，与凭证数

4、据库已使用行数第八步：给以下关键单元格进行命名对以下黄色区域单元格进行命名名称数据文件借贷平衡银行凭证正确现金凭证正确凭证行数数据库行数编码重复命名后结果如下：可以用CTRL+F3，调用名称对话框，查看已定义的名称是否正确第九步：做好启用宏的设置文件另存为启用宏的工作簿定义文件名称与文件类型，注意要是XLSM类型的文件才能运行宏2打开某某同学账务系统3启用宏进入EXCEL选项关掉文件再重新打开，即进入宏启用状态第十步：编辑VBA程序点击宏命名输入宏名（凭证录入）并点创建进入VBA编辑窗口复制以下程序段Dim X凭证行数 As IntegerDim X数据库行数 As IntegerX凭证行数

5、= 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(凭证数据库).Cell