Trình bày nội dung bảng điểm của học sinh

[PhanTuHuong]

Trong quá trình lập bảng điểm cho học sinh, để tiện theo dõi kết quả học tập, bạn có thể phân chia các loại điểm khác nhau như sau:
-  Điểm dưới trung bình .
-  Điểm trung bình .
-  Điểm khá.
-  Điểm giỏi .
- Phạm quy hay cấm thi
-  ...
Mỗi loại điểm bạn có kiểu định dạng khác nhau như màu sắc chữ, màu nền, canh lề,... Tất nhiên trong Format/Format conditional formatting cũng có thể thực hiện nhưng ko đc trọn vẹn.
Các bạn có thể sửa đổi code cho phù hợp với công việc của mình.
Tôi xin giới thiệu file mẫu ví dụ minh họa.

 

[SA_DQ]

Theo mình có thể sửa đoạn mã lệnh sau, để mỗi khi nhập vô nó tô cho ta màu

Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer

If Not Intersect(Target, Range("C2:O12345")) Is Nothing Then
Select Case Target
Case 0: iColor = 37
Case < 2: icolor = 15
Case is < 4 : icolor = 36
Case is < 6 : icolor = 38
Case is < 8 : icolor = 35
Case < 9 : icolor = 34
Case <= 10 : icolor = 39

Case Else : iColor =1
End Select
Range(Target.Offset(0,0), Target.Offset(0, 0)).Interior.ColorIndex = icolor
End If
End Sub

 

[PhanTuHuong]

Cách tô màu của bác HYen rất hay nhưng em vẫn chưa nắm được màu tương ứng từng số. Bác có thể liệt kê ra được không?

 

[longtran159]

Mình có bảng màu mẫu của VBA trong Excel đây. Bác có thể tham khảo để biết màu tương ứng với từng số nhé.

 

[chibi]

Range(Target.Offset(0,0), Target.Offset(0, 0)).Interior.ColorIndex = icolor

Mạo muội sửa lại chút

Target.Interior.ColorIndex = icolor

 

[boyxin]

Mình có bảng màu mẫu của VBA trong Excel đây. Bác có thể tham khảo để biết màu tương ứng với từng số nhé.

DÙNG HÀM GÌ ĐỂ HIỆN LÊN ĐƯỢC BÀNG MÀU NHƯ THẾ NÀY HẢ BÁC