excel - 使用 ActiveX 按钮从其他工作表调用数据并计算其平均值

Question

我在 sheet2 中有大量数据。例如 B4=2、B5=4 和 C4=6、C5=4。我想使用 ActiveX 按钮从 sheet2 调用数据并通过单击 ActiveX 按钮计算其在 sheet1 中的平均值。你能帮助如何在这个问题中使用 VBA 代码吗？谢谢

此代码有数据与帖子无关，但思路相同

Private Sub CommandButton1_Click()

Dim AVG As Integer

ThisWorkbook.Worksheets("Sheet2").Activate

Worksheets("Sheet1").Range("A3").Value = Application.WorksheetFunction.average(Range("A1:A2"))

AVG = Application.WorksheetFunction.average(Range("A1:A2"))

MsgBox Worksheets("Sheet1").Range("A3").Value

End Sub

我想创建一个按钮，如果我输入一个名称，例如 Jan13，sheet1 中的按钮将根据工作表 2 上的范围 B3:B10 计算其平均值。msgBox 将得出结果

Answer 1

试试这个它应该可以解决你的问题。

Public Sub Average()

Dim AVG As String
ThisWorkbook.Worksheets("Sheet2").Activate
' Range here to calculate average of is A1 to A20
AVG = Application.Average(Range("A1:A20"))
' This is where the result of the average be displayed
Worksheets("Sheet1").Cells(1, 2).Value = AVG 

End Sub

此外，您不需要 ActiveX 按钮。只需使用普通按钮并将此宏分配给它。