Định dạng có điều kiện (Formatting) dữ liệu hàng theo ký tự trong ô

[motphatlt]

Kính thưa các quý thầy /cô, anh/chị
Em muốn định dạng hàng theo ký tự trong cột D:
Những ô nào trong cột D có ký tự mà mình muốn dòng tương ứng chứa ký tự đó được định dạng: dữ liệu trong dòng đó font chữ màu đỏ, in nghiêng.
Ví dụ: ô D5, D6, D10 chứa những ký tự mình cần định dạng: thì dòng tương ứng đó: dòng số 5, số 6, số 10 được định dạng: font chữ màu đỏ, in nghiêng.
Sheet (Trang_tính2) chứa các mã cần dịnh dạng.
Em xin trân trọng cảm ơn!

 

[giaiphap]

Kính thưa các quý thầy /cô, anh/chị
Em muốn định dạng hàng theo ký tự trong cột D:
Những ô nào trong cột D có ký tự mà mình muốn dòng tương ứng chứa ký tự đó được định dạng: dữ liệu trong dòng đó font chữ màu đỏ, in nghiêng.
Ví dụ: ô D5, D6, D10 chứa những ký tự mình cần định dạng: thì dòng tương ứng đó: dòng số 5, số 6, số 10 được định dạng: font chữ màu đỏ, in nghiêng.
Em xin trân trọng cảm ơn!




View attachment 243335

Ký tự mình cần định dạng là ký tự gì?

 

[motphatlt]

Ký tự mình cần định dạng là ký tự gì?

Là tất cả các ký tự của nội dung trong cột D mà mình muốn.
Trong ví dụ là nội dung trong ô D5, D6, D10 (có thể điền thêm một số ký tự trong ô nào đó và định dạng dòng chứa ô đó)
Em trân trọng cảm ơn!

 

[phulien1902]

Là tất cả các ký tự của nội dung trong cột D mà mình muốn.
Trong ví dụ là nội dung trong ô D5, D6, D10 (có thể điền thêm một số ký tự trong ô nào đó và định dạng dòng chứa ô đó)
Em trân trọng cảm ơn!

Nghĩa là Click chuột vào 1 Cell bất kỳ trong cột D, thì cả dòng đó có định dạng là chữ in nghiêng và màu đỏ?

 

[motphatlt]

Nghĩa là Click chuột vào 1 Cell bất kỳ trong cột D, thì cả dòng đó có định dạng là chữ in nghiêng và màu đỏ?

Nghĩa là ô trong cột D nào có nội dung mà muốn định dạng thì dữ liệu trong dòng tương ứng đó có font chữ màu đỏ, in nghiêng.

 

[phulien1902]

Nghĩa là ô trong cột D nào có nội dung mà muốn định dạng thì dữ liệu trong dòng tương ứng đó có font chữ màu đỏ, in nghiêng.

Bạn thử:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D5:d100")) Is Nothing Then
        Application.EnableEvents = False
        Cells(Target.Row, 4).Resize(, 4).Font.Italic = True
        Cells(Target.Row, 4).Resize(, 4).Font.Color = -16776961
        Application.EnableEvents = True
    End If
End Sub

 

[motphatlt]

Nghĩa là Click chuột vào 1 Cell bất kỳ trong cột D, thì cả dòng đó có định dạng là chữ in nghiêng và màu đỏ?

Em thêm một Sheet (trang_tính2) chứa những nội dung cần định dạng.

Bài đã được tự động gộp: 17/8/20

Bạn thử:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D5:d100")) Is Nothing Then
        Application.EnableEvents = False
        Cells(Target.Row, 4).Resize(, 4).Font.Italic = True
        Cells(Target.Row, 4).Resize(, 4).Font.Color = -16776961
        Application.EnableEvents = True
    End If
End Sub

Cảm ơn thầy! Ý em là ký tự mình muốn bất kỳ theo ý, chứ không phải là click vào ô nào là định dạng ô đó.
Em thêm một sheet chứa nội dung ô cần định dạng.
Rất mong được thầy xem lại và giúp!

 

[phulien1902]

Bạn thử với định dạng cho ABC, DE, DL:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range("D5:d100")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "ABC" Or Target = "DE" Or Target = "DL" Then
            Cells(Target.Row, 4).Resize(, 4).Font.Italic = True
            Cells(Target.Row, 4).Resize(, 4).Font.Color = -16776961
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[motphatlt]

Bạn thử với định dạng cho ABC, DE, DL:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range("D5:d100")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "ABC" Or Target = "DE" Or Target = "DL" Then
            Cells(Target.Row, 4).Resize(, 4).Font.Italic = True
            Cells(Target.Row, 4).Resize(, 4).Font.Color = -16776961
        End If
        Application.EnableEvents = True
    End If
End Sub

Em đã thêm một Sheet mới để chứa từ khóa đó?
Thầy có thể sửa lại giúp em được không ạ! và code có thể sửa như thế nào để cho vào mudule được ạ?

 

[bebo021999]

=COUNTIF(Trang_tính2!$E$10:$E$25,$D5)>0

 

[huuthang_bd]

Bạn xem file, trong file có hướng dẫn.

 

[motphatlt]

Bạn xem file, trong file có hướng dẫn.

Em thực hành trên file không được, mong thầy xem em có làm sai bước nào?
Cảm ơn thầy.

 

[tigertiger]

Em thực hành trên file không được, mong thầy xem em có làm sai bước nào?
Cảm ơn thầy.

Bạn nên tìm hiểu kỹ về Conditional Formatting là được, lần sau không vất vả nữa

 

[motphatlt]

Bạn nên tìm hiểu kỹ về Conditional Formatting là được, lần sau không vất vả nữa

Thầy xem cho em file em thực hành sai ở đâu mà không định dạng được ạ?
Hay do nguyên nhân gì ạ, file ở bài 12 ạ!

 

[tigertiger]

Thầy xem cho em file em thực hành sai ở đâu mà không định dạng được ạ?
Hay do nguyên nhân gì ạ, file ở bài 12 ạ!

Vì tôi không down File , mà hình ảnh thì bạn lại không có công thức thì làm sao mà luận ra được, bạn tự xem lại công thức COUNTIF có đúng chưa, có xét kỹ địa chỉ tương đối, tuyệt đối chưa (?)

 

[motphatlt]

Vì tôi không down File , mà hình ảnh thì bạn lại không có công thức thì làm sao mà luận ra được, bạn tự xem lại công thức COUNTIF có đúng chưa, có xét kỹ địa chỉ tương đối, tuyệt đối chưa (?)

Có cả hình ảnh và file tải theo bài 12 ạ!

 

[tigertiger]

Có cả hình ảnh và file tải theo bài 12 ạ!

Tôi không có điều kiện tải file lúc này, thông cảm

 

[motphatlt]

Tôi không có điều kiện tải file lúc này, thông cảm

Xin cảm ơn thầy!

 

[tigertiger]

Xin cảm ơn thầy!

Theo hình ảnh tạm trên, thì công thức Cond.Formatting đang đặt trong ngoặc kép (" ") , nên xóa bỏ ngoặc này đi xem sao

 

[motphatlt]

Theo hình ảnh tạm trên, thì công thức Cond.Formatting đang đặt trong ngoặc kép (" ") , nên xóa bỏ ngoặc này đi xem sao

Dạ để em xem lại