《VBA综合训练》实习讲解PPT.pptxVIP

VBA综合训练实习报告计应1032班范鹏

VBA综合训练成绩管理系统人事管理系统

成绩管理系统VBA综合训练

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

VBA综合训练成绩管理系统设计流程图编程思路如图所示，此成绩管理系统共分为两类，即数据类和查询类数据类包括添加班级、添加学生、更新学生分数，查询类包括查询学生信息、打印分数单、统计情况。本项目设计包括工作表宏及窗体的应用。

VBA综合训练成绩管理系统高级查询切换到普通查询：PrivateSubCommandButton3_Click()UserForm2.HideUserForm1.ShowEndSub普通查询切换到高级查询：PrivateSubCommandButton3_Click()UserForm1.HideUserForm2.ShowEndSub普通查找与高级查找

VBA综合训练成绩管理系统添加班级信息PrivateSubCommandButton1_Click()IfComboBox1.Text=OrTextBox1.Text=ThenMsgBox请填写齐全,1+64,系统登录TextBox1.SetFocusElseIf取指定用户密码(ComboBox1)=TextBox1.TextThenUnloadMeMsgBoxComboBox1.Text你好!欢迎你进入本系统,1+64,欢迎词Application.Visible=TrueActiveWorkbook.UnprotectPassword:=123Sheets(主界面).Visible=TrueSheets(主界面).ActivateActiveWorkbook.ProtectPassword:=123ElseMsgBox登录密码错误,请重新输入EndIfEndIfEndSubPrivateSubCommandButton2_Click()UnloadMeApplication.Visible=FalseActiveWorkbook.CloseSaveChanges:=FalseThisWorkbook.CloseTrue不需要保存:falseEndSub

VBA综合训练成绩管理系统生成分数单分数单可以用来给学生发送成绩，要求每人的分数单中都要有该考生完整信息和对应标题。它的作用就是给每个学生分数信息记录加上一个标题栏。因为是在电子表“分数单”中来实现，所以在电子表中添加了“命令按钮”，方便代码的书写和实现该操作。同时，为了方便数据清除，同时添加了一个清除数据的宏。DimTempXAsIntegerDimTempYAsIntegerDimTempCountAsIntegerTempCount=3TempY=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(TempCount,TempX).ValueTempX=TempX+1WendT