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