在寫(xiě)文章之前，我一直很好奇，2月14日是情人節(jié)，為什么2月15日一大早就拿著花。

算了，我決定寫(xiě)一篇過(guò)時(shí)帖，紀(jì)念一下過(guò)去的情人節(jié)。

女人呀，真是難以捉摸的生物，直接送禮被挑剔不喜歡，直接發(fā)紅包被嫌棄不浪漫。

經(jīng)過(guò)深入的分析，我終于明白，女生要的就是驚喜，要的就是用心。

所以直接發(fā)錢肯定是不行的。

所以，紅包，要更驚喜，更用心。

女生都是好奇的動(dòng)物，假設(shè)她看到你的電腦桌面有這樣的文件，她會(huì)不會(huì)打開(kāi)？

如果她不翻手機(jī)電腦不隨便點(diǎn)，那仁兄可以右上角關(guān)了這篇帖子了，順便留言告訴一下頭條的朋友們，這樣的女朋友哪里找的。

如果她點(diǎn)開(kāi)，那我們的小驚喜就OK了。

然后她真的搜了一下紅包碼，就順利收到你的驚喜紅包了?。ㄏ旅媾e個(gè)例子）

至此，驚喜結(jié)束。

想不到為了準(zhǔn)備禮物，我們還需要學(xué)習(xí)這么多知識(shí)，

對(duì)，這就是女生口中說(shuō)的用心。還等什么，快來(lái)看看是咋做的（強(qiáng)行關(guān)聯(lián)）

首先，你需要新建一個(gè)EXCEL，另存為xlsm的啟用宏格式。建議非桌面的盤里。比如D盤。

然后，我們進(jìn)入該文件存在的位置，比如D盤，然后發(fā)送到桌面。

接著直接修改文件名，快捷方式可以直接去掉后綴，并不會(huì)報(bào)錯(cuò)。

然后我們修改一下圖標(biāo)。

OK，接著就是關(guān)鍵一步了！在文檔中寫(xiě)入VBA代碼。

Alt + F11 調(diào)出VBA編輯器 → 雙擊ThisWorkbook → 寫(xiě)入代碼 →保存

這次只有幾行。大家直接復(fù)制即可。

Option Explicit

Private Sub Workbook_Open()

MsgBox "親愛(ài)的，我給你包了個(gè)紅包" & Chr(10) & _

"打開(kāi)藍(lán)色錢包，搜索 → 539376776 有驚喜哦！" & Chr(10) & _

"愛(ài)你的XX，XX節(jié)快樂(lè)"

End Sub

如果打開(kāi)沒(méi)有彈出對(duì)話框，或者宏被禁止了，大家要開(kāi)啟宏的信任哦。打開(kāi)方法：

OK，然后大家把紅包準(zhǔn)備好，生成紅包碼，改一下代碼，就可以靜待成功了。女票知道自己為了給他包紅包這么用心，一定會(huì)感動(dòng)得以身相許的。

劃重點(diǎn)：

能否成功，取決于金額！如果只有5.12，神仙來(lái)了的驚喜可能都救不了你咯~