[HỎI]Cách chuyển đổi tiếng Việt từ kiểu gõ Telex về ký gốc nhập từ bàn phím ?

Liên hệ QC
C

caothuv

Thành viên mới
Tham gia
11/2/19
Bài viết
3
Được thích
0
Chào các anh, chị
Em có 1 case như thế này nhờ mọi người giúp. Liệu có cách nào chuyển đổi văn bản kiểu : ád thành asd không ạ ?
Ví dụ khác : Cộng hòa xã hội ---> Coong Hoaf xax hoi
Hiểu đơn giản là lúc mình input bằng bàn phím như thế nào thì khi convert xong nó sẽ ra những ký tự y như thế ạ !
Em cảm ơn mn ạ.
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
caothuv đã viết:
Chào các anh, chị
Em có 1 case như thế này nhờ mọi người giúp. Liệu có cách nào chuyển đổi văn bản kiểu : ád thành asd không ạ ?
Ví dụ khác : Cộng hòa xã hội ---> Coong Hoaf xax hoi
Hiểu đơn giản là lúc mình input bằng bàn phím như thế nào thì khi convert xong nó sẽ ra những ký tự y như thế ạ !
Em cảm ơn mn ạ.
Nhấp chuột vào đây để mở rộng...
Có đó bạn, có thể biến tấu từ chính là các hàm viết Unicode trong VBA.
*** Nguồn của anh @ndu96081631 (cảm ơn @huuthang_bd nhắc nhở)

Bạn sử dụng công thức
A1 = "Em ơi Hà Nội phố"
=UniConvert(A1,"VNI") --> Em o7i Ha2 No65i pho61
=UniConvert(A1,"Telex") --> Em owi Haf Nooji phoos

Rich (BB code): 
Function UniConvert(Text As String, InputMethod As String) As String
  Dim VNI_Type, Telex_Type, CharCode, Temp, i As Long
  UniConvert = Text
  VNI_Type = Array("a81", "a82", "a83", "a84", "a85", "a61", "a62", "a63", "a64", "a65", "e61", _
      "e62", "e63", "e64", "e65", "o61", "o62", "o63", "o64", "o65", "o71", "o72", "o73", "o74", _
      "o75", "u71", "u72", "u73", "u74", "u75", "a1", "a2", "a3", "a4", "a5", "a8", "a6", "d9", _
      "e1", "e2", "e3", "e4", "e5", "e6", "i1", "i2", "i3", "i4", "i5", "o1", "o2", "o3", "o4", _
      "o5", "o6", "o7", "u1", "u2", "u3", "u4", "u5", "u7", "y1", "y2", "y3", "y4", "y5")
  Telex_Type = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", _
      "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", _
      "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", _
      "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", _
      "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
  CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
      ChrW(7849), ChrW(7851), ChrW(7853), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
      ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), ChrW(7899), ChrW(7901), ChrW(7903), _
      ChrW(7905), ChrW(7907), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), ChrW(7921), ChrW(225), _
      ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), ChrW(259), ChrW(226), ChrW(273), ChrW(233), ChrW(232), _
      ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), ChrW(7881), ChrW(297), ChrW(7883), _
      ChrW(243), ChrW(242), ChrW(7887), ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(250), ChrW(249), _
      ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
  Select Case InputMethod
    Case Is = "VNI": Temp = VNI_Type
    Case Is = "Telex": Temp = Telex_Type
  End Select
  For i = 0 To UBound(Temp)
    'UniConvert = Replace(UniConvert, Temp(i), CharCode(i))
    UniConvert = Replace(UniConvert, CharCode(i), Temp(i))
    'UniConvert = Replace(UniConvert, UCase(Temp(i)), UCase(CharCode(i)))
    UniConvert = Replace(UniConvert, UCase(CharCode(i)), UCase(Temp(i)))
  Next i
End Function
 

File đính kèm

  • UniConvert.xlsm
    18.2 KB · Đọc: 20
Lần chỉnh sửa cuối:
Upvote 0
Bác Thành nào? Blog nào? :rolleyes:
www.giaiphapexcel.com

Hỏi: Chuyển đổi chữ thành ký tự!

Lỗi do thiếu một vài ký tự như chữ "đ" và các dấu "."; "," ... Nếu cố định là font Time n roman thì sửa code được. Với fon khác chắc lập bảng nguồn khác thì hơi lâu Sửa lại đoạn code góp vui, kiểm tra trong file thấy ổn nhưng cũng không biết có đạt được hết yêu cầu khác hay không. Public Sub...
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
Em cảm ơn bác ạ, em vừa thử code của bác, tuy nhiên nó không giải quyết triệt để được vấn đề convert về basic input keyboard ạ.
Ví dụ : Nghĩa : Có 2 cách viết ở Telex : Nghiax và Nghixa đều viết được, nhưng khi convert thì chỉ convert được thành 1 loại duy nhất là : Nghixa chứ không convert được thành Nghiax , em mong được giúp đỡ ạ.
1640830413483.png
huhumalu đã viết:
Có đó bạn, có thể biến tấu từ chính là các hàm viết Unicode trong VBA.
Mình chỉnh sửa lại 1 chút copy từ blog của bác Thanh
Nguồn của anh @ndu96081631 (cảm ơn @huuthang_bd nhắc nhở)
Bạn sử dụng công thức
A1 = "Em ơi Hà Nội phố"
=UniConvert(A1,"VNI") --> Em o7i Ha2 No65i pho61
=UniConvert(A1,"Telex") --> Em owi Haf Nooji phoos

Rich (BB code): 
Function UniConvert(Text As String, InputMethod As String) As String
'https://blog.hocexcel.online/go-tieng-viet-trong-vba-su-dung-msgbox-co-ho-tro-unicode-trong-vba.html
  Dim VNI_Type, Telex_Type, CharCode, Temp, i As Long
  UniConvert = Text
  VNI_Type = Array("a81", "a82", "a83", "a84", "a85", "a61", "a62", "a63", "a64", "a65", "e61", _
      "e62", "e63", "e64", "e65", "o61", "o62", "o63", "o64", "o65", "o71", "o72", "o73", "o74", _
      "o75", "u71", "u72", "u73", "u74", "u75", "a1", "a2", "a3", "a4", "a5", "a8", "a6", "d9", _
      "e1", "e2", "e3", "e4", "e5", "e6", "i1", "i2", "i3", "i4", "i5", "o1", "o2", "o3", "o4", _
      "o5", "o6", "o7", "u1", "u2", "u3", "u4", "u5", "u7", "y1", "y2", "y3", "y4", "y5")
  Telex_Type = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", _
      "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", _
      "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", _
      "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", _
      "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
  CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
      ChrW(7849), ChrW(7851), ChrW(7853), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
      ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), ChrW(7899), ChrW(7901), ChrW(7903), _
      ChrW(7905), ChrW(7907), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), ChrW(7921), ChrW(225), _
      ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), ChrW(259), ChrW(226), ChrW(273), ChrW(233), ChrW(232), _
      ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), ChrW(7881), ChrW(297), ChrW(7883), _
      ChrW(243), ChrW(242), ChrW(7887), ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(250), ChrW(249), _
      ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
  Select Case InputMethod
    Case Is = "VNI": Temp = VNI_Type
    Case Is = "Telex": Temp = Telex_Type
  End Select
  For i = 0 To UBound(Temp)
    'UniConvert = Replace(UniConvert, Temp(i), CharCode(i))
    UniConvert = Replace(UniConvert, CharCode(i), Temp(i))
    'UniConvert = Replace(UniConvert, UCase(Temp(i)), UCase(CharCode(i)))
    UniConvert = Replace(UniConvert, UCase(CharCode(i)), UCase(Temp(i)))
  Next i
End Function
Nhấp chuột vào đây để mở rộng...
 

File đính kèm

  • 1640830381056.png
    1640830381056.png
    1.6 KB · Đọc: 7
Upvote 0
Thì thấy dấu hỏi ngã nặng sắc huyền (?~.'`) thì chuyển gõ dấu (rxjsf) về cuối cùng là được .
 
Upvote 0
caothuv đã viết:
Em cảm ơn bác ạ, em vừa thử code của bác, tuy nhiên nó không giải quyết triệt để được vấn đề convert về basic input keyboard ạ.
Ví dụ : Nghĩa : Có 2 cách viết ở Telex : Nghiax và Nghixa đều viết được, nhưng khi convert thì chỉ convert được thành 1 loại duy nhất là : Nghixa chứ không convert được thành Nghiax , em mong được giúp đỡ ạ.
View attachment 270939
Nhấp chuột vào đây để mở rộng...
Tôi tên Thắng và tôi gõ các cách sau đều được: Thawngs, Thanwgs, Thangws, Thasngw, Thansgw, Thangsw, Thawsng, Thaswng, Thawnsg, Thasnwg...
Vậy thì biết cái nào là gốc?
befaint đã viết:
Thì thấy dấu hỏi ngã nặng sắc huyền (?~.'`) thì chuyển gõ dấu (rxjsf) về cuối cùng là được .
Nhấp chuột vào đây để mở rộng...
Các ký tự này không phải lúc nào cũng là dấu. Làm cách này chắc phải đi đường vòng, chuyển sang kiểu VNI trước, dồn số về cuối rồi chuyển kiểu VNI sang kiểu Telex.
 
Upvote 0
Mình thua (ngoài khả năng).
Nhưng cũng nói để anh em nào biết vào chỉ thêm.
1. Theo như mình hiểu, font chữ được quy định thông qua bộ mã charcode, bộ gõ tiếng Việt (Telex hay Vni) cũng là 1 chuỗi các quy tắc.
Khi gõ "xuaw" hay "xuwa" đều thành "xưa" là vì bộ gõ (bộ chuyển đổi) cho phép cách nhập như vậy và chuyển đổi nó thành "x - ư - a"
đã chuyển xong thì kg thể biết xưa kia bạn gõ kiểu gì.
2. Nếu muốn thì ghi lại cái input từ bàn phím, bấm gì ra đó thì có vẽ khả dĩ hơn (Keylogger)
 
Upvote 0
huhumalu đã viết:
Có đó bạn, có thể biến tấu từ chính là các hàm viết Unicode trong VBA.
Mình chỉnh sửa lại 1 chút copy từ blog của bác Thanh
Nguồn của anh @ndu96081631 (cảm ơn @huuthang_bd nhắc nhở)

Bạn sử dụng công thức
A1 = "Em ơi Hà Nội phố"
=UniConvert(A1,"VNI") --> Em o7i Ha2 No65i pho61
=UniConvert(A1,"Telex") --> Em owi Haf Nooji phoos
Nhấp chuột vào đây để mở rộng...
Đã đính chính thì xóa luôn cái link trong code nha bạn.
 
Lần chỉnh sửa cuối:
Upvote 0
Em cảm ơn các anh, chị nhiều. Đúng là việc convert ngược lại lúc đầu bất khả thi thật. Nhờ mn giải thích mà em hiểu rõ vấn đề rồi ạ. :)
 
Upvote 0
huuthang_bd đã viết:
Đã đính chính thì xóa luôn cái link trong code nha bạn.
Nhấp chuột vào đây để mở rộng...
à, mình biết rõ nguồn thì ghi thêm, còn cái code trước khi mình edit thì đúng là copy từ blog người ta mà, có phải lấy bài của anh ndu đâu.
Chuyện blog họ xào thành của họ và kg ghi nguồn cũng đâu có phải lỗi mình :D
 
Upvote 0
huuthang_bd đã viết:
Các ký tự này không phải lúc nào cũng là dấu.
Nhấp chuột vào đây để mở rộng...
Chưa hiểu ý anh.

Mã: 
'Ví dụ:
'Có từ kết quả "nghiax", strKQ
'Chữ hoa thường tính sau
Telex_Type = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", _
      "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", _
      "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", _
      "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", _
      "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
For each item in  Telex_Type
If instr(1, strKQ, item) > 0 Then
strDau = vba.right(item,1)
strKytu = vba.left(item, vba.len(item)-1)
strKQ = vba.replace(strKQ, item, strKytu) & strDau
Exit for
End if
Next item
 
Upvote 0
befaint đã viết:
Chưa hiểu ý anh.

Mã: 
'Ví dụ:
'Có từ kết quả "nghiax", strKQ
'Chữ hoa thường tính sau
Telex_Type = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", _
      "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", _
      "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", _
      "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", _
      "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
For each item in  Telex_Type
If instr(1, strKQ, item) > 0 Then
strDau = vba.right(item,1)
strKytu = vba.left(item, vba.len(item)-1)
strKQ = vba.replace(strKQ, item, strKytu) & strDau
Exit for
End if
Next item
Nhấp chuột vào đây để mở rộng...
À nếu duyệt các trường hợp như vậy thì không vấn đề gì, tôi tưởng ý bạn là chuyển các ký tự gõ dấu (rxjsf) về cuối từ nên nghĩ là sẽ nhầm với các ký tự không phải dùng để gõ dấu (Ví dụ: sông).
 
Upvote 0
caothuv đã viết:
Chào các anh, chị
Em có 1 case như thế này nhờ mọi người giúp. Liệu có cách nào chuyển đổi văn bản kiểu : ád thành asd không ạ ?
Ví dụ khác : Cộng hòa xã hội ---> Coong Hoaf xax hoi
Nhấp chuột vào đây để mở rộng...
Tôi không hiểu. Bạn có "Cộng hòa xã hội", bạn muốn từ đó có "Coong Hoaf xax hoi". Bạn muốn có "Coong Hoaf xax hoi" để làm gì vậy?
 
Upvote 0
Lúc gõ mình đừng bật bộ gõ tiếng Việt, gõ xong là mình có kết quả luôn.
 
Upvote 0
batman1 đã viết:
Tôi không hiểu. Bạn có "Cộng hòa xã hội", bạn muốn từ đó có "Coong Hoaf xax hoi". Bạn muốn có "Coong Hoaf xax hoi" để làm gì vậy?
Nhấp chuột vào đây để mở rộng...
Có thể ứng dụng để sửa lỗi bỏ dấu sai:
hoà -> hoaf -> hòa
thuỷ -> thuyr -> thủy
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

L
Nhờ giúp công thức nhiều điều kiện ngày không liên tục
Trả lời
0
Đọc
24
le_vis
L
N
Tính tổng giá trị hàng hóa của nhiều mặt hàng ( mỗi mặt hàng có 2 đến 3 giá )
2
Trả lời
34
Đọc
333
tranhungdao12a3
T
Hai Lúa Miền Tây
Nhập liệu, truy vấn dữ liệu qua Internet = VB.Net
    • Thích
2
Trả lời
32
Đọc
10K
nguyendang95
N
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
9 10 11
Trả lời
211
Đọc
11K
dinhduy
D
dunghtgiga
Tính bốn tuần cho một tháng
Trả lời
2
Đọc
62
cantl
C
tamvie
Hướng dẫn dùng công cụ Goal Seek kết hợp với Macro để tính ra mức lương Gross
    • Thích
Trả lời
4
Đọc
2K
Hoàng Tuấn 868
H
keandanh141
Hướng dẫn hàm số tạo số ngẫu nhiên sao cho tổng bằng đúng 1 số
Trả lời
3
Đọc
66
SA_DQ
SA_DQ
T
File Excel bị đơ khi sửa số liệu
Trả lời
15
Đọc
130
Tìnhh Ry
T
dllt2805
MẪU QUẢN LÝ CÔNG VIỆC ĐỘI NHÓM BẰNG EXCEL
Trả lời
10
Đọc
995
dungluyen2119
dungluyen2119
B
Suy nghĩ của tui
    • Thích
2 3
Trả lời
58
Đọc
6K
SA_DQ
SA_DQ
thuyyeu99
  • Question
Kiểm tra file có tồn tại không
2
Trả lời
22
Đọc
13K
khonggianviet
K
Vũ trần bảo ngọc
Lỗi kết hợp hàm if và left
Trả lời
19
Đọc
257
HieuCD
H
T
Lỗi import dữ liệu
Trả lời
2
Đọc
155
hvnhpro
H
Quyen182
  • Question
Xin giúp code VBA để chèn ảnh có sẵn trong Excel vào phần comment
Trả lời
4
Đọc
260
Hoàng Tuấn 868
H
B
  • Question
Xin hướng dẫn tách 1 vùng dữ liệu sang thành nhiều sheet
Trả lời
4
Đọc
226
Bony_handsome
B
OverAC
Gặp gỡ giao lưu tại Hà Nội, chiều ngày 10/11/2024. cùng Ptm0412, OverAC và các anh chị thân thiết.
    • Thích
    • Yêu thích
Trả lời
9
Đọc
389
PhanTuHuong
PhanTuHuong
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
840
ptm0412
ptm0412
Tuấn Bụng Bự
DataBase (CSDL) nào cho lập trình VBA trong Excel ?
Trả lời
18
Đọc
499
A HOANG 620
A
phuongnam366377
Excel RTD Add-In - Truy xuất dữ liệu File Excel, Access và SQLite
    • Thích
Trả lời
1
Đọc
324
phuongnam366377
phuongnam366377
T
Lấy dữ liệu từ sheet khác kèm điều kiện
Trả lời
3
Đọc
170
thuong-minh
T
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom