Dựa vào màu sắc & điều kiện khác để ghi là N hay C

[AnhThu-1976]

Các anh chị & các bạn giúp đỡ code cho trường hợp sau
Em muốn dựa vào chữ màu đỏ ở cột D và số thứ tự ở cột C để ghi vào cột H là N hay C
1/ Xét các cặp số thứ tự có mã khách hàng có chữ màu đỏ: Nếu Cột D có Mã khách hàng nào là màu đỏ thì ở cột H sẽ ghi là N. Và chữ màu đen thì ghi là C
Ví dụ dòng 26, 31, 32, 37 là màu đỏ thì ghi là N, và các dòng còn lại ghi là C

2/ Xét các cặp số thứ tự có mã khách hàng KHÔNG có chữ màu đỏ: thì dòng đầu tiên của cặp số thứ tự đó sẽ ghi là N và dòng còn lại sẽ ghi là C
Ví dụ cặp số thứ tự 002 thì ghi H28 = N; H29 = C
Em cảm ơn!

 

[CHAOQUAY]

Các anh chị & các bạn giúp đỡ code cho trường hợp sau
Em muốn dựa vào chữ màu đỏ ở cột D và số thứ tự ở cột C để ghi vào cột H là N hay C
1/ Xét các cặp số thứ tự có mã khách hàng có chữ màu đỏ: Nếu Cột D có Mã khách hàng nào là màu đỏ thì ở cột H sẽ ghi là N. Và chữ màu đen thì ghi là C
Ví dụ dòng 26, 31, 32, 37 là màu đỏ thì ghi là N, và các dòng còn lại ghi là C

2/ Xét các cặp số thứ tự có mã khách hàng KHÔNG có chữ màu đỏ: thì dòng đầu tiên của cặp số thứ tự đó sẽ ghi là N và dòng còn lại sẽ ghi là C
Ví dụ cặp số thứ tự 002 thì ghi H28 = N; H29 = C
Em cảm ơn!

Bạn dùng thử code dưới đây xem sao

Sub N_C()
Dim i
With Sheet4
    For i = 26 To 37 Step 2
        If .Range("d" & i).Font.ColorIndex = .Range("d" & i + 1).Font.ColorIndex Then
            .Range("h" & i) = "N"
            .Range("h" & i + 1) = "C"
        Else
            If .Range("d" & i).Font.ColorIndex = 3 Then
                .Range("h" & i) = "N"
                .Range("h" & i + 1) = "C"
            Else
                .Range("h" & i) = "C"
                .Range("h" & i + 1) = "N"
            End If
        End If
    Next i
End With
End Sub

 

[AnhThu-1976]

For i = 26 To 37

Cho tôi hỏi, vì bảng tính có thể nhiều hơn hay ít hơn số dòng 37, thì phải thay số 37 bằng cách nào
Ngoài cách xác định dòng Last row là r = Range("B" & Rows.Count).End(xlUp).Row
Xin cảm ơn!

 

[CHAOQUAY]

Cho tôi hỏi, vì bảng tính có thể nhiều hơn hay ít hơn số dòng 37, thì phải thay số 37 bằng cách nào
Ngoài cách xác định dòng Last row là r = Range("B" & Rows.Count).End(xlUp).Row
Xin cảm ơn!

Thỉnh thoảng tôi dùng cái này, bạn kiểm tra thử xem

= Sheet4.UsedRange.Rows.CountLarge