用Excel制作一个表白小游戏

女神节来了!

是不是还在为不知道送女神什么礼物而发愁?

是不是还在为礼物送不出新意而头疼?

我不愁!哈哈哈哈,哈哈哈哈哈,哈哈哈哈哈哈…… (请原谅一个单身汪的羡慕嫉妒恨)

好了,最近在网上发现了一个Excel做的表白小游戏,把它分享给你们,送女神礼物的同时可以没羞没臊地玩一下这个。

效果如下:

用Excel制作一个表白小游戏效果图

制作过程如下:

1、打开一个空白Excel表,ale+F11打开VBA编辑器。如图1:

用Excel制作一个表白小游戏图1:打开VBA编辑器

2、插入窗体。在工程窗口,“VBAProject(工作簿1)”上右键——插入——用户窗体,如下图2,插入用户窗体后效果如下图3。

用Excel制作一个表白小游戏图2:插入用户窗体

用Excel制作一个表白小游戏图3:插入用户窗体后

3、设置用户窗体属性。在属性窗口,“Caption”项即窗口左上角显示的文字,默认为“UserForm1”,这里可以根据个人需要修改,比如改成“女神,我爱你!”。

“Height”项即用户窗体的高度,根据个人需要修改,比如600。

“Width”项即用户窗体的宽度,根据个人需要修改,比如800。

这样,用户窗体就变大了,如下图4:

用Excel制作一个表白小游戏图4:设置用户窗体属性

4、插入图像控件,单击选择工具箱内的“图像”控件,在用户窗体任意位置单击即新建了一个图像控件,如下图5:

用Excel制作一个表白小游戏图5:插入图像控件

5、设置图像控件属性:

在“Picture”项插入背景图片,点击右面3个点的小按钮,弹出的对话框选择提前准备的图片。

“Height”项设置为600,与用户窗体高度相同;“left”项设置为0,与用户窗体左侧边框对齐;“Top”项设置为0,与用户窗体顶端边框对齐;“Width”项设置为800,与用户窗体宽度相同。设置完后效果如下图6:

用Excel制作一个表白小游戏图6:设置图像控件属性

6、插入两个“标签”控件,Label1和Label2,如下图7:

用Excel制作一个表白小游戏图7:插入标签控件

7、设置标签控件属性。

标签Label1:在属性窗口,“Caption”项默认为“Label1”,修改为女神的名字,此处修改为“女神名字”,其他项可以设置字体,标签尺寸等等,根据需要自己设置。

标签Label2用来写你给女神的话,设置同Label1。设置完效果如下图8

用Excel制作一个表白小游戏图8:设置标签控件属性

8、插入两个按钮。设置属性“Caption”,分别设置为“接受”、“不接受”。如下图9:

用Excel制作一个表白小游戏图9:插入按钮

9、在工程窗口,双击“ThisWorkbook”,在右侧窗口输入以下代码,如图10:

Private Sub Workbook_Open()

Application.WindowState = xlMinimized

UserForm1.Show

End Sub

用Excel制作一个表白小游戏图10:编辑代码

10、在工程窗口,“UserForm1”右键选择“查看代码”,然后复制粘贴下面代码,如图11:

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

用Excel制作一个表白小游戏图11:编辑代码

11、最后在插入一个图像控件,就是女神点“接受”按钮后显示的图片。方法同上面第4步,但这次属性“Visible”要设置为False。如图12:

用Excel制作一个表白小游戏图12:插入图像控件

12、最后保存。文件保存类型选择“Excel启用宏的工作簿”,保存完毕,关闭。

然后就可以发给女神了,一个只能点击“接受”的表白小游戏。

用Excel制作一个表白小游戏

打开后效果图

说明:以上小游戏、代码借鉴于网络。

本文链接:https://www.zhantian9.com/145986.html

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2000000@qq.com 举报,一经查实,本站将立刻删除。

发表回复

您的电子邮箱地址不会被公开。