Excel、VBA：如何将多个变量传递给 .OnAction

excel

excel、VBA：如何将多个变量传递给 .OnAction

在excel中，VBA是一种强大的编程语言，可以帮助我们自动化处理各种任务。当我们在excel中创建按钮并希望通过点击按钮来执行某些操作时，我们可以使用 .OnAction 方法来指定按钮点击后要执行的VBA代码。通常情况下，我们需要将一些参数传递给 .OnAction 方法中的VBA过程。本文将介绍如何将多个变量传递给 .OnAction 方法，并提供一个案例代码来演示。

案例代码：

假设我们有一个excel表格，其中包含一列数据，我们希望通过点击一个按钮来将选定的单元格中的数据进行求和，并将结果显示在另一个单元格中。为了实现这个功能，我们需要创建一个按钮，并将其 .OnAction 方法指定为一个VBA过程。在这个过程中，我们需要传递两个变量：一个是要进行求和的范围，另一个是要显示结果的单元格。

首先，我们需要在excel中创建一个按钮。可以通过"开发工具"选项卡中的"插入"菜单来插入按钮。然后，右键单击按钮，选择"编辑代码"。这将打开VBA编辑器。

在VBA编辑器中，我们需要为按钮的 .OnAction 方法创建一个VBA过程。我们可以使用以下代码来实现这个过程：

VBA
Sub SumRangeAndDisplayResult(rng As Range, resultCell As Range)
    Dim sumValue As Double
    sumValue = WorksheetFunction.Sum(rng)
    resultCell.Value = sumValue
End Sub

在上面的代码中，我们定义了一个名为 "SumRangeAndDisplayResult" 的过程，该过程接受两个参数：一个是要进行求和的范围（rng），另一个是要显示结果的单元格（resultCell）。在过程中，我们使用 WorksheetFunction.Sum 方法来计算范围中的总和，并将结果赋给 sumValue 变量。然后，我们将 sumValue 的值赋给 resultCell 单元格。

接下来，我们需要将按钮的 .OnAction 方法指定为我们刚刚创建的过程。我们可以使用以下代码来实现这一点：

VBA
Sub AssignButtonOnAction()
    Dim btn As Button
    Dim rng As Range
    Dim resultCell As Range
    
    Set btn = Worksheets("Sheet1").Buttons("Button1")
    Set rng = Worksheets("Sheet1").Range("A1:A10")
    Set resultCell = Worksheets("Sheet1").Range("C1")
    
    btn.OnAction = "SumRangeAndDisplayResult """ & rng.Address & """, """ & resultCell.Address & """"
End Sub

在上面的代码中，我们首先定义了 btn、rng 和 resultCell 变量来引用按钮、要进行求和的范围和要显示结果的单元格。然后，使用 Set 语句将这些变量设置为对应的按钮、范围和单元格。

最后，我们使用 btn.OnAction 方法来指定按钮点击后要执行的过程。在这里，我们将 "SumRangeAndDisplayResult" 过程的名称作为字符串传递给 .OnAction 方法。我们使用 rng.Address 和 resultCell.Address 来获取范围和单元格的地址，并将它们作为字符串参数传递给 .OnAction 方法。注意，由于 .OnAction 方法接受一个字符串参数，我们需要在传递地址时使用双引号。

：

在本文中，我们介绍了如何将多个变量传递给 .OnAction 方法，并提供了一个案例代码来演示。通过这种方法，我们可以轻松地将参数传递给按钮点击后要执行的VBA过程，从而实现更灵活和可定制的功能。这对于在excel中处理复杂任务和自动化工作流程非常有用。希望本文对你在excel中使用VBA编程有所帮助！