Lấy ô tô màu làm điều kiện thành kí tự

[vnxgiokinhtoi]

Không biết cao nhân nào có thể chỉ được không ạ
Lấy ô tô màu làm điều kiện khi ban hành công thứ ra ô khác thành kí tự dấu cộng

 

[htin1997]

Không biết cao nhân nào có thể chỉ được không ạ
Lấy ô tô màu làm điều kiện khi ban hành công thứ ra ô khác thành kí tự dấu cộng

Không phải cao nhân.
Trước đây GPE có cái UDF này, nay chia sẽ lại cho bác, hàm này đếm màu theo điều kiện:
- range_data: Vùng cần đếm.
- criteria: Điều kiện (màu).
→ Lồng IF vào là được nha.

Function T_CountByColor(range_data As Range, criteria As Range) As Long
'Ham dem o cùng màu
Application.Volatile
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        T_CountByColor = T_CountByColor + 1
    End If
Next datax
End Function

Cách thủ công đơn giản nhất là sort theo màu rồi đánh "+"

 

[vnxgiokinhtoi]

Không phải cao nhân.
Trước đây GPE có cái UDF này, nay chia sẽ lại cho bác, hàm này đếm màu theo điều kiện:
- range_data: Vùng cần đếm.
- criteria: Điều kiện (màu).
→ Lồng IF vào là được nha.

Function T_CountByColor(range_data As Range, criteria As Range) As Long
'Ham dem o cùng màu
Application.Volatile
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        T_CountByColor = T_CountByColor + 1
    End If
Next datax
End Function

Cách thủ công đơn giản nhất là sort theo màu rồi đánh "+"

cảm ơn bác nhiều lắm