Tự động bôi mầu phông chữ (1 người xem)

[ManhHungMHNH]

nhờ mọi người bôi mầu phông chữ tự động trong File giùm mình nhé/ xin cảm ơn nhiều

 

[vanle33]

nhờ mọi người bôi mầu phông chữ tự động trong File giùm mình nhé/ xin cảm ơn nhiều

Tức là số lượng các SỐ tài khoản trong cột A > 3 thì màu đỏ?

 

[ManhHungMHNH]

Vâng đúng rồi Tất cả số lượng các SỐ tài khoản trong cột A > 3 thì màu đỏ

 

[ChanhTQ@]

Mình thì còn tệ hơn: Chỉ biết cấp 1 người ta gọi là "Phổ thông cơ sở"

[thongbao]Tự động bôi mầu chữ nếu:
Nếu Tại cột A:
Tài khoản cấp 1 là chữ mầu xanh
Tài khoản cấp 2 là chữ mầu đỏ
[/thongbao]

Macro sự kiện sau có thể giúp bạn được chăng

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Columns("B:B")) Is Nothing Then
    With Target.Offset(, -1)
        If Len(.Value) < 4 Then
            .Resize(, 4).Font.ColorIndex = 5
        ElseIf Len(.Value) > 3 Then
            .Resize(, 4).Font.ColorIndex = 3
        End If
    End With
 End If
End Sub

 

[vanle33]

Vâng đúng rồi Tất cả số lượng các SỐ tài khoản trong cột A > 3 thì màu đỏ

Bạn dùng Conditional Formatting với 2 điều kiện như hình

Rồi áp dụng cho tất cả dữ liệu ở cột A

 

[be nam]

Vâng đúng rồi Tất cả số lượng các SỐ tài khoản trong cột A > 3 thì màu đỏ

- B1: Bạn chọn bảng tính và định dạng màu đỏ cho font chữ.
- B2: Chọn bảng tính (trừ dòng tiêu đề), chọn Home - Conditional Formatting - New Rule --> xuất hiện hộp thoại, chọn Use a formula to determine which cells to format và gõ vào công thức =LEN($A3)>3, nhấn format và định dạng màu xanh cho chữ.