第10章 宏程序开发简例.ppt

第10章 宏程序开发简例;10.1 宏程序建立的基本方法;;;2．创建宏程序 （1）进入编辑状态 “开发工具”→→“代码”→→“Visual Basic” 插入“模块”与否的异同 ① 宏程序的框架。 Sub 程序名() 或者 Private Sub 程序名()——本地 命令序列1 …… 命令序列n End Sub;如果是编制自定义函数 其结构如下： Function 函数名(参数1,参数2,……,参数n) 命令序列1 …… 命令序列n End Function ;;;10.2 宏程序开发实例;3．设计代码 （1）文件打开，自动运行程序 （2）界面设计 ① 设置“界面”窗体的初始化程序 Private Sub UserForm_Initialize() With Application .WindowState = xlMaximized Me.StartUpPosition = 0 Me.Move 0, 0, .Width, .Height End With mima = 1 kongzhi = 界面.TextBox1.Enabled = True 界面.TextBox1.Text = 界面.TextBox1.SetFocus Application.Visible = False 隐藏Excel文件！ End Sub;② 双击“确认密码”命令按钮，输入代码如下： Private Sub CommandButton1_Click() mima = mima + 1 If mima = 4 Then If MsgBox(您的密码不对，请向刘宣杰先生咨询密码！, vbOKOnly, 密码错误！！) = 1 Then 界面.Enabled = False End If Else If TextBox1.Text = 043185313700 Then Unload Me ‘退出本窗体 gbxt.Show ‘调用贵宾系统窗体 gbxt.Enabled = True ‘设置窗体可操作性为真 Application.Visible = False 设置Excel文件内容不可见! Sheets(购买日记).Select Range(A1).Select Else 界面.TextBox1.Text = ‘清空错误密码 界面.TextBox1.SetFocus ‘重新输入密码 End If End If call auto_close ‘调用关闭程序 End Sub;③ 禁用“界面”窗体关闭按钮程序代码 Private Sub userform_queryclose(Cancel As Integer, closemode As Integer) If closemode = vbFormControlMenu Then MsgBox 请单击确认密码按钮关闭本界面 Cancel = True End If If TextBox1.Text 043185313700 Then 第2控制.Show ‘密码不对的时候调用“第2控制”窗体 Application.Visible = False ‘当前文件的可见性为否 End If End Sub ;;;（4）设计贵宾系统（gbxt）窗体 ① 设计贵宾系统窗体的界面 ② 设???贵宾系统gbxt的初始化事件。 ③ 设计贵宾代码发生更新事件代码。 ④ 设置贵宾系统gbxt窗体上的“确定”命令按钮代码。 ⑤ 设置贵宾系统gbxt窗体上的“取消”按钮代码。 ⑥ 设置贵宾系统gbxt窗体上的“退出”按钮代码。 ⑦ 设置贵宾系统gbxt窗体上的“生成交易记录”命令按钮代码。 ⑧ 设计本次购买金额输入之后（退出TextBox3）的代码。;（5）设计cxjyjl窗体;10.2.2 计算某商业银行渗透率;10.3 忘记工作表密码保护的处理;再见！