我们常用Excel表格来办公，但很少有人知道其实它也可以拿来表白，怎么做呢？请看以下演示！工具/原料more演示软件：WPS 2019演示系统：Windows 10 方法/步骤1/17分步阅读

新建一个Excel表。

2/17

按ALT+F11打开VBA编辑器。

3/17

属性窗口设置窗体属性，找到Caption项。

4/17

Height项输入600。

5/17

Width项输入800。

6/17

点击窗口，在弹出的工具箱中找到插入图像控件。

7/17

点击图像控件，并在窗口随机画出区域，设置图像控件属性。

8/17

点击Picture项右面3个点的按钮，插入图片。

9/17

Height项输入600，Width项输入800。

10/17

left项设置为0，Top项设置为0。

11/17

点击窗口，在弹出的工具箱中找到插入标签控件，插入两个标签控件。

12/17

在标签Label1的属性窗口中修改Caption项为名字。

13/17

点击窗口，在弹出的工具箱中找到插入按钮控件。

14/17

设置属性Caption分别为接受和不接受。

15/17

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

Private Sub Workbook_Open()

Application.WindowState = xlMinimized

UserForm1.Show

End Sub

16/17

点击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) 次了，真的这么绝情，点一下喜欢我试试呗, Title:=我很受伤

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

17/17

文件保存类型选择Excel启用宏的工作簿。完成~

注意事项

要安装VBA。

不支持个人版，个人版启用不了宏。

EXCEL表格表白小游戏