Nếu nhập đúng điều kiện thì tô màu

[LienDong]

Tôi đang tìm hiểu Worksheet_SelectionChange
Tôi muốn Khi nhập "Nam" ở cột f thì cột J tô màu đỏ, còn nhập "Nữ" thì cột L tô màu xanh
Nhờ các bạn viết hộ code trên, cảm ơn các bạn nhiều!

 

[dhn46]

Bạn dùng như thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 8 Then
    If Target = "Nam" Then
        Target.Offset(, 4).Interior.Color = vbRed
    ElseIf Target = "N" & ChrW(7919) Then
        Target.Offset(, 6).Interior.Color = vbGreen
    End If
End If
End Sub

 

[Ba Rọi 33]

Em góp vui 1 tí

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
Set rng = Intersect(Target, Range("F9:F500000"))
If Not rng Is Nothing Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Target.Resize(, 7).Interior.Pattern = xlNone
    Select Case UCase(Target.Value)
        Case "NAM"
            Target.Offset(, 4).Interior.Color = 255
        Case "N" & ChrW$(7918)
            Target.Offset(, 6).Interior.Color = 5287936
        Case Else
            Target.Offset(, 4).Interior.Color = 65535
            Target.Offset(, 6).Interior.Color = 65535
    End Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If
End Sub

 

[ExcelQN]

Tôi đang tìm hiểu Worksheet_SelectionChange
Tôi muốn Khi nhập "Nam" ở cột f thì cột J tô màu đỏ, còn nhập "Nữ" thì cột L tô màu xanh
Nhờ các bạn viết hộ code trên, cảm ơn các bạn nhiều!

Bạn có thể sử dụng Conditional formatting cũng được.

 

[LienDong]

Cảm ơn các bạn nhiều!

Bạn có thể sử dụng Conditional formatting cũng được.

Tôi đang tập code đó bạn!

 

[LienDong]

Bạn dùng như thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 8 Then
    If Target = "Nam" Then
        Target.Offset(, 4).Interior.Color = vbRed
    ElseIf Target = "N" & ChrW(7919) Then
        Target.Offset(, 6).Interior.Color = vbGreen
    End If
End If
End Sub

Các bạn cho hỏi, nếu mình xóa số liệu ở cột F (xóa chữ Nam, Nữ) thì báo lỗi "Run - time error 13"
Cho hỏi cách khắc phục, xin cảm ơn

 

[dhn46]

Các bạn cho hỏi, nếu mình xóa số liệu ở cột F (xóa chữ Nam, Nữ) thì báo lỗi "Run - time error 13"
Cho hỏi cách khắc phục, xin cảm ơn

Bạn thêm On error resume next vào code

Thêm như thế nào cho phù hợp thì bạn đọc code trên diễn đàn để tự tùy biến.

 

[LienDong]

Bạn thêm On error resume next vào code

Thêm như thế nào cho phù hợp thì bạn đọc code trên diễn đàn để tự tùy biến.

Đã thêm On error resume next vào code
Tôi đã thử thêm vào ở các vị trí khác nhau, nhưng khi chọn từ F9:F11 xóa thì J9:J11 lại tự động tô đỏ
Các bạn hướng dẫn thêm được không? Ví dụ tôi chọn từ F9:F100 và bấm Delete