fallingstar
Thành viên mới

- Tham gia
- 12/9/08
- Bài viết
- 9
- Được thích
- 1
- Nghề nghiệp
- sinh viên
F2=IF(B2="A",(C2*3+D2+E2*2)/6,(C2+D2*2+E2*2)/5)
@hoangminhtien: Nếu vì lý do gì đó ta thay đổi hệ số thì công thức của bạn phải thay đổi toàn bộ!Để tính điểm trung bình bạn dùng công thức sau
F2=IF(B2="A",(C2*3+D2+E2*2)/6,(C2+D2*2+E2*2)/5)
BangA: = TRANSPOSE(bai4!$B$8:$B$10)
BangB: = TRANSPOSE(bai4!$C$8:$C$10)
=CHOOSE(1+($B2<>"A"),SUMPRODUCT($C2:$E2,BangA)/SUM(BangA),SUMPRODUCT($C2:$E2,BangB)/SUM(BangB))
Câu 4: [P4] =IF(OR(N4="HS2", N4<11), "Thiếu điểm", IF(OR(O4=0, O4=""), "Bỏ thi", (N4+O4)/2))quên mất cấu 4 còn dòng Thông báo học sinh "bỏ thi "và "thiếu điểm" trong cột này
*thiếu điểm là ô để trắng
Chuyện này thì tôi cũng hiểu. Nhưng, theo đề bài của bạn:Nhưng ở dòng phân loại cứ ngầm hiểu là vd: >=9 xuất sắc; còn 8,999 là giỏi.
Option Explicit
Function TinhDiem(Rng1 As Range, Rng2 As Range, Loai As String)
Dim Clls As Range
Select Case Loai
Case "TD"
For Each Clls In Union(Rng1, Rng2)
If Intersect(Clls, Rng2) Is Nothing Then
TinhDiem = TinhDiem + Clls.Value
Else
TinhDiem = TinhDiem + 2 * Clls.Value
End If
Next Clls
Case "DD"
For Each Clls In Union(Rng1, Rng2)
If Intersect(Clls, Rng2) Is Nothing And Clls <> "" Then
TinhDiem = TinhDiem + 1
ElseIf Not Intersect(Clls, Rng2) Is Nothing And Clls <> "" Then
TinhDiem = TinhDiem + 2
End If
Next Clls
Case "TB"
For Each Clls In Rng2
If Clls.Value = "" Then
TinhDiem = "HS2": Exit Function
End If
Next Clls
TinhDiem = TinhDiem(Rng1, Rng2, "TD") / TinhDiem(Rng1, Rng2, "DD")
End Select
End Function
Theo mình:ai pro làm được bài này giúp với
![]()