Hàm AVERAGE trong VBA

[spacemanforever]

Chào GPE!
Em có file như sau:
-Cột MH là tên mặt hàng.
-Cột A là số liệu.
-Cột AVERAGE tính trung bình số liệu.
-Cột Quality là số lượng số liệu.
Vd:
+MH X có 2 số liệu là 15 và 20
+MH Y có 3 số liệu là 20, 26, 19
.......
Vậy em muốn tính AVERAGE của từng mặt hàng trong cell to màu vàng thì phải viết code VBA như thế nào vậy?
Thanks

 

[Ba Tê]

Chào GPE!
Em có file như sau:
-Cột MH là tên mặt hàng.
-Cột A là số liệu.
-Cột AVERAGE tính trung bình số liệu.
-Cột Quality là số lượng số liệu.
Vd:
+MH X có 2 số liệu là 15 và 20
+MH Y có 3 số liệu là 20, 26, 19
.......
Vậy em muốn tính AVERAGE của từng mặt hàng trong cell to màu vàng thì phải viết code VBA như thế nào vậy?
Thanks

Thử code củ chuối này xem, hy vọng nó chạy được

 

[spacemanforever]

Quả là cao thủ.
Xin chỉ giáo thêm, em có vài điều chưa hiểu:
-Thứ nhất:

For Each Func In Rngs
Func.FormulaR1C1 = "=IF(RC[-2]="""","""",SUM(OFFSET(RC[-2],,1,RC[1],))/RC[1])"
Next

ý nghĩa là sao vậy
-Thứ 2:
tại sao bạn lại dùng đoạn

Set Rngs = Nothing

 

[Ba Tê]

Quả là cao thủ.
Xin chỉ giáo thêm, em có vài điều chưa hiểu:
-Thứ nhất:

For Each Func In Rngs
Func.FormulaR1C1 = "=IF(RC[-2]="""","""",SUM(OFFSET(RC[-2],,1,RC[1],))/RC[1])"
Next

ý nghĩa là sao vậy
-Thứ 2:
tại sao bạn lại dùng đoạn

Set Rngs = Nothing

1. Bạn thử bỏ dòng:
Rngs.Value = Rngs.Value
rồi xem công thức trong bảng sẽ hiểu công thức đó là gì.
2. Trước đây đã gán Rngs = cái gì đó trong bộ nhớ, cuối cùng là xóa bộ nhớ đó đi thôi.
Tôi cũng đang mò VBA dựa trên Record new macro.
Chúc Bạn mau tiến bộ