多次运行函数VBA

Question

当我单击按钮时，我想多次调用一个函数（使用不同的值）。 但是当我单击它时，该函数运行 1 次（对于示例中的图表 7），然后停止。该函数不会继续（对于示例中的图表 3）。知道为什么吗？

这是我的代码：

Public Sub CommandButton1_Click()
    Sheets("Sheet1").ChartObjects("Chart 7").Activate
    Call changechart(Range("F2:G11"), "Title 1")

    Sheets("Sheet1").ChartObjects("Chart 3").Activate
    Call changechart(Range("A11:B18"), "Title 2")
End Sub

Sub changechart(x As Range, T As String)
    ActiveChart.ChartTitle.Text = T
    ActiveChart.SetSourceData Source:=Sheets("Sheet2").x
End Sub

我尝试将所有函数放在主函数中，而不是放在 commandbutton1_click 中：结果相同。

Answer 1

Option Explicit

Public Sub CommandButton1_Click()
    Call Changechart("Chart 7", "F2:G11", "Title 1")
    Call Changechart("Chart 3", "A11:B18", "Title 2")
End Sub
Sub Changechart(ByVal sCht As String, ByVal sSrc As String, ByVal T As String)
    With Sheets("Sheet1").ChartObjects(sCht)
        .ChartTitle.Text = T
        .SetSourceData Source:=Sheets("Sheet2").Range(sSrc)
    End With
End Sub