Giúp sửa lỗi khi Dùng VBA để tạo conditional format theo điều kiện chứa chuỗi

[Excel my love_1]

Em có đoạn code sau:

Sub Macro2()
    Range("T2:T15").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
     Formula1:="=" & ChrW(272) & "ã" & " " & "h" & ChrW(7911) & "y"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Mục đích của đoạn Macro này là muốn tạo conditional format đánh dấu các ô cho vùng "T2:T15" nếu trong ô chứa chuỗi "Đã hủy"
Tuy nhiên code báo lỗi đoạn

Formula1:="=" & ChrW(272) & "ã" & " " & "h" & ChrW(7911) & "y"

Nếu em bỏ dấu cách ở trong chuỗi, sửa thành

Formula1:="=" & ChrW(272) & "ã" & "h" & ChrW(7911) & "y"

Thì code sẽ chạy , tuy nhiên sẽ không ra kết quả mong muốn
Mong các anh chị giúp em sửa lại code để conditional format được theo chuỗi "Đã hủy"

 

[giaiphap]

Em có đoạn code sau:

Sub Macro2()
    Range("T2:T15").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
     Formula1:="=" & ChrW(272) & "ã" & " " & "h" & ChrW(7911) & "y"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Mục đích của đoạn Macro này là muốn tạo conditional format đánh dấu các ô cho vùng "T2:T15" nếu trong ô chứa chuỗi "Đã hủy"
Tuy nhiên code báo lỗi đoạn

Formula1:="=" & ChrW(272) & "ã" & " " & "h" & ChrW(7911) & "y"

Nếu em bỏ dấu cách ở trong chuỗi, sửa thành

Formula1:="=" & ChrW(272) & "ã" & "h" & ChrW(7911) & "y"

Thì code sẽ chạy , tuy nhiên sẽ không ra kết quả mong muốn
Mong các anh chị giúp em sửa lại code để conditional format được theo chuỗi "Đã hủy"

Chơi vầy đi.

Formula1:="=""" & ChrW(272) & "ã" & " " & "h" & ChrW(7911) & "y"""

 

[Excel my love_1]

Chơi vầy đi.

Formula1:="=""" & ChrW(272) & "ã" & " " & "h" & ChrW(7911) & "y"""

Tuyệt vời quá anh à! em cảm ơn anh rất rất rất nhiều ạ
Em tìm mãi mà không ra luôn. Không có anh giúp chắc em khóc quá trời luôn ạ
Nếu được nhờ anh chỉ cho em quy tắc chung khi có dấu cách trong formula của vba được không ạ

 

[HieuCD]

Tuyệt vời quá anh à! em cảm ơn anh rất rất rất nhiều ạ
Em tìm mãi mà không ra luôn. Không có anh giúp chắc em khóc quá trời luôn ạ
Nếu được nhờ anh chỉ cho em quy tắc chung khi có dấu cách trong formula của vba được không ạ

Không cần dấu "="
Formula1:=ChrW(272) & "ã h" & ChrW(7911) & "y"

 

[Excel my love_1]

Không cần dấu "="
Formula1:=ChrW(272) & "ã h" & ChrW(7911) & "y"

Cảm ơn anh nhiều

 

[giaiphap]

Nếu được nhờ anh chỉ cho em quy tắc chung khi có dấu cách trong formula của vba được không ạ

Cái này tôi chưa hiểu lắm, có thể giải thích rõ hơn được không?