Help me - giúp xử lý lỗi hàm if có chuỗi Tiếng Việt trong VBA

[Sonychuong]

Em có 1 hàm if sử dụng dữ liệu chuỗi Tiếng Việt gán vào VBA trả kết quả không đúng ý muốn, em lay hay hoài về "code Unicode Tiếng Việt trong VBA" mà không được nhờ các anh chị cao nhân giúp đỡ với .

Code VBA gán hàm công thức như sau :

Sub Formula()

Sheet1.Range("B7").Formula = "=IF(LEN(E7)>16,IF(OR(RIGHT(G7,3)=""UHÐ"",RIGHT(G7,3)=""UPL""),IF(AND(OR(RIGHT(G7,3)=""UHÐ"",RIGHT(G7,3)=""UPL""),I7>0),J7,""""),J7),"""")"
Sheet1.Range("B7:B15").FillDown


End Sub

P/s : Chuỗi ký tự "UHÐ" (Tiếng Việt có dấu) trong VBA không hiểu
(File đính kèm)
Rất mong anh chị và mọi người cũng hỗ trợ.
Trân trọng cám ơn

 

[befaint]

Bỏ qua 1 2 3

 

[ndu96081631]

Em có 1 hàm if sử dụng dữ liệu chuỗi Tiếng Việt gán vào VBA trả kết quả không đúng ý muốn, em lay hay hoài về "code Unicode Tiếng Việt trong VBA" mà không được nhờ các anh chị cao nhân giúp đỡ với .

Code VBA gán hàm công thức như sau :

Sub Formula()

Sheet1.Range("B7").Formula = "=IF(LEN(E7)>16,IF(OR(RIGHT(G7,3)=""UHÐ"",RIGHT(G7,3)=""UPL""),IF(AND(OR(RIGHT(G7,3)=""UHÐ"",RIGHT(G7,3)=""UPL""),I7>0),J7,""""),J7),"""")"
Sheet1.Range("B7:B15").FillDown


End Sub

P/s : Chuỗi ký tự "UHÐ" (Tiếng Việt có dấu) trong VBA không hiểu
(File đính kèm)
Rất mong anh chị và mọi người cũng hỗ trợ.
Trân trọng cám ơn

Sửa thành vầy:

Sub Formula()
  Dim uhd As String
  uhd = """UH" & ChrW(272) & """"
  Sheet1.Range("B7").Formula = "=IF(LEN(E7)>16,IF(OR(RIGHT(G7,3)=" & uhd & ",RIGHT(G7,3)=""UPL""),IF(AND(OR(RIGHT(G7,3)=" & uhd & ",RIGHT(G7,3)=""UPL""),I7>0),J7,""""),J7),"""")"
  Sheet1.Range("B7:B15").FillDown
End Sub

Chỗ nào có UHĐ thì thay bằng biến uhd

 

[Sonychuong]

Sửa thành vầy:

Sub Formula()
  Dim uhd As String
  uhd = """UH" & ChrW(272) & """"
  Sheet1.Range("B7").Formula = "=IF(LEN(E7)>16,IF(OR(RIGHT(G7,3)=" & uhd & ",RIGHT(G7,3)=""UPL""),IF(AND(OR(RIGHT(G7,3)=" & uhd & ",RIGHT(G7,3)=""UPL""),I7>0),J7,""""),J7),"""")"
  Sheet1.Range("B7:B15").FillDown
End Sub

Chỗ nào có UHĐ thì thay bằng biến uhd

Thanks Bác @ndu96081631
hàm đã chạy được rồi, rất đa tạ Bác .