TÔ MÀU DÒNG EXCEL (3 người xem)

[Nancy Nguyen Mai]

Chào cả nhà,

Mình có file excel cần được tô màu như bảng đính kèm, hiện tại mình đang làm thủ công nhưng do dữ liệu nhiều làm thủ công không nổi, bạn nào có cách nhanh hơn hỗ trợ mình với, xin cảm ơn

 

[phihndhsp]

Chào cả nhà,

Mình có file excel cần được tô màu như bảng đính kèm, hiện tại mình đang làm thủ công nhưng do dữ liệu nhiều làm thủ công không nổi, bạn nào có cách nhanh hơn hỗ trợ mình với, xin cảm ơn

Tô màu dựa theo quy luật nào?

 

[Nancy Nguyen Mai]

Tô màu dựa theo quy luật nào?

Dựa vào Sheet FILE SUBTOTAL đó bạn, dòng đầu tiên sẽ tô màu hoặc là: Tô màu dòng đầu tiên nếu các dòng sau có cùng Incoterms, Act. GdsMvmnt Date, Sales Office, Material, Sold-to party

 

[be_09]

Dựa vào Sheet FILE SUBTOTAL đó bạn, dòng đầu tiên sẽ tô màu hoặc là: Tô màu dòng đầu tiên nếu các dòng sau có cùng Incoterms, Act. GdsMvmnt Date, Sales Office, Material, Sold-to party

Khỏi cần suy nghĩ nhiều, cách làm thủ công đơn giản như File đính kèm.
- Copy cột W sang BG rồi Convert to Number.
- Sang cột BH dùng phép trừ, xong Filter và bỏ chọn số 0 thì được kết quả theo yêu cầu và chỉ việc tô màu là xong.

 

[nguyenthuy13388]

Dựa vào Sheet FILE SUBTOTAL đó bạn, dòng đầu tiên sẽ tô màu hoặc là: Tô màu dòng đầu tiên nếu các dòng sau có cùng Incoterms, Act. GdsMvmnt Date, Sales Office, Material, Sold-to party

Không biết có phải thế này không?

Sub to_mau()
Sheets("FILE SUBTOTAL").Activate
Dim LR As Long
With ActiveSheet
LR = Cells(.Rows.Count, "A").End(xlUp).Row
End With
For i = 1 To LR
x = Cells(i, "A").Value
If x = "" Then
Rows(i + 1).Select
With Selection.Font
.Color = -16776961
End With
End If
Next i
End Sub

 

[Nancy Nguyen Mai]

Khỏi cần suy nghĩ nhiều, cách làm thủ công đơn giản như File đính kèm.
- Copy cột W sang BG rồi Convert to Number.
- Sang cột BH dùng phép trừ, xong File và bỏ chọn số 0 thì được kết quả theo yêu cầu và chỉ việc tô màu là xong.

Cảm ơn bạn mình đã làm được

Bài đã được tự động gộp: 19/6/18

Không biết có phải thế này không?

Sub to_mau()
Sheets("FILE SUBTOTAL").Activate
Dim LR As Long
With ActiveSheet
LR = Cells(.Rows.Count, "A").End(xlUp).Row
End With
For i = 1 To LR
x = Cells(i, "A").Value
If x = "" Then
Rows(i + 1).Select
With Selection.Font
.Color = -16776961
End With
End If
Next i
End Sub

Cảm ơn nhiều nha, mình không hiểu à, nhưng mình làm theo cách của bạn be09 được rùi