- ·上一篇教育:EXCEL表格单元格合并了怎么排序
- ·下一篇教育:EXCEL表格怎么截取字符串后三位
EXCEL表格怎么显示欢迎界面设计
1.如何用VBA制作EXCEL的欢迎界面?
Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False
frm1.show
For i = 1 To 100000
DoEvents
Next i
frm1.hide
ThisWorkbook.Application.Visible = True
End Sub
'很难完全隐藏EXCEL的开始启动
2.怎么做在Excel中制作用户登录窗口
为了保护Excel工作表,有时需要对工作表的打开设置权限,这就需要创建用户登录界面。
在Excel中,制作用户登录窗口的方式很多,使用控件是其中的一种重要方法。本文介绍使用VBA窗体控件、文本框控件和按钮控件等来制作用户登录窗口的方法。
1、启动Excel并打开工作表,打开Visual Basic编辑器,在工程资源管理器中鼠标右击,选择关联菜单中的“插入”|“用户窗体”命令插入一个用户窗体。按F4键打开“属性”对话框,在"Caption"文本框中输入文字“用户登录”更改窗体标题,如图1所示。
创建用户窗体并设置其属性2、从“工具箱”对话框中分别选择“文本框”控件、“标签”控件和“命令按钮”控件,在窗体中绘制这些控件,如图2所示。在“属性”对话框中将两个“标签”控件的"Caption"属性分别设置为“登录名”和“登录密码”,将“命令按钮”控件的"Caption"属性分别设置为“确定”和“取消”,向窗体中添加控件修改控件的3、在窗体中选择第二个“文本框”控件,在“属性”对话框中将"PasswordChar"属性设置为字符“*”,如图4所示。
这样,在该文本框中输入的字符将被“*”替代。更改“文本框”控件的4、鼠标右击窗体中的“确定”按钮,选择关联菜单中的“查看代码”命令打开“代码”窗口,此时Visual Basic编辑器将自动在“代码”窗口中为控件添加Click事件。
为该按钮添加的Click事件程序如下:Private Sub CommandButton1_Click()If TextBox1.Text<>"郭轶凡"Then '判断用户名是否正确MsgBox"用户登录名错误,您无权登录!" '不正确给出提示With TextBox1.SelStart=0 '设置选择文字的开始字符.SelLength=Len(TextBox1.Text) '设置选择文本的长度.SetFocus '文本框获得焦点End WithElseIf TextBox2.Text<>"abcdef "Then '如果密码错误MsgBox"密码输入错误,请重新输入!" '给出提示With TextBox2.SelStart=0 '设置选择文本的开始字符.SelLength=Len(TextBox2.Text) '设置选择文本的长度.SetFocus '获得焦点End WithElseMsgBox"登录成功,欢迎你的到来!" '登录成功提示Unload Me '卸载窗体End IfEnd Sub提示在这里,程序首先判断第一个文本框的Text属性值是否为设定的用户名,如果不是则给出提示,同时使用With结构设置非常关键的SelStart属性和SelLength属性,使文本框中的文字能够高亮显示。同时,使用SetFocus方法使文本框获得焦点以方便用户更改用户名。
如果输入的是设定的用户名,程序接着判断第二个文本框中的Text属性值是否是设定的密码,如果不是则执行与用户名错误相同的操作。如果用户名和密码均正确,程序给出提示并卸载窗体。
5、接着在“代码”窗口中输入程序代码,为“取消”按钮添加Click事件代码,具体程序如下所示:Private Sub CommandButton2_Click()Unload Me '卸载窗体ThisWorkbook.Close '关闭工作簿End Sub6、按F5键运行程序出现“用户登录”窗口,在“登录名”文本框中输入人名,如果非授权用户,程序给出提示,如图4所示。单击“确定”按钮关闭提示对话框后,“登录名”文本框获得焦点,在其中输入正确登录名。
在“登录密码”文本框中输入密码,如果密码错误,程序给出提示,如图5所示。如果输入正确的用户名和登录密码,程序提示登录成功,如图6所示。
单击“确定”按钮关闭对话框,“用户登录”窗体将关闭。登录名输入错误提示密码输入错误提示登录成功提示7、在工程资源管理器中双击"ThisWorkbook"选项打开“代码”窗口,在其中输入如下程序代码使工作簿打开时用户窗体可见。
切换到Excel,保存文档,完成本实例的制作。Private Sub Workbook_Open()UserForm1.ShowEnd Sub。
3.EXCELvba 制作欢迎界面 点击进入表格 进入后 欢迎界面窗体自动关闭
首先,在VBE(代码编辑器,快捷键Alt+F11)中,点击:插入,用户窗体。
在这个窗体(默认名称为UserForm1)中,添加一个button按钮(默认名称为CommandButton1),
按钮的caption,设置为“点击进入表格”,
双击这个按钮,绑定click事件:
Private Sub CommandButton1_Click()
UserForm1.hide
workbooks("你的Excel文件名").show()
End Sub
双击窗体,给窗体绑定初始化事件
Private Sub UserForm_Initialize()
workbooks("你的Excel文件名").hide()
End Sub
4.excel中如何设计输入界面
方法/步骤
首先制作一个能力或技能测试界面。在此为了讲解的需要,小编就制作一个简单的猜成语测试界面。按照如图所示的界面风格设置问题。
选择评判列,在字体下拉列表中选择“Winding”字体。
在第一个问题对应的评判单元格中输入公式:“=IF(C6="","K",IF(C6="无时无刻","J","L"))”。其中“无时无刻”就是问题的答案。
利用同样的方法,在其它与问题相对应的评判单元格中输入相应的公式。结果如图所示。(可直接复制公式,将其中的“无时无刻”改成相应问题的答案即可。
保护工作表公式区域,防止非法查看公式中含有的敏感信息。由于本文档中的所有答案全部都位于公式中,因此将公式隐藏或锁定起来就显得极有必要。首先选择所有单元格区域,在文档区域右击,选择“设置单元格格式”,从弹出的窗口中切换到保护选项卡,取消勾选“锁定”复选框,最后点击“确定”完成设置。
在“开始”选项卡中点击“查找和选择”下拉列表,从弹出的列表中选择“公式”,此时所有的含有公式的单元格全部被选中。
在已经选中的其中一个含有公式的单元格上右击选择“设置单元格”。在弹出的窗口中勾选“保护”选项卡下的“锁定”和“隐藏”两个复选框。
切换到“审阅”选项卡,单击“保护工作表”,在弹出的保护工作表窗口中把“允许此工作表中所有用户进行”列表中的所有允许选项全部选中,这主要是为了确保只保护公式而不影响其它功能,单击确定对工作表进行保护。
发布文档,提供给相关测试人员进行答题测试。经过文档的保护设置之后,就可以将文档分发出去,供测试者测试用。测试者在答题过程中,如果问题回答正确,将会出现一个笑脸在评判单元格中,否则如果没有填写则是一个正常的脸,填写错误将会得到一个悲伤的面孔。
如果测试者试图想要查看公式区域中的内容,就是弹出禁止访问的对话框。
