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並複製下來。