Định dạng màu (Sao code không cho kết quả đúng?)

[bebeen]

Em có ví dụ nhỏ này nhưng không hiểu sao code sai chỗ nào mà lại không cho kết quả đúng? Mọi người chỉ dùm chỗ sai?

 

[Hai Lúa Miền Tây]

Em có ví dụ nhỏ này nhưng không hiểu sao code sai chỗ nào mà lại không cho kết quả đúng? Mọi người chỉ dùm chỗ sai?

Sao bạn không dùng CF như hình bên dưới.

 

[concogia]

Em có ví dụ nhỏ này nhưng không hiểu sao code sai chỗ nào mà lại không cho kết quả đúng? Mọi người chỉ dùm chỗ sai?

Câu lệnh của bạn:

For i = dongdau To dongcuoi
If Cells(i, 6).Value = 0 Then
Cells(i, 2).Interior.Color = 5287936 '.Font.ColorIndex = 5

Nếu giá trị cell hàng i cột 6 =0 thì tô màu ( 5287936) cell hàng i cột 2

Else
Cells(i, 2).Interior.Color = 5287936 '.Font.ColorIndex = 1

Nếu khác đi ( tức là cell hàng i cột 6 <> 0 ) thì tô màu (5287936) cell hàng i cột 2
Túm lại, code của bạn thì cell hàng i cột 6 có giá trị là bi nhiêu code cũng tô màu (5287936) cell hàng i cột 2
Code chạy đúng
Nếu muốn chỉ tô cell hàng i cột 2 khi cell hàng i cột 6 = 0 thì bỏ cái thằng "eo eo" kia đi
Híc

 

[ndu96081631]

Em có ví dụ nhỏ này nhưng không hiểu sao code sai chỗ nào mà lại không cho kết quả đúng? Mọi người chỉ dùm chỗ sai?

Sai chổ này

Cells(i, 2).Interior.Color = 5287936

Lý ra phải là

Cells(i, 2).Interior.Pattern = -4142

Ngoài ra code bạn dài dòng quá, sửa lại cho gọn như sau:

Sub Tim()
  Dim i As Long
  With Sheet1.Range(Sheet1.[a2], Sheet1.[a65000].End(3))
    .Offset(, 5).FormulaR1C1 = "=+RC[-2]-RC[-1]"
    .Offset(, 5).Value = .Offset(, 5).Value
    For i = 1 To .Rows.Count
      If .Cells(i, 6).Value = 0 Then
        .Cells(i, 2).Interior.Color = 5287936
      Else
        .Cells(i, 2).Interior.Pattern = -4142
      End If
    Next
  End With
End Sub