Hàm chuyển chữ "IN HOA" thành chữ "In Hoa" ký tự đầu?

[PiEiKiu]

Em đang có một vấn đề thế này, mong các anh chị giúp đỡ. Em có một file danh sách với tên hoàn toàn là chữ IN HOA, bây giờ em muốn chuyển thành chỉ có In Hoa ký tự đầu thôi. Mong các anh chị giúp em chút nha:
VD:
NGUYỄN VĂN AN => Nguyễn Văn An
NGUYỄN HOÀNG NAM => Nguyễn Hoàng Nam
Mong mọi người giúp em nhé. Em cảm ơn nhiều lắm.

 

[Hoàng Trọng Nghĩa]

=PROPER(TEXT) --> Chuyển thành chữ Hoa đầu chữ.
=LOWER(TEXT) --> Chuyển thành chữ thường
=UPPER(TEXT) --> Chuyển thành chữ HOA

 

[havietchuong]

Em đang có một vấn đề thế này, mong các anh chị giúp đỡ. Em có một file danh sách với tên hoàn toàn là chữ IN HOA, bây giờ em muốn chuyển thành chỉ có In Hoa ký tự đầu thôi. Mong các anh chị giúp em chút nha:
VD:
NGUYỄN VĂN AN => Nguyễn Văn An
NGUYỄN HOÀNG NAM => Nguyễn Hoàng Nam
Mong mọi người giúp em nhé. Em cảm ơn nhiều lắm.

Những hàm bạn minhthien321 giới thiệu bạn tiện dụng.
Để thay đổi 1 danh sách bạn nên chọn 1 cột phụ, sau đó copy rồi paste special, chọn values trở lại vị trí cũ.
Chúc bạn thành công.

 

[ndu96081631]

Những hàm bạn minhthien321 giới thiệu bạn tiện dụng.
Để thay đổi 1 danh sách bạn nên chọn 1 cột phụ, sau đó copy rồi paste special, chọn values trở lại vị trí cũ.
Chúc bạn thành công.

----------------

=PROPER(TEXT) --> Chuyển thành chữ Hoa đầu chữ.
=LOWER(TEXT) --> Chuyển thành chữ thường
=UPPER(TEXT) --> Chuyển thành chữ HOA

Không xài được đâu nha! Đây là tiếng Việt có dấu mà
NGUYỄN VĂN AN sau khi qua hàm PROPER nó thành vầy NguyỄn Văn An
Phải dùng VBA mới được các đồng chí à!

 

[Hoàng Trọng Nghĩa]

----------------

Không xài được đâu nha! Đây là tiếng Việt có dấu mà
NGUYỄN VĂN AN sau khi qua hàm PROPER nó thành vầy NguyỄn Văn An
Phải dùng VBA mới được các đồng chí à!

Dạ, vậy thì chọn Hàm tự tạo. Em nhớ có lần em cũng hỏi vấn đề này, và ai đó đã hướng dẫn cho em, em chỉ sửa cái WorksheetFunction.Trim (thay vì chỉ là Trim) vào cái hàm này thôi, sẳn Thầy hỏi em gửi Code lên luôn:

Function PCase(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
        PCase = Mid(Chuoi, 2)
    End If
End Function

 

[havietchuong]

----------------

Không xài được đâu nha! Đây là tiếng Việt có dấu mà
NGUYỄN VĂN AN sau khi qua hàm PROPER nó thành vầy NguyỄn Văn An
Phải dùng VBA mới được các đồng chí à!

Tiện đây, tôi xin giới thiệu 1 tiện ích EXCEL để các bạn xem thử có tiện dụng cho việc thay đổi kiểu chữ theo yêu cầu trên được không?

 

[haonlh]

Gửi minhthien321
Tôi đã thử và để chuyển thành chữ hoa (bảng mã Unicode)

Function uc(a As String)
uc = UCase(a)
End Function