Đổi font chữ từ chữ thường sang chữ hoa

[minhchauc92]

Các bạn chỉ giùm mình công thức đổi được từ chũ thường sang chữ hoa nhé. Hiện tại mỗi lần chuyển chử mình toàn phải làm thủ công là đánh lại chữ đó. Cảm ơn nhiều.

 

[BNTT]

Bạn xem bài này nè: Phiên bản mới - Đổi chữ hoa chữ thường (giống trong Word ấn Shift+F3)
Tác giả: Ca_Dafi.

 

[Leo_178]

Bạn dùng hàm upper(text) là được, nếu muốn chuyển ngược lại (chữ hoa thành chữ thường) thì dùng hàm lower(text).

 

[BNTT]

Bạn dùng hàm upper(text) là được, nếu muốn chuyển ngược lại (chữ hoa thành chữ thường) thì dùng hàm lower(text).

Bạn nhập chữ này: "nguyễn" bằng font Unicode (Arial, Timew Roman, Tahoma...), xong dùng hàm UPPER đổi thử, nó ra cái gì ?
Hoặc bạn gõ chữ NGUYỄN, rồi dùng LOWER, xem nó ra cái gì?

 

[boyxin]

Các bạn chỉ giùm mình công thức đổi được từ chũ thường sang chữ hoa nhé. Hiện tại mỗi lần chuyển chử mình toàn phải làm thủ công là đánh lại chữ đó. Cảm ơn nhiều.

Có phải bạn muốn thế này không?
http://www.giaiphapexcel.com/forum/showpost.php?p=65855&postcount=2
​

Download Add-Ins:

Convert TextUni.rar (10.1 KB)

 

[minhchauc92]

Công thức chuyển từ chữ hoa sang chữ thường

Cảm ơn các bạn nhiều lắm, mình đã làm thành công rồi.

 

[cadafi]

Cảm ơn các bạn nhiều lắm, mình đã làm thành công rồi.

Để cảm ơn, bạn chỉ cần nhấn nút "Cảm ơn" là được rồi!

 

[sealand]

Ca_dafi cho cú pháp của hàm chuyển Font chữ với. Module bị protect nên không thể tahm khảo được.

 

[cadafi]

Ca_dafi cho cú pháp của hàm chuyển Font chữ với. Module bị protect nên không thể tahm khảo được.

Cú pháp là:
LowerUni(Text): Chuyển thành chữ thường;
UpperUni(Text): Chuyển thành chữ hoa;
PropperUni(Text): Chuyển Thành Viết Hoa Đầu Mỗi Từ

Bác xem đoạn code sau nhé!

Function LowerUni(Chuoi As String) As String
LowerUni = Application.WorksheetFunction.Trim(LCase(Chuoi))
End Function
''//====================================================
Function ProperUni(Chuoi As String) As String
Chuoi = " " & Application.WorksheetFunction.Trim(LCase(Chuoi))
stt = Len(Chuoi)
If stt > 1 Then
  Do
    stt = InStrRev(Chuoi, " ", stt)
    Mid(Chuoi, stt + 1, 1) = UCase(Mid(Chuoi, stt + 1, 1))
    stt = stt - 1
  Loop While stt > 0
  ProperUni = Mid(Chuoi, 2)
End If
End Function
''//====================================================
Function UpperUni(Chuoi As String) As String
UpperUni = Application.WorksheetFunction.Trim(UCase(Chuoi))
End Function

Sau Bác không tải cái Add-Ins chuyển đổi chữ Hoa-Thường (giống trong Word ấn Shift+F3) về xài thử! Cái này chỉ cần dùng phím tắt để chuyển đổi cho nhanh, khỏi phải xài công thức rồi copy, dán cứng, rồi lại copy.