Excel会计信息化作业完成版.docx

Excel会计信息化作业完成版.docx

《Excel会计信息化作业完成版.docx》由会员分享，可在线阅读，更多相关《Excel会计信息化作业完成版.docx（11页珍藏版）》请在冰豆网上搜索。

Excel会计信息化作业完成版

Excel会计信息化作业

程序预览

1.登陆界面

介

绍：

登陆界面时设置程序只会显示菜单页，起到有权限的用户才可以进入。

实现的方法是在程序每次关闭时都运行一个自动关闭的宏Auto_Close，进行深度隐藏除菜单页的其他工作表。

进入系统要求输入密码，用if来实现，修改密码必须去相关宏中进行改动。

密码输入正确后宏中关闭其他工作表的隐藏，并且跳到记账凭证表中。

对于自动宏，要改变宏的安全性设置为低。

相关隐藏工作表的宏在后面宏截图中体现。

程序预览

2.记账凭证页

介

绍：

通过制作表格，引入函数实现科目名称的自动计入。

为了记账方便，再添加了三个按钮，分别是对时间的快速填充，清除以上全部填入的数据，和结转当前凭证。

使用当前按钮是通过引入函数Today得到日期，并复制到指定位置进行选择性粘贴实现。

清除按钮是用录制宏的方法制作的。

调用窗体设置按钮为ctrl+Q实现。

同时对表格进行设置格式，只允许在阴影部分填充数据。

相关宏见后表

（续）记账凭证页

程序预览

3.汇总凭证界面

4.

介

绍：

这里由记账凭证结转而来，同时加入了一个按钮，计算出借方和贷方的合计金额。

宏计算结果的实现方法：

在实际的操作中，发现只有对变化的区域进行命名后才能够使用函数Sum，而不能直接用变化的sum（cells（1,6）：

cells（x，6））来实现。

宏要能够正确执行需要的是必须结转填写写上日期的记账凭证。

相关宏见后表

程序预览

4.科目界面

介

绍：

在宏中为了使提高程序的运行效率，只将科目函数km查找范围控制在30，因为在实际工作过程中，这科目表应该是填写完整的，如果每次引用函数km都要去计算一遍它的查找范围，浪费了系统资源，所以控制在实际填写的大一点的范围。

提

示：

宏的排版顺序以按照系统的打开会遇到宏的顺序排版

1　登陆页（密码验证）

2　记账凭证页（结转，清除，填充日期，科目函数及窗体显示，窗体）

3　

汇总凭证（计算借贷金额）

4　退出程序时（菜单页退出，自动宏）

（1）登陆页（密码验证以及关闭相关页的隐藏）

（2）记账凭证页（结转，清除，填充日期，科目函数及窗体显示，窗体）

（

（3）汇总凭证（计算借贷金额）

（4）退出程序时（菜单页退出，自动宏）