如何用VBA写一个简单好玩的程序

1、打开Excel，点击“开发工具”中的“VisualBasic”，如下图所示。

2、双击“Thisworkbook”，如下图所示。

3、通用中选择“Workbook”，如下图所示。

4、在出现的代码中间输入代码，完整代码：Private Sub Workbook_Open()Do While MsgBox("你是人吗？", vbYesNo) <> vbNoLoopMsgBox "自己承认不是人，墙都不扶，舅服你"End Sub如下图所示。

5、将文件保存为xlsm格式文件，打开就会运行整蛊小程序，如下图所示。