《vba综合训练》实习讲解

《vba综合训练》实习讲解

ID:40002231

大小:3.14 MB

页数:18页

时间:2019-07-17

《vba综合训练》实习讲解_第1页
《vba综合训练》实习讲解_第2页
《vba综合训练》实习讲解_第3页
《vba综合训练》实习讲解_第4页
《vba综合训练》实习讲解_第5页
资源描述:

《《vba综合训练》实习讲解》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、VBA综合训练实习报告计应1032班范鹏VBA综合训练成绩管理系统人事管理系统VBA综合训练成绩管理系统VBA综合训练成绩管理系统实习目的掌握VBA程序设计语言的基础知识,能达到利用VBA编程思想和技巧实现各种高效自动化办公应用,在实习中掌握基本的语法知识和编写代码时的注意事项,还有对窗体的相关操作,控件的恰当选择,相关属性的修改……这些都是需要在实习过程中掌握的。当然,另一方面加深我们对VBA课程的理解。实习内容成绩管理系统用于实现学校学生成绩评估的自动化,让老师可以从手工评估中解脱出来。提高学校办公的速率,以便对于其他工作的完成和

2、安排。VBA综合训练成绩管理系统设计流程图编程思路如图所示,此成绩管理系统共分为两类,即数据类和查询类数据类包括添加班级、添加学生、更新学生分数,查询类包括查询学生信息、打印分数单、统计情况。本项目设计包括工作表宏及窗体的应用。VBA综合训练成绩管理系统高级查询切换到普通查询:PrivateSubCommandButton3_Click()UserForm2.HideUserForm1.ShowEndSub普通查询切换到高级查询:PrivateSubCommandButton3_Click()UserForm1.HideUserFor

3、m2.ShowEndSub普通查找与高级查找VBA综合训练成绩管理系统添加班级信息PrivateSubCommandButton1_Click()IfComboBox1.Text=""OrTextBox1.Text=""ThenMsgBox"请填写齐全",1+64,"系统登录"TextBox1.SetFocusElseIf取指定用户密码(ComboBox1)=TextBox1.TextThenUnloadMeMsgBoxComboBox1.Text&"你好!欢迎你进入本系统",1+64,"欢迎词"Application.Visible

4、=TrueActiveWorkbook.UnprotectPassword:="123"Sheets("主界面").Visible=TrueSheets("主界面").ActivateActiveWorkbook.ProtectPassword:="123"ElseMsgBox"登录密码错误,请重新输入"EndIfEndIfEndSubPrivateSubCommandButton2_Click()UnloadMeApplication.Visible=FalseActiveWorkbook.CloseSaveChanges:=Fal

5、seThisWorkbook.CloseTrue'不需要保存:falseEndSubVBA综合训练成绩管理系统生成分数单分数单可以用来给学生发送成绩,要求每人的分数单中都要有该考生完整信息和对应标题。它的作用就是给每个学生分数信息记录加上一个标题栏。因为是在电子表“分数单”中来实现,所以在电子表中添加了“命令按钮”,方便代码的书写和实现该操作。同时,为了方便数据清除,同时添加了一个清除数据的宏。DimTempXAsIntegerDimTempYAsIntegerDimTempCountAsIntegerTempCount=3TempY

6、=4While(NotIsEmpty(Sheets("学生分数表").Cells(TempCount,1).Value))TempX=1While(NotIsEmpty(Sheets("学生分数表").Cells(2,TempX).Value))Sheets("分数单").Cells(TempY,TempX).Value=Sheets("学生分数表").Cells(2,TempX).ValueSheets("分数单").Cells((TempY+1),TempX).Value=Sheets("学生分数表").Cells(TempCou

7、nt,TempX).ValueTempX=TempX+1WendTempY=TempY+2TempCount=TempCount+1WendVBA综合训练成绩管理系统DimiAsIntegerDimbanjiAsStringFori=1ToSheets("班级表").Range("A1").CurrentRegion.Rows.Count-1class=0classvalue=0banji=Trim(Sheets("班级表").Cells(i+1,1).Value)Sheets("统计表").Cells(i+11,1).Value=b

8、anjiForj=3ToSheets("学生信息表").Range("A2").CurrentRegion.Rows.CountIf((banji=Trim(Sheets("学生信息表").Cells(j,4).Valu

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。