giúp mình lập hàm để tính điểm trung bình

[nvhai106]

Cần viết hàm TBCTL bằng VBC tại ô C27( Tính trung bình là lấy số tín chỉ của mỗi môn học nhân với số điểm(Điểm A=4 B=3 C=2 D=1 F=0 ) của mỗi môn đó rồi cộng tất cả lại ,sau đó chia cho tổng số tín chỉ của các môn đó.)
mong mấy anh giúp dùm

 

[concogia]

Cần viết hàm TBCTL bằng VBC tại ô C27( Tính trung bình là lấy số tín chỉ của mỗi môn học nhân với số điểm(Điểm A=4 B=3 C=2 D=1 F=0 ) của mỗi môn đó rồi cộng tất cả lại ,sau đó chia cho tổng số tín chỉ của các môn đó.)
mong mấy anh giúp dùm

Bạn nhờ thì mình làm thôi nhưng có mấy điểm chưa rõ:
- Bạn muốn viết hàm bằng VBA ?
- Cột H nếu có dữ liệu mới tính ?
- Cột G thì sao ??? có phải là điều kiện để tính không ( vì chung học kỳ) ?
Tạm thời làm thế này, nếu trật thì ....làm lại nhé

Public Function Tb(Vung)
    Dim I, Tong, Tam
    Application.Volatile
        For I = 1 To Vung.Rows.Count
            If Vung(I) <> vbNullString Then
                Tong = Tong + Vung(I).Offset(, -4)
                Tam = Tam + Vung(I).Offset(, -4) * Switch(Vung(I).Offset(, -2) = "A", 4, Vung(I).Offset(, -2) = "B", 3, Vung(I).Offset(, -2) = "C", 2, Vung(I).Offset(, -2) = "D", 1)
            End If
        Next I
    Tb = Round(Tam / Tong, 2)
End Function

Kết quả ở J1