VBA计算平均值

Question

这是问题，我需要获得参与，测验，座位工作和考试的平均值。答案应出现在“总数”中。但也计算下一个单元格的百分比。我有一个宏，只会在一次运行中计算它们吗？

这就是我在录制宏中得到的：

Sub Macro4()
'
' Macro4 Macro
'

'
    ActiveCell.FormulaR1C1 = "=RC[-1]*10%"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C3"), Type:=xlFillDefault
    Range("C2:C3").Select
End Sub

但它简单易用，便于计算

Answer 1

看起来你最好在Excel而不是宏中使用等式。如果您将公式："=(B2*(10/100))+(D2*(20/100))+(F2*(20/100))+(H2*(50/100))"放入单元格J2中，并将其复制下来，则应该为您提供加权平均分数。

Answer 2

我真的认为你不需要或想要VBA。

我会将总点数和比例设置在顶部，得分如下。然后您可以根据需要更轻松地更改它们。在单元格J4中输入此公式=B4/$B$1*$B$2+D4/$D$1*$D$2+F4/$F$1*$F$2+H4/$H$1*$H$2并向下复制。

通过此方法计算：