![别怕,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=1739286001-NW0LJ6PUtrkABLoVUmZBmN5D0vU4QjFS-0-762c589af65b06c9abf0b460cca3ff2c)
图2-14 利用菜单命令插入模块
方法二:利用右键菜单插入模块的具体操作如图2-15所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0053_0002.jpg?sign=1739286001-8g7fu2uX6GAt9uLIYhin1lB3fdnhVH3D-0-5c9ca72a9405f6979fd8a2bc62dcf786)
图2-15 利用右键菜单插入模块
练习小课堂
怎样添加用户窗体和类模块?试一试,然后再继续后面的内容。
参考答案
方法一:右键单击【工程资源管理器】中的空白处,在【插入】菜单选择要插入的对象;
方法二:单击菜单栏中的【插入】菜单,选择要插入的对象。
方法参照2.4.1小节中插入模块的方法。
删除模块
如果工程中有多余的模块,可以删除它。
方法一:利用文件菜单移除模块的具体操作如图2-16所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0054_0002.jpg?sign=1739286001-rVqsAH5QA0FFlALqN98zD7ZRbPM7OFK3-0-133ee2aa8fb0b83c505d986260e104da)
图2-16 利用文件菜单移除模块
方法二:利用右键菜单移除模块的具体操作如图2-17所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0054_0003.jpg?sign=1739286001-kMCjIDaAWEXLiY3T3Q3x0fnc7XqtN6fR-0-5ebde79171d9eda33322715d20245a43)
图2-17 利用右键菜单移除模块
注意:删除模块后,同时也将删除保存在该模块中的所有程序。
2.4.2 动手编写程序
Step 1:在代码窗口中添加一个空过程,如图2-18所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0055_0001.jpg?sign=1739286001-aFTInf9HOWRmmTAHHKFKl5lVGzpd9iEo-0-503ea50c59b6bc4778a054661dbcfcc0)
图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=1739286001-aiytRMjGPelpb1PDENvntG7zTPqCMdnZ-0-187159cac00d2367c737c43b29424bf1)
图2-19 添加代码后的过程
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0055_0002.jpg?sign=1739286001-0ywZgvMY6aRzYAaaYkFSqMCJhDVmBmRH-0-8307e6b89ce655f84ac00d71f6575b63)
Step 3:运行过程,如图2-20所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0056_0002.jpg?sign=1739286001-YsgKz5ta9kmETg8p2LmKZ6d14JvBGr94-0-0cfa7929e1ec82a14e397cb2198e359c)
图2-20 运行程序