《《VBA综合训练》实习讲解.ppt》由会员分享，可在线阅读，更多相关《《VBA综合训练》实习讲解.ppt（18页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VBAVBA综合训练实习报告综合训练实习报告计应1032班 范鹏VBA综合训练成绩管理系统人事管理系统VBA综合训练成绩管理系统VBA综合训练成绩管理系统实习目的目的 掌握VBA程序设计语言的基础知识，能达到利用VBA编程思想和技巧实现各种高效自动化办公应用，在实习中掌握基本的语法知识和编写代码时的注意事项，还有对窗体的相关操作，控件的恰当选择，相关属性的修改这些都是需要在实习过程中掌握的。当然，另一方面加深我们对VBA课程的理解。实习内容内容 成绩管理系统用于实现学校学生成绩评估的自动化，让老师可以从手工评估中解脱出来。提高学校办公的速率，以便对于其他工作的完成和安排。VBA综合训练成绩管理
2、系统设计流程图设计流程图 编程思路编程思路 如图所示，此成绩管理系统共分为两类，即数据类和查询类数据类包括添加班级、添加学生、更新学生分数，查询类包括查询学生信息、打印分数单、统计情况。本项目设计包括工作表宏及窗体的应用。VBA综合训练成绩管理系统高级查询切换到普通查询：Private Sub CommandButton3_Click()UserForm2.Hide UserForm1.ShowEnd Sub普通查询切换到高级查询：Private Sub CommandButton3_Click()UserForm1.Hide UserForm2.ShowEnd Sub普通查找与高级查找普通查
3、找与高级查找VBA综合训练成绩管理系统添加班级信息添加班级信息Private Sub CommandButton1_Click()If ComboBox1.Text=Or TextBox1.Text=Then MsgBox 请填写齐全,1+64,系统登录 TextBox1.SetFocusElse If 取指定用户密码(ComboBox1)=TextBox1.Text Then Unload Me MsgBox ComboBox1.Text&你好!欢迎你进入本系统,1+64,欢迎词 Application.Visible=True ActiveWorkbook.Unprotect Passwo
4、rd:=123 Sheets(主界面).Visible=True Sheets(主界面).Activate ActiveWorkbook.Protect Password:=123 Else MsgBox 登录密码错误,请重新输入 End IfEnd IfEnd SubPrivate Sub CommandButton2_Click()Unload Me Application.Visible=False ActiveWorkbook.Close SaveChanges:=False ThisWorkbook.Close True 不需要保存:falseEnd SubVBA综合训练成绩管理系统
5、 生成分数单生成分数单 分数单可以用来给学生发送成绩，要求每人的分数单中都要有该考生完整信息和对应标题。它的作用就是给每个学生分数信息记录加上一个标题栏。因为是在电子表“分数单”中来实现，所以在电子表中添加了“命令按钮”，方便代码的书写和实现该操作。同时，为了方便数据清除，同时添加了一个清除数据的宏。Dim TempX As Integer Dim TempY As Integer Dim TempCount As Integer TempCount=3 TempY=4 While(Not IsEmpty(Sheets(学生分数表).Cells(TempCount,1).Value)TempX
6、=1 While(Not IsEmpty(Sheets(学生分数表).Cells(2,TempX).Value)Sheets(分数单).Cells(TempY,TempX).Value=Sheets(学生分数表).Cells(2,TempX).Value Sheets(分数单).Cells(TempY+1),TempX).Value=Sheets(学生分数表).Cells(TempCount,TempX).Value TempX=TempX+1 Wend TempY=TempY+2 TempCount=TempCount+1 WendVBA综合训练成绩管理系统Dim i As Integer
7、Dim banji As String For i=1 To Sheets(班级表).Range(A1).CurrentRegion.Rows.Count-1 class=0 classvalue=0 banji=Trim(Sheets(班级表).Cells(i+1,1).Value)Sheets(统计表).Cells(i+11,1).Value=banji For j=3 To Sheets(学生信息表 If(banji=Trim(Sheets(学生信息表).Cells(j,4).Value)Then class=class+1 TempX=3 While(Not IsEmpty(Sheet
8、s(学生分数表).Cells(TempX,1).Value)If(Sheets(学生信息表).Cells(j,1).Value=Sheets(学生分数表).Cells(TempX,1).Value)Then classvalue=classvalue+CInt(Sheets(学生分数表).Cells(TempX,10).Value)End If TempX=TempX+1 Wend End If Next j Sheets(统计表).Cells(i+11,2).Value=class If class=0 Then Sheets(统计表).Cells(i+11,3).Value=0 Else
9、Sheets(统计表).Cells(i+11,3).Value=classvalue/class End If Next i TempY=3 While(Not IsEmpty(Sheets(学生信息表).Cells(TempY,1).Value)If(男=Sheets(学生信息表).Cells(TempY,3).Value)Then boy=boy+1 TempX=3 While(Not IsEmpty(Sheets(学生分数表).Cells(TempX,1).Value)If(Sheets(学生信息表).Cells(TempY,1).Value=Sheets(学生分数表).Cells(Te
10、mpX,1).Value)Then boyValue=boyValue+CInt(Sheets(学生分数表).Cells(TempX,10).Value)End If TempX=TempX+1 Wend ElseIf(女=Sheets(学生信息表).Cells(TempY,3).Value)Then girl=girl+1 TempX=3 While(Not IsEmpty(Sheets(学生分数表).Cells(TempX,1).Value)If(Sheets(学生信息表).Cells(TempY,1).Value=Sheets(学生分数表).Cells(TempX,1).Value)Th
11、en girlValue=girlValue+CInt(Sheets(学生分数表).Cells(TempX,10).Value)End If TempX=TempX+1 Wend End If TempY=TempY+1 Wend生成统计表生成统计表统计表是来完成学生信息的综合统计，包括班级、全年级、男女生的整体情况，在此功能中涉及到诸多变量，从各个班级人数到各个班级总分，还有男女生人数和男女生总分，以至于最后的各项平均分。同时添加了清除数据信息的宏，此宏可以让数据区域清空。在电子表中添加相应控件与所编写的代码相联系，实现其自动统计信息的功能。VBA综合训练成绩管理系统需要注意的是在最后，需要
12、在thisworkbook对象中输入如下语句：Private Sub Workbook_Open()Application.Visible=False UserForm6.Show Sheets(主界面).ScrollArea=$A$1End Sub主界面主界面VBA综合训练人事管理系统VBA综合训练人事管理系统实习目的目的 掌握VBA程序设计语言的基础知识，能达到利用VBA编程思想和 技巧实现各种高效自动化办公应用，在实习中掌握基本的语法知识和编写代码时的注意事项，还有对窗体的相关操作，控件的恰当选择，相关属性的修改这些都是需要在实习过程中掌握的。当然，另一方面加深我们对VBA课程的理解。实
13、习内容内容 人事管理系统用于实现公司员工的信息管理的自动化，从而提高公司人事管理方面的办公速率，以便对于其他工作的完成和安排。进一步的提高我们的VBA综合能力。让我们VBA知识学的更扎实。VBA综合训练人事管理系统设计流程图设计流程图编程思路编程思路人事管理系统只要包括添加员工信息、修改员工信息、查询员工信息、删除员工信息等方面。其中最重要的是在查询员工信息时能同时显示出员工的相片信息，这是这个项目的难点及亮点。VBA综合训练人事管理系统Private Sub 查询_Click()Dim X As Integer,Y As Integer,Mcol As IntegerDim Mrng As
14、Range,Mrng1 As RangeDim MF As StringDim Msh As WorksheetIf 员工编号=Then Exit SubMF=员工编号.Text清空所有内容员工编号.Text=MF员工照片.Picture=LoadPictureOn Error Resume Next员工照片.Picture=LoadPicture(ThisWorkbook.Path&/员工照片/&员工编号.Text&.jpg)Set Mrng1=Sheets(员工信息).Cells.Find(员工编号)If Not Mrng1 Is Nothing Then Set Msh=Sheets(员
15、工信息)Else Set Msh=Sheets(离职员工信息)End IfWith Msh Y=.Cells.Find(员工编号).Row For X=1 To Mcol=.Cells.Find(Me.Controls(X).Name).Column Me.Controls(X).Text=.Cells(Y,Mcol)Next XEnd WithSet Mrng=NothingSet Msh=NothingExit SubEnd SubVBA综合训练人事管理系统VBA综合训练人事管理系统*开始添加文件子菜单*Set 子菜单=主菜单.Controls.Add(Type:=msoControlPo
16、pup)子菜单.Caption=文件(&F)With 子菜单 Set BER=.Controls.Add(Type:=msoControlButton)With BER .Caption=保存 .BeginGroup=True .OnAction=保存 .FaceId=3 End With Set BER=.Controls.Add(Type:=msoControlButton)With BER .Caption=打印预览 .BeginGroup=True .OnAction=打印预览 .FaceId=109 End With Set BER=.Controls.Add(Type:=msoCo
17、ntrolButton)With BER .Caption=打印 .FaceId=4 .OnAction=打印 End With Set BER=.Controls.Add(Type:=msoControlButton)With BER .Caption=退出 .BeginGroup=True .OnAction=退出 .FaceId=1640 End With End With 。自定义菜单和自定义工具栏自定义菜单和自定义工具栏VBA综合训练实习总结这次实习我得到了以下的一些经验：这次实习我得到了以下的一些经验：一是掌握最好的方式就是使用，从基础学起，多练习多动脑筋。二是通过示例可以加速学习程序设计概念的过程。三是好的教材和示例是提高的得力助手。四是实用程序不一定很复杂，有一些最有用的实用程序实际上非常简单。试验是掌握VBA的关键；Excel几乎可以做任何事情，所以我们以后还要加强对VBA源代码的学习，特别是高质量源代码的学习。谢 谢 观 赏