![别怕,Excel VBA其实很简单](https://wfqqreader-1252317822.image.myqcloud.com/cover/624/731624/b_731624.jpg)
上QQ阅读APP看书,第一时间看更新
2.4 试写一个简单的VBA程序
运行Excel程序,新建一个工作簿,进入VBE,让我们动手编写一个简单的程序,当程序运行后,用一个对话框说出现在的心情。
2.4.1 添加或删除模块
因为VBA程序一般保存在模块里,所以在编写程序前,应先添加一个模块来保存它。
添加模块
方法一:利用菜单命令插入模块的具体操作如图2-14所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0053_0001.jpg?sign=1739527548-YAhho4N0udSfw41NKJhpNgLxbdBmfKwz-0-54cb2763f576c8891b4feec5dfec3f77)
图2-14 利用菜单命令插入模块
方法二:利用右键菜单插入模块的具体操作如图2-15所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0053_0002.jpg?sign=1739527548-EzB0wyJqDOWnRsyHLsAyUWigBhqMSeqB-0-8006c962eccbb0d8e43064f4a57b321a)
图2-15 利用右键菜单插入模块
练习小课堂
怎样添加用户窗体和类模块?试一试,然后再继续后面的内容。
参考答案
方法一:右键单击【工程资源管理器】中的空白处,在【插入】菜单选择要插入的对象;
方法二:单击菜单栏中的【插入】菜单,选择要插入的对象。
方法参照2.4.1小节中插入模块的方法。
删除模块
如果工程中有多余的模块,可以删除它。
方法一:利用文件菜单移除模块的具体操作如图2-16所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0054_0002.jpg?sign=1739527548-Hgfs2BXtXxMkvYwBdsJnsmRXdQM2vpKM-0-bfc87aba0e4ffec1609c6de1859e726f)
图2-16 利用文件菜单移除模块
方法二:利用右键菜单移除模块的具体操作如图2-17所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0054_0003.jpg?sign=1739527548-PWNzfDnvQmQjpWSVaEPsxK2lu0WQNJ4F-0-194fdcc2a9d122dab64bd41936a7e0d7)
图2-17 利用右键菜单移除模块
注意:删除模块后,同时也将删除保存在该模块中的所有程序。
2.4.2 动手编写程序
Step 1:在代码窗口中添加一个空过程,如图2-18所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0055_0001.jpg?sign=1739527548-hU2qN9AtXRNhSyTyJugElh1aZFpRgY9C-0-9f3721db8ac950aad9a84bace47145c0)
图2-18 插入空过程
Public Sub mysub() End Sub
当然,你也可以在【代码窗口】中手动录入这些代码。
Step 2:将下面的代码写到前文两行代码的中间,如图2-19所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0056_0001.jpg?sign=1739527548-VyYNLWnvEv1AHlKotd1k0fwj0FnrJVpU-0-5ca18ef4187c40ad77f6ac3330d0c762)
图2-19 添加代码后的过程
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0055_0002.jpg?sign=1739527548-e3QqkK9RZTXTioqy2JPbzx5o14hEPRv2-0-c56f28d0be7d410606f61382c3ca8fdc)
Step 3:运行过程,如图2-20所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0056_0002.jpg?sign=1739527548-vB8ezqp6QCyULztIAQletk83AlkxrwI1-0-609d86090a44edec0a84bcb2d73412f1)
图2-20 运行程序