Chữ hoa đầu dòng làm thế nào

[salam]

Các bác cho em hỏi trong Excel có hàm nào thay đổi chữ đầu dòng thành chữ hoa không?
ngoài cách dùng các hàm để có chữ hoa đầu dòng VD: =REPLACE(LOWER(B2),1,1,PROPER(LEFT(B2,1))).

 

[DOSNET]

Dùng Autocorec la OK mà bác, chỉnh sửa trong Exceptions chút xíu là ok.

 

[salam]

Sao không được Bác Khang ơi. Bác chỉ chi tiết cho em được không. Dữ liệu của em nó đánh hoa, thường lung tung lắm.
VD: hôM Nay eM đi ChÙa HươnG em muốn nó = Hôm nay em đi chùa hương.

 

[DOSNET]

chà chà...em tưởng bác chỉ muốn viết Hoa đầu dòng thôi...như thế thì phải dùng công thức rồi.

 

[anhtuan1066]

Bạn đưa dử liệu lên xem thử, tôi nghĩ có thể dùng VBA cho nó lẹ

 

[salam]

File của em đây nhờ các bác nhé.

 

[anhtuan1066]

Bạn thử chạy SUB củ chuối này xem:

Sub Chuyen()
   Er = Range("A10000").End(xlUp).Row
   For i = 2 To Er
       Cells(i, 2).Value = UCase(Left(Cells(i, 1).Value, 1)) & LCase(Mid(Cells(i, 1).Value, 2, 100))
   Next i
End Sub

ANH TUẤN

 

[BNTT]

Sao không được Bác Khang ơi. Bác chỉ chi tiết cho em được không. Dữ liệu của em nó đánh hoa, thường lung tung lắm.
VD: hôM Nay eM đi ChÙa HươnG em muốn nó = Hôm nay em đi chùa hương.

A1=hôM Nay eM đi ChÙa HươnG

A2=UPPER(LEFT(A1))&LOWER(RIGHT(A1,LEN(A1)-1))

A2=Hôm nay em đi chùa hương

 

[anhtuan1066]

Nếu bạn muốn sữa trực tiếp vào cell luôn ko qua cột phụ nào cả thì sửa code:
Cells(i, 2).Value
thành
Cells(i, 1).Value
Tôi chỉ biết 2 món Ucase và LCase.. còn ko biết trong VBA có cái nào tương đương với Proper ko nữa... Tìm hoài ko thấy đành phải đi đường vòng, tách chuổi ra thành 2 phần: Phần đầu là ký tự đầu, phần 2 là phần còn lại của chuỗi... Biến ký tự đầu thành HOA, rồi kết hợp với phần 2 lại thành chuổi hoàn chỉnh
Mến
ANH TUẤN

 

[anhtuan1066]

Nhân đây tôi xin hỏi các cao thủ 1 chuyện:
Với cái code của bài #7, nếu tôi muốn chuyển nó thành file XLA rồi tạo menu Right click.. đễ mỗi khi tôi chọn cell hoặc khối cell, sau đó right click đễ chuyễn HOA sang thường thì phải làm thế nào?
Cũng có thể ko cần right click mà tạo 1 nút công cụ trên menu cũng dc... Đại khái tôi muốn nó có tác dụng trên toàn Excel và ko phải Enable macro ấy mà
Các bạn góp ý giùm với
ANH TUẤN

 

[Mr Okebab]

Nhân đây tôi xin hỏi các cao thủ 1 chuyện:
Với cái code của bài #7, nếu tôi muốn chuyển nó thành file XLA rồi tạo menu Right click.. đễ mỗi khi tôi chọn cell hoặc khối cell, sau đó right click đễ chuyễn HOA sang thường thì phải làm thế nào?
Cũng có thể ko cần right click mà tạo 1 nút công cụ trên menu cũng dc... Đại khái tôi muốn nó có tác dụng trên toàn Excel và ko phải Enable macro ấy mà
Các bạn góp ý giùm với
ANH TUẤN

Bác dùng sub này nhé (Lưu thành xla)

Sub ChuHoa()
    On Error GoTo thoat
    Dim Mang As Range, Ma As Range
    Set Mang = Selection
    For Each Ma In Mang
        Ma.Value = UCase(Left(Ma.Value, 1)) & LCase(Right(Ma.Value, Len(Ma.Value) - 1))
    Next
thoat:
    Set Mang = Nothing: Set Ma = Nothing
End Sub

Lưu ý : Chỉ có tác dụng với Font Unicode và VNI thôi.

Thân!

 

[anhtuan1066]

Dùng thế nào Bắp ơi... tôi tạo xong Add-ins nhưng ko nhìn thấy menu Right click hay nut nhấn trên trong menu gì cả

 

[anhtuan1066]

Anh chọn vùng (range) rồi nhấn ALT+F8 để chạy thủ tục !

TP.

Nhấn rồi ko có chuyện gì xảy ra cả.. cái này là đễ chạy macro mà Phong... Cái của tôi là Add-in cơ mà... hình như các bạn đang có sự nhầm lẩn thì phải... Ý tôi là tạo 1 add-in có tác dụng trên mọi file.. mỗi khi tôi chọn vùng dử liệu và right click sẽ thấy 1 menu di động chuyễn đỗi HOA và thường...
ANH TUẤN

 

[TranThanhPhong]

Nhấn rồi ko có chuyện gì xảy ra cả.. cái này là đễ chạy macro mà Phong... Cái của tôi là Add-in cơ mà... hình như các bạn đang có sự nhầm lẩn thì phải... Ý tôi là tạo 1 add-in có tác dụng trên mọi file.. mỗi khi tôi chọn vùng dử liệu và right click sẽ thấy 1 menu di động chuyễn đỗi HOA và thường...
ANH TUẤN

Anh download file này về Add-Ins xài nhe, hiện chỉ có chức năng làm HOA chữ cái đầu dòng theo code của Mr Okebab thôi, anh cần chức nằng nào nữa không. (quét chọn range và right click chọn lệnh).

Thanh Phong

 

[anhtuan1066]

OK... đúng rồi... Cảm ơn Phong nhé!
ANH TUẤN