公众号

返回顶部
微信扫码
微信扫码
手机学Office技巧

巧用表格制作小游戏

发布时间:2019-08-07 难度:高级

本教程适用版本:WPS Office 2019 PC版 点此下载


我们常用WPS表格进行办公。

WPS表格有一个不为人知的表白黑科技,快快学起来,给心仪的她告白。

0.gif

教程分界线.png

■新建一个表格,按ALT+F11打开VBA编辑器。

点击VBAProject右键-插入-用户窗体。


1.gif


■在属性窗口设置窗体属性,找到Caption项,它的作用是窗口左上角显示的文字可以自定义修改。

例如修改为:WPS学院。


2.gif


■Height项即用户窗体的高度,Width项即用户窗体的宽度。

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


3.gif


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

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

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

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

left项设置为0,意思是与用户窗体左侧边框对齐。

Top项设置为0,意思是与用户窗体顶端边框对齐。


4.gif


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

在标签Label1的属性窗口中修改Caption项为名字,例如迪丽热巴。

可以自行设置字体、标签尺寸等等。

在标签Label2的属性窗口中修改Caption项为寄语。

例如输入天青色等烟雨,而我在等你。

5.gif


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

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


6.gif


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

Private Sub Workbook_Open()

      Application.WindowState = xlMinimized

      UserForm1.Show

End Sub


7.gif


■点击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


8.gif


■最后将光标定位在窗口。

点击工具栏中的图像控件插入最后结尾的图片。

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

left项设置为0,意思是与用户窗体左侧边框对齐。

Top项设置为0,意思是与用户窗体顶端边框对齐。

Visible设置为False。


9.gif


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

这样一个只能点击接受的表白小游戏就制作完成啦。


10.gif


22课时

21节课
带你掌握WPS表格

21节课带你掌握WPS表格
21节课带你掌握WPS表格
549分51秒 139
90课时

5小时掌握
90个表格小技巧

5小时掌握90个表格小技巧
5小时掌握90个表格小技巧
460分1秒 59
63课时

电子表格函数
使用手册

电子表格函数使用手册
电子表格函数使用手册
559分13秒 99
15课时

从0开始
攻克电子表格

从0开始攻克电子表格
从0开始攻克电子表格
319分52秒 89
69课时

PPT制作全攻略

PPT制作全攻略
PPT制作全攻略
787分51秒 69
63课时

拯救你的PPT

拯救你的PPT
拯救你的PPT
319分38秒 99
14课时

从0开始学做PPT

从0开始学做PPT
从0开始学做PPT
399分40秒 89
9课时

WPS文字
制作窍门

Word文档制作窍门
Word文档制作窍门
324分15秒 98
49课时

拯救你的WPS文字

拯救你的WORD
拯救你的WORD
337分58秒 99

用户评价


提交成功,感谢您的反馈

*这个技巧对你有帮助吗?请评价

有帮助
无帮助

哪些地方我们可以做得更好?(选填)

用手机观看
复制链接