Excel3课堂练习要求.docVIP

Excel课堂练习要求 为了便于管理员工的档案、考勤、奖金以及工资等情况，企业管理人员需要不断地输入和更新员工工资系统，并对其进行统计和查询。此处使用系统内嵌的Visual Basic编辑器中编辑和调试VBA程序代码，以提高办公自动化水平。 步骤一、完成“员工工资系统”工作簿中“员工工资表”、“员工档案信息表”、“月度考勤统计表”、“加班月记录表”、“加班登记表”、“业绩奖金表”六个工作表的数据处理。（提示：查看素材，完成上述要求） 步骤二、设置工资系统界面 1、在工作表“员工工资表”前插入一个新工作表“员工工资系统界面”，隐藏工作表的网格线，【工具】—【视图】—【网格线】，背景填充为淡蓝色，选择【格式】—【工作表】—【背景】插入001.jpg图片，设置B3:G16单元格无填充颜色，设置上边线和左边线为白色，右边线和下边线为黑色。 2、B5:G8单元格合并居中，输入“员工工资系统界面”文字，设置字体：隶书，字号：24 3、选择【插入】—【图片】—【来自文件】，插入002.jpg、003.jpg图片，调整到合适大小，在弹出的【图片】工具栏中单击【设置透明色】，使图片的白色区域设置为透明色。选择【插入】—【图片】—【剪贴画】插入剪贴画。 步骤三、插入控件按钮，实现工作表之间的切换 1、选择【视图】—【工具栏】—【控件工具箱】菜单项，弹出【控件工具箱】工具箱，单击【命令按钮】。在“员工工资系统界面”绘制命令按钮，通过【控件工具箱】中的【属性】按钮，对命令按钮的属性进行设置。比如： Caption：查询员工工资 Font：宋体、五号 BackStyle：0-fmBackSytleTransparent Height：20.4 Width：78 使用复制粘贴功能复制出5个命令按钮，设置Caption属性，并调整位置。在编辑器窗口输入以下代码 Private Sub CommandButton1_Click() Sheets(员工工资表).Select End Sub Private Sub CommandButton2_Click() Sheets(员工档案信息表).Select End Sub Private Sub CommandButton3_Click() Sheets(月度考勤统计表).Select End Sub Private Sub CommandButton4_Click() Sheets(加班月记录表).Select End Sub Private Sub CommandButton5_Click() Sheets(加班登记表).Select End Sub Private Sub CommandButton6_Click() Sheets(业绩奖金表).Select End Sub 2、切换到“员工工资表”工作表，在左上角绘制一个命令按钮，设置属性： Caption：返回系统界面 Font：华文新魏、四号 BackColor：ForeColor：编辑器窗口输入以下代码 Private Sub CommandButton1_Click() Sheets(员工工资系统界面).Select End Sub 相同方法，其他工作表中也添加返回系统界面的按钮。 步骤四、设计用户登录窗体 为防止他人查看或者更改工资系统信息，可以设置用户登录窗口，用户只有输入正确的用户名和密码之后才可以进入该系统。 在代码编辑器窗口中的【工程—VBAProject】对话框中双击【This Workbook】选项，输入以下代码： 工作簿保存关闭后，重新打开工作簿，随即弹出【登录】对话框要求输入用户名，按确定，弹出【密码】对话框要求输入密码，当用户输入错误的用户名和密码系统会弹出提示对话框，直到用户输入了正确的用户名或密码之后才能进入本系统。 Dim m As String Dim n As String Do Until m = 神龙 m = InputBox(欢迎进入本系统，请输入您的用户名, 登录, ) If m = 神龙 Then Do Until n = 123456 n = InputBox(请输入您的密码, 密码, ) If n = 123456 Then Sheets(员工工资系统).Select Else MsgBox 密码错误！请重新输入！ , vbOKOnly, 登录错误 End If Loop Else MsgBox 用户名错误！请重新输入！, vbOKOnly, 登录错误 End If L