如下图所示：
当在word文档中单击鼠标右键时，为弹出的快捷菜单中添加一个自定义的命令“给加粗的字符添加括号”，可以使用以下的代码：
Sub CreateMenu()
'命令栏[......]
阅读全文>>> -
如何用vba给word新增、插入表格？
-
如何用vba将vba工程中的所有模块导出？
要用vba将vba工程中的所有模块导出，需要用到CodeModule对象的Export方法，代码如下：
Sub QQ1722187970() Dim oVC As VBComponent[......]阅读全文>>> -
如何用vba删除所有vba工程中的vba代码？
如下图所示：
vba工程中有许多组件，每个组件中都可能有vba代码，如果要把所有vba代码都删除，需要访问组件的CodeModule对象。
具体步骤如下：
- 先遍历所有VBComp[……]
-
如何用vba将某个模块的所有vba代码添加插入到其它模块中？
要用vba将某个模块的所有vba代码添加插入到其它模块中，需要按照以下步骤：
- 获取要复制的代码所在的组件的CodeModule对象；
- 用Lines属性获取该组件的CodeModule对象的所有[……]
-
如何用vba遍历所有的工程组件VBComponent？
如下图所示：
在vba工程中有窗体(UserForm1)、类模块（类1）、标准模块（模块1、模块2），文档模块（Sheet1、ThisWorkbook）等组件。
以下示例代码可以遍历所有组[……]
阅读全文>>> -
如何用vba返回工程资源管理器中当前选中的VBComponent的信息？
如下图所示：
在vbe中当前选中的是标准模块中的“模块1”，在vba中可以使用VBE对象的SelectedVBComponent属性返回当前选中的vba工程中的组件。
以下示例代码将返回当[……]
阅读全文>>> -
如何在vba中用ado合并多个工作表的内容？
要用ado合并多个工作表的内容可以使用sql语句 union all 。
以下是在vba中用ado合并当前工作簿的所有工作表内容的示例代码：
Sub QQ1722187970() Excel[......]阅读全文>>> -
如何用vba给单元格区域添加数据有效性下拉列表？
在vba中Range对象的Validation属性可以返回数据有效性对象Validation。
要给单元格区域添加数据有效性，需要先用Validation对象的Delete方法删除之前的数据有效性，然后[……]
阅读全文>>>
感谢你的支持，我将持续地写出更好的文章。
微信支持
微信公众号
