Hàm chuyển chữ thường thành chữ hoa

[vanphongnty]

Kính gửi các bạn.
Với font TCVN3 tôi đã làm được chuyển từ chữ thường sang chữ hoa. Nay tôi gặp khó khăn đối với font UNICODE (Dùng cho tiếng Việt).
Mong được sự giúp đỡ của các bạn.
Xin cảm ơn

 

[phamquang1508]

Trong 3 hàm chuyển câu của Excel, khi sử dụng font UNICODE tiếng Việt chỉ có hàm LOWER (chữ thường) là đúng, còn hàm PROPER (chữ hoa đầu từ) và UPPER (chữ hoa) có một số nguyên âm sai.( ví dụ UPPER("Nguyễn Trãi") cho kết quả "NGUYễN TRảI", PROPER("ấn bản" cho kết quả "ấn Bản").

Để có thể chuyển sang chữ hoa đầu từ và chữ hoa, có thể sử dụng 2 hàm:
Hàm chuyển sang chữ hoa:
Code:

Function UpperUni(uni) As StringUpperUni = UCase(uni)End Function
Hàm chuyển sang chữ hoa đầu từ:
Code:

Function ProperUni(uni As String) As StringDim vt As LongIf Trim(uni) = "" Then ProperUni = uniElse uni = LCase(uni) Mid(uni, 1, 1) = UCase(Mid(uni, 1, 1)) Do vt = InStr(vt + 1, uni, " ") If vt = 0 Then Exit Do Mid(uni, vt + 1, 1) = UCase(Mid(uni, vt + 1, 1)) Loop ProperUni = uniEnd IfEnd Function
Trong tập tin UpperUni, các ô màu đỏ là các ô mà hàm UPPER và PROPER của Excel chuyển sai.