电脑怎么送鲜花？终于找到答案了技巧学得好 女友回家早 原来EXCEL还能给女朋友送礼物

在写文章之前，我一直很好奇，2月14日是情人节，为什么2月15日一大早就拿着花。

算了，我决定写一篇过时帖，纪念一下过去的情人节。

女人呀，真是难以捉摸的生物，直接送礼被挑剔不喜欢，直接发红包被嫌弃不浪漫。

经过深入的分析，我终于明白，女生要的就是惊喜，要的就是用心。

所以直接发钱肯定是不行的。

所以，红包，要更惊喜，更用心。

女生都是好奇的动物，假设她看到你的电脑桌面有这样的文件，她会不会打开？

如果她不翻手机电脑不随便点，那仁兄可以右上角关了这篇帖子了，顺便留言告诉一下头条的朋友们，这样的女朋友哪里找的。

如果她点开，那我们的小惊喜就OK了。

然后她真的搜了一下红包码，就顺利收到你的惊喜红包了！（下面举个例子）

至此，惊喜结束。

想不到为了准备礼物，我们还需要学习这么多知识，

对，这就是女生口中说的用心。还等什么，快来看看是咋做的（强行关联）

首先，你需要新建一个EXCEL，另存为xlsm的启用宏格式。建议非桌面的盘里。比如D盘。

然后，我们进入该文件存在的位置，比如D盘，然后发送到桌面。

接着直接修改文件名，快捷方式可以直接去掉后缀，并不会报错。

然后我们修改一下图标。

OK，接着就是关键一步了！在文档中写入VBA代码。

Alt + F11 调出VBA编辑器 → 双击ThisWorkbook → 写入代码 →保存

这次只有几行。大家直接复制即可。

---

Option Explicit

Private Sub Workbook_Open()

MsgBox "亲爱的，我给你包了个红包" & Chr(10) & _

"打开蓝色钱包，搜索 → 539376776 有惊喜哦！" & Chr(10) & _

"爱你的XX，XX节快乐"

End Sub

---

如果打开没有弹出对话框，或者宏被禁止了，大家要开启宏的信任哦。打开方法：

OK，然后大家把红包准备好，生成红包码，改一下代码，就可以静待成功了。女票知道自己为了给他包红包这么用心，一定会感动得以身相许的。

划重点：

能否成功，取决于金额！如果只有5.12，神仙来了的惊喜可能都救不了你咯~