Chuyển chữ HOA thành chữ thường không dùng công thức (Giống Shift+F3 trong Word)

[cadafi]

Dựa trên các hàm chuyển số thành chữ và chuyển chữ HOA thành chữ thường và ngược lại trên GPE. Em gửi thêm tiện ích giống như vậy nhưng không dùng công thức (sử dụng Macro) để làm cho nhanh. Cú pháp như sau (giống trong Word ấn Shift+F3):

Chiếu sáng vùng cần chuyển:
Ctrl+Shift+H: CHUYỂN TẤT CẢ THÀNH CHỮ HOA
Ctrl+Shift+T: chuyển tất cả thành chữ thường
Ctrl+Shift+K: Chuyển Tất Cả Thành Chữ Hoa Đầu Mỗi Từ.

Các anh Chị xem add-In đính kèm.
Nếu đề tài này đã có trên GPE mình rồi thì coi như em khơi lại nhé.
Chúc các anh chị và các bạn luôn thành công và hạnh phúc.

 

[ongtrungducmx25]

khi chọn phím nóng Ctrl+Shift+T

Sub ChuThuong()
For Each Cells In Selection
Clls.Value = LowerUni(Clls.Text)
Next Clls
End Sub

nó sẽ ra lỗi bạn ơi,tôi thấy code trong đó lun tun quá côi không biết đâu mà rờ! nếu có gì không phải mong bạn bỏ qua nhé!

 

[vumian]

HI Bác,

có sơ xuất nhỏ,

Sub ChuThuong()
For Each Cells In Selection
Clls.Value = LowerUni(Clls.Text)
Next Clls
End Sub

Dổi Cells thành Clls nhe
Rgds,

 

[cadafi]

HI Bác,

có sơ xuất nhỏ,

Sub ChuThuong()
For Each Cells In Selection
Clls.Value = LowerUni(Clls.Text)
Next Clls
End Sub

Dổi Cells thành Clls nhe
Rgds,

Ý, em nhớ sửa hết rồi mà. Xin lỗi mọi người nhé. Em up lên file mới ở bài một. Mọi người tải lại nhé. Thiệt là sơ xuất quá đi. Tạ lỗi.

 

[DOSNET]

Mình không thường xuyên dùng đến nhưng lưu kho, sẽ có lúc cần đến. Nhiều khi sửa đổi chữ hoa và chữ thường với khối lượng lớn mà được dùng short key như vậy rất tiện lợi !

 

[hoahoangttd3]

Em thấy dùng cách của anh rất tiện. Nhưng sao em dùng Ctrl+Shift+H mà công thức của em đổi hết vậy? có chỗ báo là Value. Xin chỉ dùm

 

[cadafi]

Em thấy dùng cách của anh rất tiện. Nhưng sao em dùng Ctrl+Shift+H mà công thức của em đổi hết vậy? có chỗ báo là Value. Xin chỉ dùm

Việc này chỉ làm với cell có dữ liệu thuần text thôi bạn. Nếu cell có công thức thì nó dán cứng luôn đó.

Nếu cell có công thức liên quan đến cell khác chứa text/chuỗi thì bạn phải chuyển cell chứa text/chuỗi ấy.

 

[minhngq]

Em thấy dùng cách của anh rất tiện. Nhưng sao em dùng Ctrl+Shift+H mà công thức của em đổi hết vậy? có chỗ báo là Value. Xin chỉ dùm

Với trường hợp này, tác giả có lẽ nên thêm 1 lệnh IF trong code để xác định nếu cell chứa công thức thì thôi khỏi thực hiện hàm chuyển đổi lower, upper

 

[lamho27]

ca dafi ơi , excel em đang xài bằng tiếng pháp , có cách nào đổi
Ctrl+Shift+H = Ctrl+Shift+M
Ctrl+Shift+T = Ctrl+Shift+N
Ctrl+Shift+K = Ctrl+Shift+P
Ctrl+Shift+F = Ctrl+Shift+L
để cho dể nhớ

 

[thuannhpecc2]

Các bác ới em sử dung mà sao nó cứ báo lỗi ở cái dòng khai báo đầu khi nhấn Ctrl + Shift + H
Sub ChuHoaThuong()
For Each Clls In Selection
Clls.Value = ProperUni(Clls.Text)
Next Clls
End Sub

 

[Po_Pikachu]

Bạn thử code này xem sao nha!

 Sub ChuHoaThuong() 'Selection.SpecialCells(xlCellTypeConstants, 23).Select         'Lấy tất cả dữ liệu nền a = ActiveCell.SpecialCells(xlLastCell).Address(0, 0)           'Lấy vị trí cuối của bảng hiện hành Range("A1:" & a).Select For Each Clls In Selection Clls.Value = Application.WorksheetFunction.Proper(Clls) Next Clls 'Range("A1").Select End Sub

 

[cadafi]

ca dafi ơi , excel em đang xài bằng tiếng pháp , có cách nào đổi
Ctrl+Shift+H = Ctrl+Shift+M
Ctrl+Shift+T = Ctrl+Shift+N
Ctrl+Shift+K = Ctrl+Shift+P
Ctrl+Shift+F = Ctrl+Shift+L
để cho dể nhớ

Chào bạn,
Trước hết bạn đổi phần mở rộng của file này từ .xla thành .xls
Mở file lên , ấn Alt+F8 để đặt lại phím tắt tương ứng. Sau đó Save as dạng *.xla là xong.

Chúc bạn thành công.

 

[cadafi]

Với trường hợp này, tác giả có lẽ nên thêm 1 lệnh IF trong code để xác định nếu cell chứa công thức thì thôi khỏi thực hiện hàm chuyển đổi lower, upper

Mình đã update lại theo ý các bạn rồi. Các bạn theo đường link này, bài #13 tải file mới về nhé.

 

[hoangtruong1088]

Thank Anh Cadafi, mặc dầu chưa biết rõ file chương trình của Anh, nhưng đối với em, biết tới nó và ứng dụng được là điều rất vui rồi. Thank anh nhiều lắm!!!

 

[ngh_khanh]

cadafi ơi, addin này không dùng được với định dạng font .vntime uh?

 

[phamcuong_2008]

anh ơi cho em hỏi cách đổi chữ thường thành chữ hoa này chỉ có thể dùng VBA mới chuyển được ạ, vì em thấy dùng các công thức upper thì lại không được-em đang sử dụng fonts chữ unicode dựng sẵn?

 

[ndu96081631]

anh ơi cho em hỏi cách đổi chữ thường thành chữ hoa này chỉ có thể dùng VBA mới chuyển được ạ, vì em thấy dùng các công thức upper thì lại không được-em đang sử dụng fonts chữ unicode dựng sẵn?

Đương nhiên là vậy nếu bạn dùng Office 2007 trở về trước
Với Office 2010 thì UPPER cho Unicode ngon lành
Thử xem

 

[caingoc]

tôi cũng làm giống như bạn chỉ dẫn nhưng không được bạn ơi,
không biết tại sao ?

 

[vansontv]

Dựa trên các hàm chuyển số thành chữ và chuyển chữ HOA thành chữ thường và ngược lại trên GPE. Em gửi thêm tiện ích giống như vậy nhưng không dùng công thức (sử dụng Macro) để làm cho nhanh. Cú pháp như sau (giống trong Word ấn Shift+F3):

Chiếu sáng vùng cần chuyển:
Ctrl+Shift+H: CHUYỂN TẤT CẢ THÀNH CHỮ HOA
Ctrl+Shift+T: chuyển tất cả thành chữ thường
Ctrl+Shift+K: Chuyển Tất Cả Thành Chữ Hoa Đầu Mỗi Từ.

Các anh Chị xem add-In đính kèm.
Nếu đề tài này đã có trên GPE mình rồi thì coi như em khơi lại nhé.
Chúc các anh chị và các bạn luôn thành công và hạnh phúc.

mình dùng office 365 nhập 2 bản add-on mà vẫn không được cái này có hổ trợ không hay office 365 dùng cái khác

 

[huhumalu]

Bạn đang dùng đường dẫn tiếng Việt.
Thử đổi sang đường dẫn không tiếng Việt thử bạn.