在本文中,您将学习如何创建启动屏幕。

当您打开excel文件时,出现启动画面,这会给查看器留下深刻的印象。

我们需要按照以下步骤启动VB编辑器:单击“开发人员”选项卡。从“代码”组中,选择“ Visual Basic”。单击插入,然后单击用户窗体

img1

用户窗体将从“工具箱”中打开;选择标签并在用户表单中绘制

img2

img3

将标签框重命名为“我的启动画面”

img4

要增加字体的大小,请单击“标签”框并右键单击,然后选择“属性

img5

”。从属性窗口;选择字体并单击三个点

img6

“字体”对话框将打开

img7

选择所需的字体并将其增大到20左右以使其更大

img8

下一步是从“工具箱”中插入“图像”,然后选择“图像”并绘制更大的

img9

img10

|右键单击图像并选择属性,然后单击属性

img11

中的图片菜单中的三个点。选择保存图片的路径

img12

这是用户窗体现在的外观

img13

在“项目”窗格中双击ThisWorkbook

img14

输入以下编码

img15

Private Sub Workbook_Open()

UserForm1.Show

结束子

初始化用户表格;双击除标签或图像之外的用户表单,将显示以下代码

img16

===

私人子UserForm_Click()

===

结束子

将上面的代码替换为以下代码

img17

私有子UserForm_Activate()

现在为Application.OnTime + TimeValue(“ 00:00:05”),“ Quitform”

结束子

现在,我们需要将已分配给Userform的代码添加到Quitform中,以便在5秒钟后激活。

img18

单击插入,然后单击模块

这将创建新的模块。

img19

在模块

中输入以下代码===子Quitform()

卸载UserForm1

结束子

===

保存文件,然后打开它。

img20

这样,我们可以在Excel中创建初始屏幕。

img21