表白脱单？恶搞老板？巧用Excel表格帮你实现多场景

咔片PPT · AI自动生成演示文稿，模板丰富、排版精美讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

黑科技：一分钟学会用Excel表格制作小游戏，不会编程也能做到

运行小游戏

今天是端午节！先祝福大家端午节快乐！送上美味可口的粽子！话不多说，直接发教学。

工具/素材：

WPS PC版
素材图片来源于网络，提供下载使用

图1

图2

教学/步骤：

首先新建一个表格，按Alt+F11打开VBA编辑器。点击VBA左上角Project右键-插入-用户窗体。点击UserForm1右键选择查看代码，输入代码。

代码直接复制粘贴

代码：
Private Sub CommandButton1_Click()
Image2.Visible = True
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheet1.Range("C1") = Sheet1.Range("C1") + 1
If Sheet1.Range("C1") Mod 10 = 0 Then
MsgBox prompt:="你已经尝试拒绝我" & Sheet1.Range("C1") & "次了，真的这么绝情，点一下喜欢我试试呗"
End If
a = Int(Rnd() * 10)
i = a Mod 2
If i = 1 Then
j = Int(Rnd() * 200)
Else
j = Int(Rnd() * 200) * -1
End If
CommandButton2.Move Left:=CommandButton2.Left - j, Top:=CommandButton2.Left - j
If CommandButton2.Left < 0 Or CommandButton2.Left > 700 Then
CommandButton2.Left = 400
End If
If CommandButton2.Top < 0 Or CommandButton2.Top > 300 Then
CommandButton2.Top = 200
End If
End Sub

关闭UserForm1代码窗口后，将光标定位在工程窗口，双击ThisWorkbook在右侧窗口输入代码。

注意代码空格位置

代码：
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show
End Sub

关闭ThisWorkbook代码窗口后，开始调整用户窗体属性。在左下角属性窗口找到Caption项（作用是可自定义修改窗体左上角显示的文字），例如修改为：日学Excel表格技巧。Height项（用户窗体高度）输入600，Width项（用户窗体宽度）输入800。

点击右侧窗口，在弹出的工具箱中找到插入图像控件。点击图像控件，并在右侧窗口随机画出区域，设置图像控件属性。点击左下角Picture项右面3个点的按钮，插入图片。BackColor项（背景颜色）-调试板-选择白色。Height项输入600，Width项输入800。left项设置为0，Top项设置为0，意思是与用户窗体左侧边框和顶端边框对齐。

点击右侧窗口的非图片区域，在弹出的工具箱中找到插入标签控件，插入两个标签控件。在标签Label1的属性窗口中修改Caption项，例如端午节。BackColor项选择白色，Font项设置黑体字体，ForeColor项选择红色。在标签Label2的属性窗口中修改Caption项，例如想不想吃一个可爱又好吃的粽子，设置字体和字体颜色同上操作。

扩展学习：调整多个“标签”对齐位置时，可以通过按住Ctrl+鼠标点击多个标签-点击鼠标右键-选择对齐位置。

点击右侧窗口的非图片区域，在弹出的工具箱中找到插入按钮控件，插入两个按钮控件，设置属性Caption项分别为“想吃”和“不想吃”，字体设置同上。特别注意的是右侧窗口的非图片区域可以通过调节窗口大小显示更多编辑区域，便于插入更多控件。

最后将光标定位在右侧窗口，点击工具箱中的图像控件插入点击“想吃”按钮后会显示的图片。Height项输入600，Width项输入800。left项设置为0，Top项设置为0，意思是与用户窗体左侧边框和顶端边框对齐。Visible项设置为False。PictureTiling项设置为True，意思是图片铺满用户窗体。