Cách bỏ định dạng có điều kiện Conditional formatting mà không mất kết quả từ CF (1 người xem)

[xichdragon]

Xin chào các bạn!
Mình có 1 cell có công thức định dạng (CF) kiểu như Nếu giá trị > 3 và <10 thì màu đỏ (Xem file đính kèm View attachment CF.xlsx ).
Ô của mình có giá trị là 5, nên sẽ đc tô màu đỏ, bây giờ làm thế nào để bỏ CF đi mà không mất màu đỏ của ô này nhỉ?
Mình định viết 1 đoạn code nhỏ, ý tưởng là đọc mã màu của ô kết quả, xóa CF, gán lại kết quả trước tô màu cho ô vừa xóa CF. Tuy nhiên không biết làm sao để đọc được kết quả màu được vì lệnh Cells.interior.color luôn trả về màu trước CF

Ai biết code nào dùng để lấy kết quả màu chỉ giúp mình với nhé

Thanks and regards,

H

 

[ndu96081631]

Xin chào các bạn!
Mình có 1 cell có công thức định dạng (CF) kiểu như Nếu giá trị > 3 và <10 thì màu đỏ (Xem file đính kèm View attachment 109290 ).
Ô của mình có giá trị là 5, nên sẽ đc tô màu đỏ, bây giờ làm thế nào để bỏ CF đi mà không mất màu đỏ của ô này nhỉ?
Mình định viết 1 đoạn code nhỏ, ý tưởng là đọc mã màu của ô kết quả, xóa CF, gán lại kết quả trước tô màu cho ô vừa xóa CF. Tuy nhiên không biết làm sao để đọc được kết quả màu được vì lệnh Cells.interior.color luôn trả về màu trước CF

Ai biết code nào dùng để lấy kết quả màu chỉ giúp mình với nhé

Thanks and regards,

H

Không hay lắm nhưng có thể tạm dùng:

Sub Test()
  Dim rCel As Range, Color As Long
  On Error Resume Next
  For Each rCel In ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
    Color = rCel.FormatConditions(1).Interior.Color
    rCel.FormatConditions.Delete
    rCel.Interior.Color = Color
  Next
End Sub

 

[xichdragon]

Cảm ơn bác ndu96081631 nhiều nhé!

Color = rCel.FormatConditions(1).Interior.Color --> Cái này e k biết nên loay hoay mãi k ra được!!