GIÚP ĐỠ FILE KIỂM TRA BẢNG CÔNG

[tuilait]

Mình có 1 bảng công. Mỗi kỳ công 15 ngày. Mỗi ngày công là gồm C là công chính, T là tăng ca, P/C là phụ cấp. Giờ mình muốn viết công thức để kiểm tra nếu C bằng VR ( nghỉ việc riêng) mà T và P/C lại chấm X hoặc 1 trong 2 chấm X thì đổi màu đỏ tại dòng đó để kiểm tra lại công. Mình đang sử dụng tô màu có điều kiện nhưng phải cấu hình cho từng ngày lâu quá. Mong các bác giúp đỡ để thực hiện được nhanh hơn. Rất mong nhận được sự giúp đỡ.

 

[SA_DQ]

Nếu cần 1 macro tô màu cho bạn thì làm thế này
. . . (Khai báo các biến cần dùng)
Tạo vòng lặp duyệt theo hàng, (theo từng CNV trong BCC)
Tạo them 1 vòng lặp để duyệt theo công; Vòng này có bước nhảy là 3 (để duyệt theo ngày công của từng người)
(Trong khi duyệt vòng lặp) Hễ gặp kí hiệu công có mã là 'VR' thì xét 2 ô bên phải liền kề; Nếu đúng iêu cầu thì tô màu (đỏ) cả 3 ô

Chúc bạn thành công.

 

[tuilait]

Nếu cần 1 macro tô màu cho bạn thì làm thế này
. . . (Khai báo các biến cần dùng)
Tạo vòng lặp duyệt theo hàng, (theo từng CNV trong BCC)
Tạo them 1 vòng lặp để duyệt theo công; Vòng này có bước nhảy là 3 (để duyệt theo ngày công của từng người)
(Trong khi duyệt vòng lặp) Hễ gặp kí hiệu công có mã là 'VR' thì xét 2 ô bên phải liền kề; Nếu đúng iêu cầu thì tô màu (đỏ) cả 3 ô

Chúc bạn thành công.

Thanks bác. Bác có thể code demo giúp mình được không? Tại mình cũng mới mày mò nghiên cứu VBA cũng chưa rành lắm. Mà cái file thì đang cần gấp quá. Bác giúp được thì tốt quá. Thanks bác trước

 

[SA_DQ]

Lười quá đó nha:

Sub ToMauKiemSaiNhapCong()
 Dim Rws As Long, J As Long, W As Integer
 
 Sheets("05").Select
 Rws = [b8].End(xlDown).Row
 For J = 8 To Rws
    For W = 8 To 51
        With Cells(J, W)
            If UCase$(.Value) = "VR" Then
                If UCase$(.Offset(, 1).Value) = "X" Or UCase$(.Offset(, 2).Value) = "X" Then
                    .Resize(, 3).Interior.ColorIndex = 38
                End If
            End If
        End With
    Next W
 Next J
End Sub