macro viết Hoa Đầu Từ

[macduy]

tôi muốn tạo 1 macro dùng để viết hoa đầu từ cho 1 vùng ô được chon.

 

[Hai Lúa Miền Tây]

tôi muốn tạo 1 macro dùng để viết hoa đầu từ cho 1 vùng ô được chon.

Sao bạn không dùng hàm PROPER ?

 

[sealand]

Đây là hàm áp dụng cho Font Unicode các Font khác bạn gia giảm nha
Bạn tham khảo bài của thày Phạm Duy Long rất cụ thể.

Sao bạn không dùng hàm PROPER ?

Proper chỉ áp dụng với tiếng Việt không dấu thôi.

 

[ndu96081631]

Đây là hàm áp dụng cho Font Unicode các Font khác bạn gia giảm nha
Bạn tham khảo bài của thày Phạm Duy Long rất cụ thể.



Proper chỉ áp dụng với tiếng Việt không dấu thôi.

Em thấy hàm ProperCase cho Unicode đâu cần dài thế nhỉ? Em làm vầy:

Function PCaseUni(Text As String) As String
  Dim Tmp, Arr, i As Long
  On Error Resume Next
  Tmp = Split(Text, " ")
  ReDim Arr(0 To UBound(Tmp))
  For i = 0 To UBound(Tmp)
    Arr(i) = UCase(Left(Tmp(i), 1)) & LCase(Right(Tmp(i), Len(Tmp(i)) - 1))
  Next i
  PCaseUni = Join(Arr, " ")
End Function

 

[sealand]

Mình muốn đưa nguyên bộ của thày Long để sau bạn ấy chỉ cần thay chuỗi so sánh là có thể áp dụng cho các Font khác.