Chào mọi người, mình mới tham gia diễn đàn. Muốn nhờ mọi người giúp tạo hàm so sánh màu nền của 2 ô cụ thể
Somau(Vùng chọn, ô so sánh)
Nếu ô trong vùng chọn cùng màu với ô so sánh thì kết quả ra nội dung của ô hàng 2, cùng cột với ô đó.
Mình đã tạo hàm nhưng không ra kết quả mong muốn
Function Somau(Vung As Range, vt2 As Range) As String
Dim j As Long
Dim cellCurrent As Range
Application.Volatile
For Each cellCurrent In Vung
If cellCurrent.Interior.Color = vt2.Interior.Color Then
j = cellCurrent.Columns.Count
Else
j = 2
End If
Next cellCurrent
Somau = Cells(2, j)
End Function
Rất mong được mọi người giúp đỡ.
Somau(Vùng chọn, ô so sánh)
Nếu ô trong vùng chọn cùng màu với ô so sánh thì kết quả ra nội dung của ô hàng 2, cùng cột với ô đó.
Mình đã tạo hàm nhưng không ra kết quả mong muốn
Function Somau(Vung As Range, vt2 As Range) As String
Dim j As Long
Dim cellCurrent As Range
Application.Volatile
For Each cellCurrent In Vung
If cellCurrent.Interior.Color = vt2.Interior.Color Then
j = cellCurrent.Columns.Count
Else
j = 2
End If
Next cellCurrent
Somau = Cells(2, j)
End Function
Rất mong được mọi người giúp đỡ.
