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

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

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

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

4、在出现的代码中间输入代码，完整代码：

Private Sub Workbook_Open()

Do While MsgBox("你是人吗？", vbYesNo) <> vbNo

Loop

MsgBox "自己承认不是人，墙都不扶，舅服你"

End Sub

如下图所示。

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