Hàm chuyển chữ viết thành cách gõ !

[alozng]

bác nào rảnh viết giùm cái hàm, chuyển chữ viết thành cách gõ
VD:
A1 = "cộng hòa"
khi sử dụng hàm
kết quả = "coojng hofa"
mình đang cái này, mong các bák giúp giùm
p/s: nếu ko có time vui lòng hướng dẫn mình cách viết (rõ ràng một tí, mình gà mờ, cho một đoạn code nhỏ mô phỏng càng tốt)

 

[solomon2211]

Cách của bạn là kiểu telex. Vậy bạn cần kiểu telex thôi hay kiểu VNI nữa?

 

[ndu96081631]

bác nào rảnh viết giùm cái hàm, chuyển chữ viết thành cách gõ
VD:
A1 = "cộng hòa"
khi sử dụng hàm
kết quả = "coojng hofa"
mình đang cái này, mong các bák giúp giùm
p/s: nếu ko có time vui lòng hướng dẫn mình cách viết (rõ ràng một tí, mình gà mờ, cho một đoạn code nhỏ mô phỏng càng tốt)

Thí nghiệm thử

Function TelexTyping(Text As String)
  Dim Alp, Covt, i As Long, Temp As String
  Temp = Text
  Alp = Array("à", "á", "â", "ã", "è", "é", "ê", "ì", "í", "ò", "ó", "ô", "õ", "ù", "ú", "ý", ChrW(259), ChrW(273), ChrW(297), ChrW(361), ChrW(417), ChrW(432), ChrW(7841), ChrW(7843), ChrW(7845), ChrW(7847), ChrW(7849), ChrW(7851), ChrW(7853), ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7865), ChrW(7867), ChrW(7869), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), ChrW(7881), ChrW(7883), ChrW(7885), ChrW(7887), ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), ChrW(7899), ChrW(7901), ChrW(7903), ChrW(7905), ChrW(7907), ChrW(7909), ChrW(7911), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), ChrW(7921), ChrW(7923), ChrW(7925), ChrW(7927), ChrW(7929))
  Covt = Array("af", "as", "aa", "ã", "ef", "as", "ee", "if", "is", "of", "os", "oo", "ox", "uf", "us", "ys", "aw", "dd", "ix", "ux", "ow", "uw", "aj", "ar", "aas", "aaf", "aar", "aax", "aaj", "aws", "awf", "awr", "awx", "zwj", "ej", "er", "ex", "ees", "eef", "eer", "eex", "eej", "ir", "ij", "oj", "or", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "oor", "oox", "ooj", "uj", "ur", "uws", "uwf", "uwr", "uwx", "uwj", "yf", "yj", "yr", "yx")
  For i = 0 To UBound(Alp)
    Temp = Replace(Temp, LCase(Alp(i)), Covt(i))
    Temp = Replace(Temp, UCase(Alp(i)), UCase(Left(Covt(i), 1)) & Mid(Covt(i), 2, Len(Covt(i))))
  Next i
  TelexTyping = Temp
End Function

Bạn test lại nhé
Nếu là kiểu gõ VNI thì cũng tương tự, sửa code lại 1 tí có thể ra được 1 hàm kết hợp cả 2 kiểu gõ

 

[alozng]

hình như có một lỗi, trong code của bạn từ "ã" sẽ ko chuyển đc ! do bên mảng kia bạn ko có kí tự thay thế cái này rất tốt ! mình edit lại rùi D:
rất hay, cảm ơn bạn.
p/S: thực ra đây là bàn phím autocorect của iphone. tham khảo bên http://pdaviet.net/showthread.php?p=938519#post938519
mô tả một tí bàn phím: có một chương trình sẽ dò kí tự
VD: bạn gõ "chuyeern" chương trình sẽ tự chuyển thành chữ "chuyển"
mình cần cả kiểu vni lun, nhưng từ telex mình sẽ tìm hiểu để chuyển wa vni

 

[alozng]

có nhiều lỗi với các kí tự quá, tạo ra kết quả ngồi test lại thì có nhiều chỗ bị lỗi do quá trình chuyển, nhưng đã fix đc rồi !

 

[haonlh]

Lập Macro là được rồi, nhưng vấn đề là bạn đã viết chữ "cộng hòa" trong "bảng mã" nào?
Nếu là Unicode, thường là bị lỗi với Excel 2003, có lẽ nó không nhận ra mã (khi bạn viết trong macro), ma buộc phải chọn bảng mã "cổ điển". Và khi viết mã, bạn cũng phải dùng bảng mã tương ứng.
Hàm này khi dùng, đối số (text việt) cũng phải viết trên bảng mã đó.