vba - VBA 计算平均值

Question

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

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

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并向下复制。

用这种方法计算：