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 Integer Dim X数据库行数 As Integer X凭证行数 = Worksheets(凭证输入).Range(凭证行数) X数据库行数 = Worksheets(凭证输入).Range(数据库行数) If Worksheets(凭证输入).Range(借贷平衡) OK Then MsgBox Worksheets(凭证输入).Range(借贷平衡) Exit Sub End If If Worksheets(凭证输入).Range(银行凭证正确) OK Then MsgBox Worksheets(凭证输入).Range(银行凭证正确) Exit Sub End If If Worksheets(凭证输入).Range(现金凭证正确) OK Then MsgBox Worksheets(凭证输入).Range(现金凭证正确) Exit Sub End If If Worksheets(凭证输入).Range(编码重复) OK Then MsgBox Worksheets(凭证输入).Range(编码重复) Exit Sub End If MsgBox 新增数据库行数 X数据库行数 + 1 For i = 1 To X凭证行数 For j = 1 To 12 Worksheets(凭证数据库).Cells(X数据库行数 + i, j) = Worksheets(凭证输入).Range(数据文件).Cells(i, j) Next j Next i 做一个命令按钮并指定刚才所设置的宏即可