Bảng điểm thi xếp loại học tập (1 người xem)

[ngocthaigtvt]

Nhờ bác nào dùng công thức tổng quát để tính giùm em giá trị ở cột thi lại. Em nghĩ nát óc mà vẫn chưa ra cách tính

 

[Ba Tê]

Nhờ bác nào dùng công thức tổng quát để tính giùm em giá trị ở cột thi lại. Em nghĩ nát óc mà vẫn chưa ra cách tính

Excel có đuôi .xlsx hình như chưa thông dụng trên GPE, nhiều Bạn muốn "xem thử" nhưng không được.
Bạn hãy chờ nhé!

 

[tungson_mrcc]

File của bạn có đuôi .xlsx, Excel 2003 không đọc được (mà hình như còn rất nhiều người đang dùng Office 2003).
Muốn giúp bạn, nhưng đành chịu.
Bạn chịu khó save về dạng .xls rồi upload lại được không?

 

[ngocthaigtvt]

Em vừa đổi sang đuôi .xls nhờ bác giải giùm

 

[boyxin]

Nhờ bác nào dùng công thức tổng quát để tính giùm em giá trị ở cột thi lại. Em nghĩ nát óc mà vẫn chưa ra cách tính

Do điều kiện: Học sinh thi có một môn điểm < 5 ghi là "Thi Lại" nên ta có thể làm như sau

ĐTB: N5 =AVERAGE(D5:M5,INDEX(D5:M5,,MATCH(C5,D$4:M$4,0)))
Ghi Chú: O5 =IF(MIN(D5:M5)>=5,"Đạt",IF(OR(COUNTIF(D5:M5,"<"&5)>1,INDEX(D5:M5,,MATCH(C5,D$4:M$4,0))<5),"Hỏng",IF(COUNTIF(D5:M5,"<"&5)=1,"Thi Lại","???")))
Môn Thi Lại: P5 =IF(O5="Thi Lại",INDEX(D$4:M$4,,MATCH(MIN(D5:M5),D5:M5,0)),"")
Xếp Loại: Q5 =IF(O5<>"Đạt","",IF(N5>=9,"Giỏi",IF(N5>=7,"Khá",IF(N5>=5,"TB",""))))
Học Bổng: R5 =IF(Q5="Giỏi",100000,IF(Q5="Khá",50000,""))

 

[concogia]

Bài của bạn í đây nè

 

[ngocthaigtvt]

en xin lúc nãy đổi đuôi xong quên không save, để em đăng lại

Rất cảm ơn bác boyxin rất nhiều cách làm của bác thật dễ hiểu

 

[boyxin]

en xin lúc nãy đổi đuôi xong quên không save, để em đăng lại

Tập tin đính kèm

• 
  BAI 16.xls (13.9 KB)

Haha. Đổi đuôi xlsx -> xls như bạn thì ai không đổi được? (chỉ là Rename)

Nhưng như vậy thì những người xài Excel 2003 mở file ra toàn giun dế & thằn lằn thôi, không thấy gì mà làm

Bạn cần mở file xlsx rồi save as thành file xls thì người xài Excel 2003 mở file ra mới có thể xem được file của bạn

 

[SA_DQ]

Nữa buổi để có 5 trong 1 luôn!

Function DiemTB(BgDiem As Range, Chuyen As String, Optional TraVe As String = "TB")
 Dim WF, Col As Byte, Diem As Double
  
 Set WF = Application.WorksheetFunction
 Col = Range("Mon").Find(Chuyen, , xlFormulas, xlWhole).Column - 3
 Select Case TraVe
 Case "TB", "XL", "TH"
   Diem = (WF.Sum(BgDiem) + BgDiem.Cells(1, Col)) / (1 + BgDiem.Columns.Count)
   If TraVe = "TB" Then
      DiemTB = Diem
   Else
      If WF.Min(BgDiem) >= 5 Then
         DiemTB = Switch(Diem < 5, "", Diem < 7, "TB", Diem < 9, "KHÁ", Diem <= 10, "GIOI")
         If TraVe = "XL" Then Exit Function
         If TraVe = "TH" And Len(DiemTB) > 2 And WF.Count(BgDiem) = BgDiem.Count Then
            Diem = 10 ^ 5
            If DiemTB = "KHÁ" Then DiemTB = Diem / 2 Else DiemTB = Diem
         Else
            DiemTB = ""
         End If
      End If
   End If
 Case "GC"
   If WF.Min(BgDiem) >= 5 Then
      DiemTB = "DAT"
   ElseIf BgDiem.Cells(1, Col).Value < 5 Or WF.CountIf(BgDiem, "<5") > 1 Then
      DiemTB = "HONG"
   ElseIf 1 = WF.CountIf(BgDiem, "<5") Then
      DiemTB = "THI LAI"
   End If
 Case "TL"
   If 1 = WF.CountIf(BgDiem, "<5") And BgDiem.Cells(1, Col).Value >= 5 Then _
      DiemTB = Range("Mon").Cells(1, BgDiem.Find(WF.Min(BgDiem)).Column - 3).Value
 Case Else
   DiemTB = "GPE.COM"
 End Select
End Function

Cú fáp tại [N5] sẽ là: =DiemTB(D5:M5,C5)

Cú fáp tại [O7] sẽ là: =DiemTB(D7:M7,C7,"GC")

Cú fáp tại [P10] sẽ là: =DiemTB(D10:M10,C10,"TL")

Cú fáp tại [Q14] sẽ là: =DiemTB(D14:M14,C14,"XL")

Cú fáp tại [R12] sẽ là: =DiemTB(D12:M12,C12,"TH")


Bổ sung : Bạn này đưa bài lên cả ở đây: http://www.giaiphapexcel.com/forum/showthread.php?4041-Chuyên-đề-giải-đáp-các-bài-tập/page56 (Bài #1120)
Vậy các bạn đến đó xem file đính kèm; File ở topic này xin được tháo dỡ, thu hồi tài nguyên

 

[vanthinh.humg]

Do điều kiện: Học sinh thi có một môn điểm < 5 ghi là "Thi Lại" nên ta có thể làm như sau

ĐTB: N5 =AVERAGE(D5:M5,INDEX(D5:M5,,MATCH(C5,D$4:M$4,0)))
Ghi Chú: O5 =IF(MIN(D5:M5)>=5,"Đạt",IF(OR(COUNTIF(D5:M5,"<"&5)>1,INDEX(D5:M5,,MATCH(C5,D$4:M$4,0))<5),"Hỏng",IF(COUNTIF(D5:M5,"<"&5)=1,"Thi Lại","???")))
Môn Thi Lại: P5 =IF(O5="Thi Lại",INDEX(D$4:M$4,,MATCH(MIN(D5:M5),D5:M5,0)),"")
Xếp Loại: Q5 =IF(O5<>"Đạt","",IF(N5>=9,"Giỏi",IF(N5>=7,"Khá",IF(N5>=5,"TB",""))))
Học Bổng: R5 =IF(Q5="Giỏi",100000,IF(Q5="Khá",50000,""))

bạn giải thích giúp tớ 1 chút được không t không hiểu lắm à
p/s: mình mới học excel à

 

[boyxin]

bạn giải thích giúp tớ 1 chút được không t không hiểu lắm à
p/s: mình mới học excel à

Bạn mở file xem chưa? Nếu xem rồi thì bạn muốn làm rõ chỗ nào vậy