Cách Xác định màu thực của cell Condition Formating (1 người xem)

[minhtungph]

trong file đính kèm mình có dữ liệu từ Range("A1:B10") được định dạng theo điều kiện, mình muốn xác định colorIndex hoặc RGB của một cell nào đó trong vùng đó. Cám ơn mọi người.

 

[TheThienChu]

trong file đính kèm mình có dữ liệu từ Range("A1:B10") được định dạng theo điều kiện, mình muốn xác định colorIndex hoặc RGB của một cell nào đó trong vùng đó. Cám ơn mọi người.

code này chỉ tìm được trước khi màu bị thay đổi

Option Explicit

Public Sub ph_mt()
Dim rng As Range
Dim res(1 To 10, 1 To 2)
For Each rng In Sheet1.Range("A1").CurrentRegion
    res(rng.Row, rng.Column) = rng.FormatConditions.Parent
Next rng
Sheet1.Range("D1").Resize(10, 2) = res
End Sub

 

[ndu96081631]

trong file đính kèm mình có dữ liệu từ Range("A1:B10") được định dạng theo điều kiện, mình muốn xác định colorIndex hoặc RGB của một cell nào đó trong vùng đó. Cám ơn mọi người.

Có câu lệnh này: ActiveCell.DisplayFormat.Interior.Color
Thử xem!

 

[anhtuanle123]

theo kinh nghiệm record macro thì mình thấy có 2 loại màu , Theme Color và Standar Color
nếu là Standar Color thì trong Excel 2010 có khoảng 10 màu để chọn , 2003 có nhiều hơn : xem qua ActiveCell.Interior.Color
Theme Color mình thấy có trong 2010 có thể xem qua ActiveCell.Interior.ThemeColor
Theme Color cũng kèm 1 số hiệu ứng cho màu như độ sáng ActiveCell.Interior.TintAndShade ..v..v...