admin 管理员组

文章数量: 1184232


2024年2月7日发(作者：低代码开发平台公司)

用窗体进入EXCEL表格的界面制作

第一步 先制作好窗体界面（具体制作不用详述）

窗体内容除把相关要提醒和显示的内容添加上去外，还要制作一个按钮，通过按钮点击进入系统，如下图所示：

说明：这个界面里有两个东西值得注意的，一个是右上角的“×”，这个符号在未加代码的情况下，点击是关闭这个界面的，但要达到的目的是必须通过点击“进入系统”才能使用表格。

第二步 制作打开EXCEL即最小化电子表格，显示以上窗体的代码

Private Sub Workbook_Open()

State = xlMinimized '打开工作薄即将工作薄最小化

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()

te ‘激活sheet1

State = xlMaximized ‘最大化表格

Unload UserForm1 ‘关闭窗体

End Sub

通过此三步，一个进入电子表格的窗体界面就制作完成了。


本文标签： 进入 系统 点击 代码 界面

版权声明：本文标题：用窗体进入EXCEL表格的界面制作 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1707235326a512821.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。