Right Click vào Sheet "HOC SINH YEU KEM" ==> View Code ==> chép "thằng" này vào ==> Nhập điểm ở Sheet "HKI" ==> chuyển sang Sheet "HOC SINH YEU KEM" xem kết quả
Private Sub Worksheet_Activate()
Dim Vung, Mg(1 To 60, 1 To 19), kK, Ws, I, J
Set Ws = Sheets("HKI"): Set Vung = Ws.Range(Ws.[b4], Ws.[b100].End(xlUp))
[a4:o64].ClearContents
kK = 1
For I = 1 To Vung.Rows.Count
If Vung(I).Offset(, 15) = "Y" & ChrW(7870) & "U" Or Vung(I).Offset(, 15) = "KÉM" Then
Mg(kK, 1) = Vung(I): Mg(kK, 16) = Vung(I).Offset(, 15): Mg(kK, 17) = Vung(I).Offset(, 16)
For J = 1 To 14
If Vung(I).Offset(, J) < 50 Then Mg(kK, J + 1) = Vung(I).Offset(, J)
Next
kK = kK + 1
End If
Next
[b4].Resize(kK, 19) = Mg
Range([b4], [b60].End(xlUp)).Offset(, -1) = [row(A:A)]
End SubNếu bác dùng Công thức được thì cho em xin một bản để nghiên cứu, còn em thấy code của Concogia cũng tốt lắm rồi!!
Có mấy ý kiến:
Bạn sửa công thức tại E4 thành =SUMPRODUCT((B9:B14<>"")*1) là được.
Tôi đã thực hiện theo hướng dẫn của bạn "nghiaphuc" và đã ra kết quả đúng theo yêu cầu.
- Để đếm số nữ mắc bệnh chỉ cần dùng COUNTIF là được: =COUNTIF(E9:E14,">0")
Tặng bạn luôn nhé! Mon rằng công việc của bạn đỡ vất vả.
Bạn vào Format->Conditional mở lên là thấy định dạng trong đó ngay.( Có thể định dạng đến 4 màu trong đó cơ)
For i = 9 To 15
If ds.Cells(r, i) <> "" Then
t = ", "
Else
t = ""
End If
cd = cd & ds.Cells(r, i) & t
Next
