Em có một vấn đề và cụ thể em đã trình bày rõ trong file kèm.
Option Explicit
Sub CFColor()
Dim Cls As Range
For Each Cls In Range("E8:H16")
With Cls.Offset(9, 7).Interior
If Cls.Value <> "" Then
.ColorIndex = Cells(1, Cls.Column).Interior.ColorIndex
Else
.ColorIndex = 2
End If
End With
Next Cls
End Sub
[/I][/B]
PHP:Option Explicit Sub CFColor() Dim Cls As Range For Each Cls In Range("E8:H16") With Cls.Offset(9, 7).Interior If Cls.Value <> "" Then .ColorIndex = Cells(1, Cls.Column).Interior.ColorIndex Else .ColorIndex = 2 End If End With Next Cls End Sub
Xin chào Thầy Cô và Anh Chị!
Em có một vấn đề và cụ thể em đã trình bày rõ trong file kèm.
Thầy Cô và Anh chị xem có cách nào không giúp em với ạ.
Em xin cảm ơn!
Hì.Em xin cảm ơn các Thầy(Cô) và anh chị đã giúp đỡ ạ.
Thật ra là em hỏi như vậy cũng chỉ là muốn học hỏi cách lấy màu từ trong CF ra ngoài bằng code thôi ạ.
Chứ em cũng chưa có mục đích cụ thể nào ạ.
Rất cảm GPE đã nhiệt tình giúp đỡ em!