Bạn đã bao giờ gặp phải những người nhấn mạnh vào việc nhập mọi thứ bằng phím Caps Lock chưa? Trong một số trang tính, điều đó có thể không được chấp nhận. Tuy nhiên, bạn đây rồi, với một trang tính chứa đầy các ô văn bản được viết hoa. Làm cách nào để bạn chuyển đổi mọi thứ thành chữ hoa và chữ thường mà không cần phải nhập lại?

Nếu bạn thấy mình trong tình huống này, macro MakeProper có thể thực hiện thủ thuật cho bạn. Nó sẽ kiểm tra một loạt các ô mà bạn chọn, sau đó chuyển đổi bất kỳ hằng số nào thành những gì Excel gọi là “trường hợp thích hợp”.

Điều này đơn giản có nghĩa là khi bạn làm xong, chữ cái đầu tiên của mỗi từ trong ô sẽ là chữ hoa; phần còn lại sẽ là chữ thường. Nếu một ô chứa một công thức, nó sẽ bị bỏ qua.

Sub MakeProper()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

Nếu bạn muốn chuyển đổi tất cả văn bản trong phạm vi thành chữ thường, bạn có thể sử dụng macro sau, MakeLower ().

Sub MakeLower()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2026) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.