Nhờ mọi người giúp code VBA để bôi vàng dòng theo điều kiện định dạng

[chien_lv]

Em có một bảng đơn giá chi tiết theo file đính kèm, bài toàn muốn hỏi mọi người là trong trường hợp cột A của em không có số thứ tự mã công tác hoặc cột đó có giá trị bằng 0 thì toàn bộ dòng đó và các dòng chi tiết liến sau được bôi vàng đến tận dòng nào mà đầy đủ số thứ tự mã và tên mã, hai cái dòng đó có ngăn cách bởi một định dạng liền, tạm thời em bôi xanh để mọi người hình dung ra mục e muốn bôi vàng. Khi soát hàng trăm mã mà làm thủ công thì nhọc quá, xin chân thành cảm ơn mọi người quan tâm giúp đỡ

 

[vu_tuan_manh_linh]

Filter đi bạn ơi! Phút mốt à, VBA làm gì cho nó nhọc người ra!

 

[le_vis]

Filter đi bạn ơi! Phút mốt à, VBA làm gì cho nó nhọc người ra!

Chào Thầy Mạnh Linh - Lâu lắm rồi mới thấy xuất hiện - Khỏe không Linh ơi ?

 

[chien_lv]

Filter đi bạn ơi! Phút mốt à, VBA làm gì cho nó nhọc người ra!

Em cảm ơn anh đã quan tâm tới bài viết của em, thực ra ý tưởng e đang muốn kết hợp để làm một bài toán trong đó còn một vấn đề đó đang vướng nên e muốn nhờ mọi người giúp. Rất mong nhận được sự giúp đỡ từ mọi người

 

[bebo021999]

Thử code này nhé.
Xem file.

Option Explicit
Sub tovang()
Dim i&, cell As Range
For Each cell In Range("A6:A" & Cells(Rows.Count, "B").End(xlUp).Row)
    If IsEmpty(cell) And Not IsEmpty(cell.Offset(0, 1)) And cell.Borders(xlEdgeTop).LineStyle = xlContinuous _
    And cell.Borders(xlEdgeTop).Weight = 2 Then
        i = 0
        Do
            i = i + 1
            If Not IsEmpty(cell.Offset(i, 0)) And cell.Offset(i, 0).Borders(xlEdgeTop).LineStyle = xlContinuous _
            And cell.Offset(i, 0).Borders(xlEdgeTop).Weight = 2 Then Exit Do
        Loop Until i >= 100
        If i > 0 Then cell.Resize(i, 8).Interior.Color = vbYellow
    End If
Next
End Sub

 

[chien_lv]

Thử code này nhé.
Xem file.

Option Explicit
Sub tovang()
Dim i&, cell As Range
For Each cell In Range("A6:A" & Cells(Rows.Count, "B").End(xlUp).Row)
    If IsEmpty(cell) And Not IsEmpty(cell.Offset(0, 1)) And cell.Borders(xlEdgeTop).LineStyle = xlContinuous _
    And cell.Borders(xlEdgeTop).Weight = 2 Then
        i = 0
        Do
            i = i + 1
            If Not IsEmpty(cell.Offset(i, 0)) And cell.Offset(i, 0).Borders(xlEdgeTop).LineStyle = xlContinuous _
            And cell.Offset(i, 0).Borders(xlEdgeTop).Weight = 2 Then Exit Do
        Loop Until i >= 100
        If i > 0 Then cell.Resize(i, 8).Interior.Color = vbYellow
    End If
Next
End Sub

Xin chân thành cảm ơn anh đã giúp đỡ.

 

[vu_tuan_manh_linh]

Chào Thầy Mạnh Linh - Lâu lắm rồi mới thấy xuất hiện - Khỏe không Linh ơi ?

Cảm ơn bạn, mình là thành viên bình thường trên diễn đàn thôi bạn ơi, không phải thầy gì đâu ạ!