寫文章之前，我一直有個疑問，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，神仙來了的驚喜可能都救不了你咯~
