excel一页怎么运行两个宏

在同一个Excel工作表中运行两个宏的方法有多种，可以使用按钮、快捷键、自动运行宏、使用事件触发等方式。下面详细介绍如何实现这些方法，并包括实际操作步骤及注意事项。

一、使用按钮来运行两个宏

在Excel中，最常见的执行宏的方式是通过按钮。通过将宏分配给按钮，可以轻松地在同一页面上运行多个宏。

1.1 创建按钮并分配宏

首先，我们需要插入按钮，然后将宏分配给这些按钮。

打开开发工具：如果开发工具选项卡未显示，请点击“文件”>“选项”>“自定义功能区”，然后勾选“开发工具”。
插入按钮：在开发工具选项卡中，点击“插入”，然后选择“按钮（表单控件）”。
绘制按钮：在工作表上绘制按钮，Excel会自动弹出“分配宏”对话框。
选择宏：在“分配宏”对话框中，选择你希望分配给按钮的宏，然后点击“确定”。

你可以重复上述步骤，为不同的宏创建多个按钮。

1.2 运行宏

在工作表中，点击相应的按钮即可运行分配的宏。

二、使用快捷键来运行两个宏

如果你希望通过快捷键运行宏，可以为每个宏分配一个快捷键。

2.1 为宏分配快捷键

打开宏对话框：按下“Alt + F8”打开宏对话框。
选择宏：选择你希望分配快捷键的宏，然后点击“选项”。
分配快捷键：在弹出的对话框中，输入你希望分配的快捷键（注意：快捷键区分大小写）。
点击确定：完成快捷键设置。

2.2 运行宏

按下你设置的快捷键，即可运行对应的宏。

三、自动运行宏

你可以设置宏在特定事件发生时自动运行，例如打开工作簿时或者更改某个单元格时。

3.1 使用Workbook_Open事件

Workbook_Open事件是在工作簿打开时自动运行的事件。

打开VBA编辑器：按下“Alt + F11”打开VBA编辑器。
打开ThisWorkbook模块：在项目资源管理器中，双击“ThisWorkbook”模块。
编写代码：

Private Sub Workbook_Open()
    Call Macro1
    Call Macro2
End Sub

这个代码将在工作簿打开时自动运行Macro1和Macro2。

3.2 使用Worksheet_Change事件

Worksheet_Change事件是在工作表中的单元格发生更改时自动运行的事件。

打开VBA编辑器：按下“Alt + F11”打开VBA编辑器。
打开工作表模块：在项目资源管理器中，双击你希望触发事件的工作表。
编写代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Call Macro1
        Call Macro2
    End If
End Sub

这个代码将在单元格A1发生更改时自动运行Macro1和Macro2。

四、使用事件触发来运行两个宏

除了上面提到的Workbook_Open和Worksheet_Change事件，Excel中还有许多其他事件可以触发宏。

4.1 使用Workbook_SheetChange事件

Workbook_SheetChange事件是在工作簿中的任何工作表发生更改时自动运行的事件。

打开VBA编辑器：按下“Alt + F11”打开VBA编辑器。
打开ThisWorkbook模块：在项目资源管理器中，双击“ThisWorkbook”模块。
编写代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Call Macro1 Call Macro2 End Sub

这个代码将在工作簿中的任何工作表发生更改时自动运行Macro1和Macro2。

4.2 使用Workbook_BeforeSave事件

Workbook_BeforeSave事件是在工作簿保存之前自动运行的事件。

打开VBA编辑器：按下“Alt + F11”打开VBA编辑器。
打开ThisWorkbook模块：在项目资源管理器中，双击“ThisWorkbook”模块。
编写代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Macro1 Call Macro2 End Sub

这个代码将在工作簿保存之前自动运行Macro1和Macro2。

五、在一个宏中调用多个宏

你可以编写一个宏，在这个宏中调用其他多个宏。这样，运行这个单一的宏就可以依次执行多个宏。

5.1 编写调用宏的代码

打开VBA编辑器：按下“Alt + F11”打开VBA编辑器。
插入模块：在VBA编辑器中，点击“插入”>“模块”。
编写代码：

Sub RunMultipleMacros()
    Call Macro1
    Call Macro2
End Sub

这个代码将依次运行Macro1和Macro2。

5.2 运行调用宏

你可以通过按钮、快捷键或事件触发等方式运行这个调用宏。

六、宏的优化和注意事项

6.1 避免宏冲突

当在一个工作表中运行多个宏时，可能会出现宏冲突的情况。为了避免这种情况，请确保宏之间没有冲突的操作。例如，不要在一个宏中删除另一个宏正在操作的单元格。

6.2 提高宏的运行效率

为了提高宏的运行效率，可以使用以下几种方法：

关闭屏幕更新：在宏运行时关闭屏幕更新，可以显著提高运行速度。

Application.ScreenUpdating = False

关闭自动计算：在宏运行时关闭自动计算，可以减少计算时间。

Application.Calculation = xlCalculationManual

使用数组：在处理大量数据时，使用数组可以显著提高运行效率。

6.3 调试宏

在编写和运行宏时，难免会遇到错误。可以使用以下几种方法进行调试：

使用断点：在VBA编辑器中，点击代码行左侧的灰色区域，设置断点。当宏运行到断点时会自动暂停，方便检查变量和代码执行情况。
使用MsgBox：在代码中插入MsgBox语句，可以显示变量的值或执行进度。

MsgBox "Macro1 has run successfully."

使用调试工具：在VBA编辑器中，使用调试工具（如“运行”、“逐过程执行”、“逐语句执行”等）可以逐步执行代码，检查代码执行情况。

七、实际案例应用

为了更好地理解如何在同一个Excel工作表中运行多个宏，以下是一个实际案例。

7.1 案例描述

假设你有一个Excel工作表，其中包含销售数据。你希望通过宏来实现以下功能：

宏1：将销售数据按日期排序。
宏2：计算每个销售代表的总销售额，并将结果显示在新的工作表中。

7.2 编写宏代码

宏1代码：

Sub SortSalesData()
    Sheets("SalesData").Range("A1:D100").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub

宏2代码：

Sub CalculateTotalSales()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim salesRep As Range
    Dim totalSales As Double
    Set ws = Sheets("SalesData")
    Set newWs = Sheets.Add
    newWs.Name = "TotalSales"
    newWs.Range("A1").Value = "Sales Representative"
    newWs.Range("B1").Value = "Total Sales"
    Set salesRep = ws.Range("B2:B100")
    totalSales = 0
    For Each rep In salesRep
        totalSales = Application.WorksheetFunction.SumIf(salesRep, rep, ws.Range("D2:D100"))
        newWs.Cells(rep.Row, 1).Value = rep.Value
        newWs.Cells(rep.Row, 2).Value = totalSales
    Next rep
End Sub

7.3 运行宏

你可以通过按钮、快捷键或事件触发等方式运行这两个宏。以下是通过按钮来运行的示例：

插入按钮：在工作表中插入两个按钮，分别命名为“排序数据”和“计算总销售额”。
分配宏：将宏1分配给“排序数据”按钮，将宏2分配给“计算总销售额”按钮。
运行宏：点击相应的按钮，即可运行对应的宏。

八、结论

在Excel中运行多个宏的方法有很多，包括使用按钮、快捷键、自动运行宏、事件触发等。每种方法都有其优点和适用场景，可以根据具体需求选择合适的方法。在实际应用中，还需要注意宏的优化和调试，以提高运行效率和确保宏的正确性。通过本文的详细介绍和实际案例，希望你能更好地掌握在同一个Excel工作表中运行多个宏的方法。