《用窗体进入ECEL表格的界面制作.docx》由会员分享,可在线阅读,更多相关《用窗体进入ECEL表格的界面制作.docx(2页珍藏版)》请在三一办公上搜索。
1、用窗体进入ECEL表格的界面制作用窗体进入EXCEL表格的界面制作 第一步 先制作好窗体界面 窗体内容除把相关要提醒和显示的内容添加上去外,还要制作一个按钮,通过按钮点击进入系统,如下图所示:说明:这个界面里有两个东西值得注意的,一个是右上角的“”,这个符号在未加代码的情况下,点击是关闭这个界面的,但要达到的目的是必须通过点击“进入系统”才能使用表格。 第二步 制作打开EXCEL即最小化电子表格,显示以上窗体的代码 Private Sub Workbook_Open Application.WindowState = xlMinimized 打开工作薄即将工作薄最小化 UserForm1.Sh
2、ow 0 显示登录窗口 End Sub 第三步,通过点击进入系统和点击关闭提示必须经过点击系统进入的提示窗口制作 首先,把右上角的“”的点击提示点击“进入系统”的代码写出来 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) CloseMode参数表明事件发生的原因 若其值等于vbFormControlMenu则意味着用户单击了X图标按钮 If CloseMode = vbFormControlMenu Then MsgBox 请单击进入系统按钮进入档案管理系统, , 是否确认进入系统? Cancel = True End If End Sub 其次,编写按钮“进入系统”的代码 Private Sub CommandButton1_Click Sheet1.Activate 激活sheet1 Application.WindowState = xlMaximized 最大化表格 Unload UserForm1 关闭窗体 End Sub 通过此三步,一个进入电子表格的窗体界面就制作完成了。