VBA计算平均值

这是问题,我需要得到参与,测验,座位和考试的平均水平。 答案应该出现在“全部”中。 而且计算出的下一个单元格的百分比。 我有一个这样的macros只能在一次运行计算它们吗?

在这里输入图像说明

这是我在录制macros中得到的:

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 

但它简单易于计算

看起来你最好在Excel中使用一个等式而不是一个macros。 如果将公式"=(B2*(10/100))+(D2*(20/100))+(F2*(20/100))+(H2*(50/100))" J2,并把它复制下来,它应该给你一个加权平均分数。

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

我会用总积分和最高的分数来设置分数。 然后,您可以根据需要更轻松地更改它们。 在单元格J4中input这个公式=B4/$B$1*$B$2+D4/$D$1*$D$2+F4/$F$1*$F$2+H4/$H$1*$H$2并复制下来。

在这里输入图像说明

按此方法计算:

在这里输入图像说明