Code Hàm viết hoa ký tự đầu tiên

[Yeuvoyeucon]

Kính gửi Anh chị và các bạn,
Dòng code thứ 2 em sửa sao để nó chạy được ạ (Em muốn chỉ viết hoa chữ cái đầu tiên ạ).
Dim rs
rs = Application.VLookup(Sheet2.Range("C6"), Sheet1.Range("C190000"), 2, False)
Sheet2.Range("C7").Value = CONCATENATE(UPPER(Left(rs, 1)))

 

[befaint]

mid(rs,1,1) = vba.ucase$(left(rs,1))

 

[Phuocam]

Sheet2.Range("C7").Value = UCase(Left("rs", 1)) & Mid(rs, 2)

.

 

[Yeuvoyeucon]

Sheet2.Range("C7").Value = UCase(Left("rs", 1)) & Mid(rs, 2)

.

Các anh ơi, em đã thử cả 2 mà nó vẫn là chữ viết hoa ạ.

 

[Phuocam]

Các anh ơi, em đã thử cả 2 mà nó vẫn là chữ viết hoa ạ.

Có lẽ là như vậy:

Sheet2.Range("C7").Value = UCase(Left("rs", 1)) & LCase(Mid(rs, 2))

.

 

[befaint]

nó vẫn là chữ viết hoa

Thì kệ nhà nó thôi.

 

[Yeuvoyeucon]

Có lẽ là như vậy:

Sheet2.Range("C7").Value = UCase(Left("rs", 1)) & LCase(Mid(rs, 2))

.

Đúng rồi anh ạ. Em cảm ơn ạ !