在Microsoft Excel Objects -> This Workbook VBE hierarchy中调用functino/sub

在Microsoft Excel中，VBE（Visual Basic Editor）是用于编写和编辑宏代码的集成开发环境。VBE层次结构中的"This Workbook"表示当前工作簿，它是一个对象，可以通过VBA代码来操作。

要在This Workbook VBE层次结构中调用函数（function）或子程序（subroutine），可以使用以下步骤：

打开Microsoft Excel，并打开需要编辑的工作簿。
按下Alt + F11键，打开VBE窗口。
在左侧的项目浏览器中，展开Microsoft Excel Objects文件夹。
双击"ThisWorkbook"对象，打开它的代码窗口。
在代码窗口中，可以编写VBA代码来调用函数或子程序。

调用函数时，可以使用以下语法：

FunctionName(arguments)

其中，FunctionName是要调用的函数的名称，arguments是传递给函数的参数。

调用子程序时，可以使用以下语法：

Call SubName(arguments)

或者简单地使用：

SubName arguments

其中，SubName是要调用的子程序的名称，arguments是传递给子程序的参数。

通过在This Workbook VBE层次结构中调用函数或子程序，可以实现对工作簿的自定义操作和功能扩展。例如，可以编写一个函数来计算工作簿中某个范围的总和，并在需要时调用该函数。

腾讯云提供了一系列与Excel相关的云产品，如腾讯文档（https://cloud.tencent.com/product/txcos）和腾讯云函数（https://cloud.tencent.com/product/scf）等，它们可以与Excel集成，提供更多的功能和扩展性。

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

VBA通用代码：自定义右键菜单

标签：VBA，快捷菜单在《VBA通用代码：在Excel中创建弹出菜单》中，我们给出了一段在工作表中创建弹出菜单的代码，将给代码指定快捷键，这样通过按快捷键可以在工作表调用弹出菜单，从而执行其中的命令。...打开VBE，单击菜单“插入——模块”，插入一个标准模块，在其中输入代码： Sub AddToCellMenu() Dim ContextMenu As CommandBar ' 首先,...在VBE中，双击ThisWorkbook模块，打开其代码窗口，在其中输入代码： Private Sub Workbook_Activate() Call AddToCellMenu End Sub...Private Sub Workbook_Deactivate() Call DeleteFromCellMenu Call DeletePopUpMenu End Sub 关闭Excel...此时，右键单击任意单元格，可以看到在单元格快捷菜单中增加了一个自定义命令，如下图1所示。图1 注：本文整理自microsoft.com，供有兴趣的朋友参考。

1.3K3 0

Power Query 系列 (20) - 如何在外部使用Power Query提供的服务

勾上"Microsoft Power Pivot for Excel"。...在 VBE 环境中，通过【工具】>【引用】添加 Microsoft ActiveX Data Model 的引用。这个是 COM 库，运行 ADO 需要。...As String, targetSheet As Worksheet) '''Reference: Microsoft ActiveX Data Objects Dim...在目标工作簿 -- 即提供 Power Query 服务的 Excel 工作表中，筛选条件界面如下： [2019092715131810.png] 所以用 sql = "UPDATE [Criteria...尽管官方的说法，Power Query SDK 已经在 Visual Studio 2019 中可以使用，但我在安装的时候没有成功，也不打算在 Visual Studio 2017 或更老的版本中折腾，

2.5K7 0

Excel实战技巧78：创建个人宏工作簿

步骤1：打开一个Excel工作簿，单击功能区“开发工具”选项卡中的“录制宏”命令，在弹出的“录制宏”对话框中，选取“保存在”下拉列表框中的“个人宏工作簿”，如下图1所示。单击“确定”。 ?...图1 步骤2：在工作表中随便选取一个单元格，然后单击“开发工具”选项卡中的“停止录制”。此时，Excel将自动创建个人宏工作簿文件。...通常，Excel会自动将个人宏工作簿文件保存在默认位置： C:\Users\[insert your username]\AppData\Roaming\Microsoft\Excel\XLSTART...首先，在VBE编辑器中，在PEARSONAL.XLSB工程下插入一个类模块并命名为“TabBack_Class”，输入代码： Public WithEvents AppEvent As Application...`时调用ToggleBack过程 Application.OnKey "%`","ToggleBack" End Sub '返回到前一个工作表 Sub ToggleBack() With TabTracker

2.6K3 0

自定义功能区示例：创建用于工作表导航的动态组合框

标签：VBA，自定义功能区在《自定义功能区示例：创建用于工作表导航的下拉列表》中，我们在Excel功能区中添加一个自定义的选项卡，然后再该选项卡中添加带有下拉列表的一个自定义组，用于从下拉列表中选择工作表...我们对此示例进行修改，使用组合框来实现，如下图1所示，并且当用户在该工作簿中新建或删除工作表时，组合框中的列表项会自动更新。...在Excel中打开CustomDynamicCombobox.xlsm，打开VBE，插入一个标准模块，输入下面的代码： Dim Rib As IRibbonUI Dim mwkbNavigation As...Workbook Sub RibbonOnLoad(ribbon As IRibbonUI) Set Rib = ribbon End Sub Public Sub Combobox1_getItemCount...End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) RefreshAddInsRibbon End Sub 保存并关闭该工作簿

2922 0

Excel VBA解读（135）：影响工作表公式中运用自定义函数效率的Bug及解决方法

在VBE中存在一个小的Bug：Excel每次在工作表计算过程中运行包含自定义函数的公式时，包含自定义函数的公式都会将VBE标题栏改更为“正在运行”，如下图1所示。 ?...图2 此时，Excel会在VBE标题栏名称显示的工作簿名后显示[运行中]，这就需要VBE向Windows屏幕处理程序发送消息，并刷新包含VBE的窗口。...如果Excel处于手动计算模式，可以捕获触发计算的所有键击，并在VBA代码中启动计算。...在标准模块中添加相应的计算子过程： Sub SheetCalc() ActiveSheet.Calculate End Sub Sub ReCalc() Application.Calculate...End Sub 如果是自动计算模式，比较有效的方法是在ThisWorkbook模块中添加代码： Private Sub Workbook_SheetChange(ByVal Sh As Object

2.2K2 0

VBA专题10-6：使用VBA操控Excel界面之执行命令以及激活功能区选项卡的两种方法

“数据”选项卡： Private Sub Workbook_Open() Application.SendKeys "%A%" End Sub 注意，在Excel的有些版本中，在Excel窗口被装载之前...，Workbook_Open事件中的SendKeys方法执行得过早。...为了解决这个问题，可以使用OnTime事件在执行Workbook_Open事件一至两秒后，发送按键，如下面的代码： Private Sub Workbook_Open() '在1秒后执行SendKeystrokes..."> onLoad是一个回调属性，有一个VBA过程的名称赋给它，本例中的过程命名为Initialize，当打开工作簿时调用此过程。...在Excel中打开该文件。由于Initialize过程仍然没有准备执行，因此会出现错误消息，单击“确定”。 10. 按Alt+F11打开VBE。 11.

3.5K2 0

VBA实用小程序49：列出所有打开工作簿中的VBA模块和过程

在输出工作表中，前两行为模块所在工作簿名称和工程名称。并且，代码会绕过受保护的VBA工程，同时如果工作簿中没有代码，也会在输出工作表中说明。...下面是完整的代码： Sub GetVBAProcedures() '声明访问Excel工作簿的变量 Dim app As Excel.Application Dim wb As...Excel.Workbook Dim wsOutput As Excel.Worksheet Dim sOutput() As String Dim sFileName As String...在VBE中，单击菜单“设置——引用”，在下图1所示的对话框中找到“Microsoft Visual Basic forApplications Extensibility 5.3”并选中前面的复选框。...图1 运行GetVBAProcedures过程，在我的当前环境中的输出如下图2所示。 ?

3.9K2 0

Excel实战技巧67：在组合框中添加不重复值（使用ADO技巧）

单击功能区“开发工具”选项卡中“插入”按钮下ActiveX控件中的“组合框”，在工作表中插入一个组合框，可以看到Excel将其自动命名为“ComboBox1”，如下图2所示。 ?...图2 按Alt+F11组合键，打开VBE，插入标准模块并输入代码如下： Sub FillCombox() Dim Myconnection AsConnection Dim Myrecordset...可以在任何事件或过程中调用它们，例如工作簿打开事件、查询刷新事件或者按下按钮后。运行或调用过程后，在工作表中单击组合框右侧下拉按钮，结果如下图3所示。 ?...2.需要在VBE中设置对Microsoft ActiveX Data Objects Library的引用，如下图4所示。 ?...当在Excel中操作时，可以使用两类连接字符串之一。使用第一类连接字符串（即使用Microsoft.Jet.OLEDB），有助于避免向后兼容问题，而且比Microsoft.ACE快3倍。

5.5K1 0

VBA实战技巧28：自动关闭指定时间没有进行操作的工作簿

有时候，我们打开了一个工作簿，但长时间没有使用，此时，你可能想让Excel自动将其关闭。也就是说，对于某个工作簿，如果用户在指定的时间内没有进行任何操作，那么Excel会保存并关闭该工作簿。...首先，在VBE中插入一个标准模块，在其中输入代码： Public RunWhen As Double Public Const NUM_MINUTES = 10 Public Sub SaveAndClose...() ThisWorkbook.CloseSaveChanges:=True End Sub 你可以修改NUM_MINUTES的值，设置让工作簿在没有操作的情况下保持开启的时间。...在VBE资源管理器窗口，双击ThisWorkbook打开该模块，输入代码： Private Sub Workbook_Open() On Error Resume Next Application.OnTime..., "SaveAndClose", , False On ErrorGoTo 0 End Sub Private Sub Workbook_SheetChange(ByVal Sh AsObject

1.8K3 0

Excel实战技巧68：创建级联列表框（使用ADO技巧）

在《Excel实战技巧67：在组合框中添加不重复值（使用ADO技巧）》中，我们使用记录集技巧给组合框添加了不重复值，并概要讲述了ADO记录集基础知识。本文利用记录集技巧，创建级联列表框。...在本示例中，创建一个函数，接受子列表框作为其参数，然后使用该列表框判断提取什么数据以及填充哪个列表框。...Myconnection.Close Set Myrecordset = Nothing Set Myconnection =Nothing End Function 每个父列表框的OnClick事件只是简单地调用上面的函数...)) End Sub 说明 1.示例中使用的是ActiveX列表框控件。...2.需要在VBE中设置对Microsoft ActiveX Data Objects Library的引用，如下图2所示。 ?

1.3K2 0

自定义功能区示例：创建用于工作表导航的下拉列表

本文的示例如下图1所示，在功能区中添加一个自定义的选项卡，然后再该选项卡中添加带有下拉列表的一个自定义组，用于从下拉列表中选择工作表，从而快速导航到该工作表，这对于工作簿中有大量工作表且要快速找到相应的工作表的用户来说...图1 假设该工作簿名称为CustomUIDropdown.xlsm，使用Custom UI Editor for Microsoft Office打开该工作簿，在其中输入代码： ...在Excel中打开CustomUIDropdown.xlsm，打开VBE，插入一个标准模块，输入下面的代码： Dim Rib As IRibbonUI Private mwkbNavigation As...Workbook 'Callback for SheetNavigation getItemCount Sub getItemCount(control As IRibbonControl, ByRef

2602 0

Excel实战技巧50：避免因粘贴破坏数据有效性

学习Excel技术，关注微信公众号： excelperfect Excel数据有效性（在Excel 2013及以上版本中改称数据验证）是一项很方便的功能，帮助我们让用户在单元格中输入规定的数据。...在VBE中，插入一个名为clsCommandBarCatcher的类模块，输入代码： '捕获命令栏中的单击以阻止粘贴 Public WithEvents oComBarCtl As Office.CommandBarButton...'从clsCommandBarCatcher的控件事件处理 '和不同的OnKey宏中调用专门的粘贴值程序 Public Sub MyPasteValues() If Application.CutCopyMode...Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) StopCatchPaste mdNextTimeCatchPaste =...CatchPaste", , False End Sub Private Sub Workbook_Open() CatchPaste End Sub 在工作簿打开时，进行相应的设置。

6.7K3 1

VBA专题10-23：使用VBA操控Excel界面之添加动态菜单

学习Excel技术，关注微信公众号： excelperfect 在本系列后面的示例程序中，你将会看到如何使用项目和带图像的库控件通过getItemLabel和getItemImage回调属性引用的VBA...单击工具栏中的Validate按钮检查是否有错误。 7. 保存并关闭该文件。 8. 在Excel中打开该文件。对于弹出的错误消息，单击“确定”。 9. 按Alt+F11激活VBE。 10....在ThisWorkbook模块中插入下面的VBA代码： Private Sub Workbook_SheetActivate(ByVal Sh As Object) myRibbon.InvalidateControl...现在，复选框能够保留其在动态菜单被无效并重新构建后的状态。正如所看到的，Checkbox1Pressed模块级变量在过程调用之间保留其值。...在VBE中，选择运行|重新设置。当VBE显示标准的错误消息框（因为一个未处理的运行时错误发生），可以单击消息框中的结束按钮。关闭该工作簿文件。

6K2 0

一起学Excel专业开发20：Excel工时报表与分析系统开发（3）——启动与关闭

启动时在注册表中保存Excel设置 '在注册表中存储Excel工作区设置 Sub StoreExcelSettings() Dim cbBar As CommandBar Dim sBarNames...过程中调用的WorkbookAlive函数将在后面相应部分介绍。...该过程中调用RestoreMenus过程来恢复Excel的工具栏： '恢复最初的菜单结构.在独立应用程序中, '最简单的方法是重新打开xlb文件....VBE和各种隐藏的表格，以及在Excel界面和应用程序界面之间方便地进行切换。...针对调试模式和产品模式可以分别设置不同的Excel运行环境。在调试模式中，所有Excel快捷键都可用。在产品模式中，禁用所有的Excel快捷键并确保VBE为隐藏状态。

1.4K2 0

在Excel中自定义上下文菜单（上）

在Microsoft Office中，上下文菜单提供了一组在应用程序的当前状态或上下文中可用的有限选项。通常，可用的选择是与选定对象（如单元格或列）相关的操作。...Excel中的上下文菜单在Microsoft Excel中，人们最常用的上下文菜单是单元格上下文菜单，这是在工作表单元格或选定单元格上单击鼠标右键时看到的菜单（如下图1所示）。...图1 在Excel中自定义上下文菜单在Excel 2007以前的版本中自定义上下文菜单的唯一方法是使用VBA代码，然而，在Excel 2007后续版本中，还可以使用相同的功能区扩展性（RibbonX）...要自定义单元格上下文菜单，按Alt+F11打开VBE，单击菜单“插入——模块”。在模块中粘贴或键入下面6个过程。第一个过程将控件添加到单元格上下文菜单中，第二个过程从单元格上下文菜单中删除控件。...Private Sub Workbook_Activate() Call AddToCellMenu End Sub Private Sub Workbook_Deactivate() Call DeleteFromCellMenu

2.6K4 0

VBA: 打开Excel文件的两种方式（GetObject函数和Workbooks.Open方法）

文章背景：打开指定路径的Excel文件，在VBA中常用的是Workbooks.Open方法，最近发现有个GetObject函数，也有类似的功能，所以本文探讨下两种打开方式的区别。...End Sub 打开一份Excel文件，编辑结束后，保存内容并关闭。 2 GetObject 返回对 ActiveX 组件提供的对象的引用。...End Sub 使用GetObject函数，获取对指定Excel文件的引用。如果Excel文件尚未打开，那么程序会在后台打开该工作簿。...（3）通过GetObject函数打开的Excel文件只要被修改（写）并保存后，后续打开该文件就只能在VBE中看到表格，但用户界面却看不到。使用Workbooks.Open方法不存在这个问题。...End Sub 参考资料： [1] getobject和workbooks.open哪个更好 [2] Workbooks.Open method [3] Workbook.Close method

3.8K1 0

VBA创建Access数据库的4种方法

操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft Access 16.0 Object Library】。...操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft DAO 3.6 Object Library】。...操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft ADO Ext 6.0 for DDL and Security】。...ADO (ActiveX Data Objects，ActiveX数据对象）是Microsoft提出的应用程序接口（API）用以实现访问关系或非关系数据库中的数据。...操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft ActiveX Data Object 6.0 Library】。

5.8K10 0

Excel实战技巧77：实现在当前工作表和前一个使用的工作表之间自由切换

Excel也有两个快捷键：Ctrl+PageUP和Ctrl+PageDown，可以在工作表之间导航，它们是按顺序依次切换工作表，这样，如果要从工作表Sheet1切换到工作表Sheet5，要按快捷键4次。...As StringPublic WorkbookReference As String '在离开当前工作表前保存其信息Private Sub AppEvent_SheetDeactivate(ByVal...Sh As Object) WorkbookReference = Sh.Parent.Name SheetReference = Sh.NameEnd Sub '在关闭工作簿前保存当前工作表信息...Private Sub AppEvent_WorkbookDeactivate(ByVal Wb As Workbook) WorkbookReference = Wb.Name SheetReference...模块，输入代码： '打开工作簿时运行Private Sub Workbook_Open() Call TabBack_RunEnd Sub 保存并关闭工作簿，然后重新打开，此时就可以使用快捷键Alt

1.2K1 0

VBA专题10-14：使用VBA操控Excel界面之在功能区中添加自定义库控件

关闭该工作簿，然后在Custom UI Editor中打开该工作簿。 3. 在Custom UI Editor中，选择Insert | Office 2007 Custom UI Part。...注意：在图像文件的文件名中避免使用空字符，否则不能正确地引用文件。 6. 如果需要，可右击在Custom UI Editor中插入的图像来改变其ID。如图1所示。 ? 图1 7....在Excel中打开该文件。 12. 按Alt+F11键激活VBE。 13. 插入一个标准的VBA模块，并粘贴在步骤9中复制的回调代码。 14. 在过程中添加一个MsgBox语句来测试控件。...) MsgBox "你选择的是" & id End Sub 下图2展示了在Custom选项卡中出现在库控件中的项： ?...workbook appearance》，仅供学习研究。

2.9K1 0

VBA实战技巧：快速返回最后一次编辑的单元格

例如，最后一次编辑的单元格是单元格K112，然而我的当前单元格在单元格C1，如何定位这个最后编辑的单元格并快速返回到该单元格呢？可以使用Excel事件来实现。...按Alt+F11组合键，打开VBE，双击工程资源管理器窗口中的ThisWorkbook模块，在其代码模块中，输入下面的代码： Private Sub Workbook_SheetChange(ByVal...& Target.Address, ScreenTip:="单击返回到最近一次编辑的单元格",TextToDisplay:="返回" End Sub 代码假设你正在操作的工作表是Sheet1，并且将返回单元格的链接放置在单元格...此时，你在工作表Sheet1中进行编辑操作后，单击单元格A2中的“返回”，可以快速回到最后一次编辑操作的单元格，如下图1所示。...例如，如果有另一个Workbook_BeforeSave事件，在每次退出工作簿时都会在指定的单元格中输入最近保存工作簿的时间，如下面的代码： Private Sub Workbook_BeforeSave

8782 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云