Vấn đề Chuyển chữ HOA, chữ Thường (1 người xem)

[Hoàng Trọng Nghĩa]

Xin vui lòng cho hỏi:

+ Chuyển chữ HOA:
EXCEL: UPPER()
VBA: UCASE()

+ Chuyển chữ thường:
EXCEL: LOWER()
VBA: LCASE()

+ Chuyển chữ Hoa Đầu Chữ:
EXCEL: PROPER()
VBA: thì như thế nào ạ?

 

[cadafi]

+ Chuyển chữ Hoa Đầu Chữ:
EXCEL: PROPER()
VBA: thì như thế nào ạ?

Anh thử cái function này xem sao:
[highlight=VB]
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
[/highlight]

 

[Hoàng Trọng Nghĩa]

Cám ơn Cadafi nhé! Phải chi VBA nó làm thêm cái PCase luôn đi hen!