（企管）VBA培训.pptVIP

10 VBE应用实例 实例1——字体风格显示 要求：打开一个Excel工作簿，内有“字体设置”按钮，点击演示字体风格（包括黑体、斜体和下划线）。 步骤： ①启动Excel，打开工具/选项，不选窗口选项中的网格线，输入说明。激活Excel下的视图/工具栏/控件工具箱。 ②在Excel中添加两个命令按钮，Caption分别设为字体设置和关闭Excel。 ③双击任意一个命令按钮，显示VBA代码窗口。 ④插入/用户窗体，弹出UserForm1，并带有一个工具箱控件。如果没有工具箱，可在视图中选中。 ⑤拖出一个框架（Frame）、一个文字框（TextBox）和两个命令按钮（CommandButton），然后拖出三个复选框（CheckBox）放于框架内。在任何一个控件上单击右键，打开属性，更改框架、复选框和命令按钮的Caption分别为字体风格，黑体、斜体和下划线以及结束运行、返回Excel；更改文字框的Text属性为“我的试验”。 ⑥下面为UserForm1内的各个控件添加代码： Private Sub CheckBox1_Click() UserForm1.TextBox1.Font.Bold = Not UserForm1.TextBox1.Font.Bold End Sub Private Sub CheckBox2_Click() UserForm1.TextBox1.Font.Italic = Not UserForm1.TextBox1.Font.Italic End Sub Private Sub CheckBox3_Click() UserForm1.TextBox1.Font.Underline = Not UserForm1.TextBox1.Font.Underline End Sub Private Sub CommandButton1_Click() UserForm1.Hide End Sub Private Sub CommandButton2_Click() End End Sub ⑦打开视图/工程资源管理器/Sheet1，为其中的两个命令按钮和工作表添加代码： Private Sub CommandButton1_Click() UserForm1.Show End Sub Private Sub CommandButton2_Click() ThisWorkbook.Close End Sub Private Sub Worksheet_Activate() UserForm1.TextBox1.Font.Bold = False UserForm1.TextBox1.Font.Italic = False UserForm1.TextBox1.Font.Underline = False UserForm1.CommandButton1.Enabled = True UserForm1.CommandButton2.Enabled = True End Sub 实例2——用户进入工作簿：输入框输入 要求：打开工作簿 ，缺省工作表为第2个工作表，并弹出身份验证/用户姓名输入框，输入后，弹出身份验证/用户密码输入框。当输入正确，显示消息框“您的身份已确认，欢迎使用！”，工作表换为第1个工作表；当用户名正确而密码错误，显示消息框“密码错误，请重新输入！”；当用户名错误，显示“用户名错误，请重新输入！”。一旦输入3次仍未成功，显示“对不起，您操作次数太多，文件关闭！”，该工作簿关闭。 步骤： 打开新的工作簿，激活视图/工具栏/Visual Basic，打开Visual Basic编辑器，在ThisWorkbook中添入事件Workbook_Open代码： Private Sub Workbook_Open() Dim i, s As Integer Dim username As String, password As String Worksheets(2).Activate 激活工作表2 s = 0 For i = 1 To 3 s = s + i username = InputBox(用户姓名：, 身份验证) password = InputBox(用户密码：, 身份验证) If username = administrator Then If password = 123456 Then MsgBox 您的身份已确认，欢迎使用！ Worksheets(1).Activate Exit For Else MsgBox 密码错误，请重新输入！ End If Els