Excel会计信息化大型作业.docx
- 文档编号:10278894
- 上传时间:2023-05-24
- 格式:DOCX
- 页数:13
- 大小:986.19KB
Excel会计信息化大型作业.docx
《Excel会计信息化大型作业.docx》由会员分享,可在线阅读,更多相关《Excel会计信息化大型作业.docx(13页珍藏版)》请在冰点文库上搜索。
Excel会计信息化大型作业
分配工作:
一、设计凭证管理系统
1、打开Excel建立记账凭证工作表。
2、录入相关文字并修改格式。
3、
3、在制作的记账凭证工作表中插入函数。
4、单击菜单栏“格式/单元格”,用是“单元格格式”对话框中的“保护”选项对工作表进行格式保护。
5、制作科目工作表。
6、用框体进行记账凭证表的科目编号的输入。
7、创建汇总凭证工作表。
8、选择视图工具栏中的宏选项,选择查看宏选择创建宏
输入代码。
Sub第二宏()
IfCells(12,7)=Cells(12,9)Then
Cells(12,2)="合计:
"
Else
Cells(12,2)="借贷不平"
EndIf
EndSub
Sub结转()
x=1
DoWhileNot(IsEmpty(Sheets("结转").Cells(x,1)))
x=x+1
Loop
z=6
DoWhileNot(IsEmpty(Sheets("记账凭证").Cells(z,2)))
z=z+1
Loop
Fory=6Toz-1
Sheets("结转").Cells(x,1)=Sheets("记账凭证").Cells(3,3)
Sheets("结转").Cells(x,2)=Sheets("记账凭证").Cells(3,9)
Sheets("结转").Cells(x,3)=Sheets("记账凭证").Cells(4,3)
Sheets("结转").Cells(x,4)=Sheets("记账凭证").Cells(y,2)
Sheets("结转").Cells(x,5)=Sheets("记账凭证").Cells(y,4)
Sheets("结转").Cells(x,6)=Sheets("记账凭证").Cells(y,7)
Sheets("结转").Cells(x,7)=Sheets("记账凭证").Cells(y,9)
x=x+1
Nexty
EndSub
Functionkm(科目编号)
found=False
If科目编号=""Then
km=""
Else
x=1
DoWhileNot(IsEmpty(Sheets("科目").Cells(x,2)))
x=x+1
Loop
Fort=2Tox-1
If科目编号=Sheets("科目").Cells(t,1)Then
found=True
ExitFor
EndIf
Nextt
Iffound=TrueThen
km=Sheets("科目").Cells(t,2)
Else
km="科目编号错"
EndIf
EndIf
点击:
得到:
第二题
分配工作:
二、设计固定资产管理系统
(一)“固定资产管理系统”的设计步骤如下:
(1)以MicrosoftExcel一张工作表的一行反映一项固定资产的资料。
选定MicrosoftExcel的一张工作表,命名为“固定资产管理”,在该表上设计系统的相应栏目。
首先“计提折旧”按钮的具体操作如下:
第一步:
打开会计信息系统文件,选择菜单栏里面开发文件,然后选择[插入/命令按钮]命名,如下图:
第二步:
更名:
计提折旧
然后建立表格如图:
(2)公式:
(3)设计一个宏,自动计算所有固定资产的“计提折旧期数(月)”和自动填充记录公式。
自动生成每一项固定资产的“计提折旧期数(月)”
(4)“固定资产管理系统”应用示例
点击“计提折旧”按钮,系统自动计算结果如下图
二
(二)用直线折旧法,个别折旧
(1)设备a,设备b,设备c,设备d的数据进行直线折旧,应用SLN函数及其他内容,得到下表:
(2)
最终得到年直线法折旧计算结果
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel 会计 信息化 大型 作业