![别怕,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=1738859328-S5jCMdsQlnZ5Z2rG1Wr4AMaHrWv5EF94-0-80114d4d372140789111eef3d9c63ff6)
图2-14 利用菜单命令插入模块
方法二:利用右键菜单插入模块的具体操作如图2-15所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0053_0002.jpg?sign=1738859328-VdYMrjW0r9hgLDYloDjL6QH1b5IwntdX-0-b491f233b7c4dcf838d0488b93aef9db)
图2-15 利用右键菜单插入模块
练习小课堂
怎样添加用户窗体和类模块?试一试,然后再继续后面的内容。
参考答案
方法一:右键单击【工程资源管理器】中的空白处,在【插入】菜单选择要插入的对象;
方法二:单击菜单栏中的【插入】菜单,选择要插入的对象。
方法参照2.4.1小节中插入模块的方法。
删除模块
如果工程中有多余的模块,可以删除它。
方法一:利用文件菜单移除模块的具体操作如图2-16所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0054_0002.jpg?sign=1738859328-8E1pEqBfD7kBSHp81MyPdRCXFtbscGzT-0-f90c20c5dd57473139c46bd2f80f1144)
图2-16 利用文件菜单移除模块
方法二:利用右键菜单移除模块的具体操作如图2-17所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0054_0003.jpg?sign=1738859328-hOHAOaVwbGGeJBggmGkNyIbLKmXijaLM-0-df4fcc9d783b7a46216c1aa947bcfce3)
图2-17 利用右键菜单移除模块
注意:删除模块后,同时也将删除保存在该模块中的所有程序。
2.4.2 动手编写程序
Step 1:在代码窗口中添加一个空过程,如图2-18所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0055_0001.jpg?sign=1738859328-HdpPdZqwTT4wsMcc5gx9F345GMzSHQOH-0-086752e38b9351b3c8a0ef97c1b6c445)
图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=1738859328-ziHonW9valDYxbTcKKuD3a8yf63bhF0C-0-287d23041e88cf03b2a0031e3a19a5bb)
图2-19 添加代码后的过程
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0055_0002.jpg?sign=1738859328-ymOnePpRXikMMUcqOCVDxerkzaRbxLaa-0-bdbd9a5419cf59858910db7bf5f52368)
Step 3:运行过程,如图2-20所示。
![](https://epubservercos.yuewen.com/231D1D/3590301304714201/epubprivate/OEBPS/Images/figure_0056_0002.jpg?sign=1738859328-uZKBd46NGv7fl0owfycKDzPDAtaMxdhl-0-798a95498fe857d3b06087cd49029db2)
图2-20 运行程序