donghoangedu
Thành viên mới
- Tham gia
- 2/9/07
- Bài viết
- 29
- Được thích
- 4
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Columns("R:R"), Columns("AG:AG"))) Is Nothing _
And (UCase(Target.Value) = "X" Or Target.Value = "") Then
Dim Hg As Long
Hg = Target.Row
Range("A" & Hg & ":AI" & Hg).Interior.ColorIndex = 35 + (Hg Mod 6)
End If
End Sub
Em có post file 10A1 này lên rồi và được trả lời
Nhưng giúp e thêm một tình huống nữa
* Còn nếu như HS nào nghỉ học, tức là không có điểm thi như vậy E enter qua, lúc này tự động HS đó được tô màu hết trên một dòng giống như các trường hợp trên