Cần giúp: Gõ chữ e, chữ o có dấu á như chữ ă

[Maika8008]

Viết 15 phút mà trong đó nghĩ tên để đặt cho hàm hết 13 phút.

Function UnknownCode(ByVal sText As String) As String
sText = Replace(sText, "1", ChrW(769))
sText = Replace(sText, "2", ChrW(768))
sText = Replace(sText, "3", ChrW(777))
sText = Replace(sText, "4", ChrW(771))
sText = Replace(sText, "5", ChrW(803))
sText = Replace(sText, "6", ChrW(770))
sText = Replace(sText, "7", ChrW(795))
sText = Replace(sText, "8", ChrW(774))
UnknownCode = sText
End Function

View attachment 274337

Nghĩ ra cách hay ghê thiệt. Chừ thớt chỉ cần lồng vào sự kiện Worksheet_Change là gõ ngon lành