Bỏ qua nội dung chính

Làm thế nào để buộc chuỗi văn bản thành chữ hoa / chữ thường / trường hợp thích hợp trong Excel?

Trong Excel, khi bạn nhập một số chữ cái hoặc từ vào các ô, bạn muốn buộc các chuỗi văn bản thành chữ hoa mặc dù bạn đã nhập chữ thường hoặc chữ hoa phù hợp và ngược lại. Hầu hết chúng ta có thể xem xét tính năng Xác thực Dữ liệu trong Excel, với chức năng này, chúng ta sẽ nhận được cảnh báo khi không nhập đúng trường hợp của văn bản. Trong bài viết này, tôi sẽ giới thiệu một số cách thú vị để buộc văn bản thành chữ hoa, chữ thường hoặc trường hợp thích hợp khi bạn cần.

Buộc các chuỗi văn bản thành chữ hoa / chữ thường / chữ hoa / thường với Xác thực dữ liệu

Buộc các chuỗi văn bản thành chữ hoa / chữ thường / chữ hoa / thường với mã VBA

Thay đổi văn bản thành UPPERCASE / chữ thường / Trường hợp thích hợp với Kutools cho Excel ý kiến ​​hay3

Data Validation là một công cụ mạnh mẽ trong Excel, nó có thể giúp chúng ta thực hiện nhiều thao tác, với sự trợ giúp của nó, chúng ta cũng có thể buộc viết hoa, viết thường hoặc viết hoa phù hợp cho chuỗi văn bản khi nhập, vui lòng thực hiện như sau:

1. Đi đến nhấp chuột Ngày > Xác nhận dữ liệu > Xác nhận dữ liệu, xem ảnh chụp màn hình:

doc-force-hoa-1

2. Trong Xác nhận dữ liệu hộp thoại, dưới Cài đặt tab, nhấp vào Cho phép danh sách thả xuống và chọn Tuỳ chỉnh tùy chọn, sau đó trong Công thức hộp văn bản, nhập công thức này = CHÍNH XÁC (LÊN (A1), A1), (A1 là viết tắt của một cột mà bạn sẽ áp dụng tính năng này, bạn có thể thay đổi nó theo nhu cầu của mình), xem ảnh chụp màn hình:

doc-force-hoa-1

3. Sau đó, bạn có thể tạo một cảnh báo khi bạn cần, vui lòng nhấp vào Cảnh báo lỗi Tab, và chọn Dừng từ Phong cách danh sách thả xuống, ở góc bên phải của Thông báo lỗi hộp văn bản, nhập thông báo cảnh báo của riêng bạn, xem ảnh chụp màn hình:

doc-force-hoa-1

4. Và sau đó nhấp vào OK để đóng hộp thoại, bây giờ khi bạn nhập chuỗi văn bản không phải chữ hoa trong cột A, một hộp cảnh báo sẽ bật ra để nhắc bạn nhập các chữ hoa.

doc-force-hoa-1

Lưu ý:

Nếu bạn cần buộc các chuỗi văn bản thành chữ thường hoặc chữ hoa, vui lòng áp dụng các công thức sau vào Xác nhận dữ liệu trong bước 2.

Buộc thành chữ thường: = EXACT (LOWER (A1), A1);

Buộc vào trường hợp thích hợp: = EXACT (PROPER (A1), A1)

Với mã VBA sau đây, khi bạn nhập các từ viết thường vào một ô, văn bản viết thường sẽ tự động được thay đổi thành các chữ hoa.

1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. Sau đó, chọn trang tính đã sử dụng của bạn từ bên trái Trình khám phá dự án, nhấp đúp vào nó để mở Mô-đun, sau đó sao chép và dán mã VBA sau vào Mô-đun trống:

Mã VBA: Buộc chuỗi văn bản thành chữ hoa

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-force-hoa-1

3. Sau đó, lưu và đóng mã này để quay lại trang tính, bây giờ khi bạn nhập chuỗi văn bản bất cứ khi nào nó là chữ thường hoặc chữ hoa, nó sẽ trở thành chữ hoa sau khi chạm vào đăng ký hạng mục thi chìa khóa tự động.

Ghi chú:

1. Mã này được áp dụng cho toàn bộ trang tính.

2. Nếu bạn không thể tìm thấy PNgăn Roject Explorer trong cửa sổ, bạn có thể nhấp vào Xem > Trình khám phá dự án mở nó ra.

3. Để buộc các từ viết thường hoặc viết hoa phù hợp, bạn có thể áp dụng mã VBA sau: (Quy trình tương tự như trên)

Mã VBA: Buộc chuỗi văn bản thành chữ thường

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

Mã VBA: Buộc chuỗi văn bản thành trường hợp thích hợp

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Nếu bạn chỉ muốn thay đổi một số văn bản cụ thể thành UPPERCASE, chữ thường hoặc Chữ hoa phù hợp, bạn có thể áp dụng Thay đổi trường hợp tiện ích của Kutools cho Excel để nhanh chóng hoàn thành công việc.

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 
Tải xuống miễn phí
miễn phí đầy đủ tính năng trong 30 ngày

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. Chọn văn bản bạn muốn thay đổi kiểu chữ và nhấp vào Kutools > bản văn > Thay đổi trường hợp. Xem ảnh chụp màn hình:
doc thay đổi trường hợp 6

2. bên trong Thay đổi trường hợp , kiểm tra tùy chọn hoạt động khi bạn cần và bạn có thể xem trước kết quả trong Xem trước ngăn. Xem ảnh chụp màn hình:
doc thay đổi trường hợp 2

3. nhấp chuột Ok or Đăng Nhập và các văn bản đã được thay đổi trường hợp.

 Thay đổi thành UPPERCASE  Thay đổi thành trường hợp thích hợp  Thay đổi thành dạng câu
 doc thay đổi trường hợp 3  doc thay đổi trường hợp 4 doc thay đổi trường hợp 5 

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (10)
No ratings yet. Be the first to rate!
DS
DS
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
Reply
0
0
skyyang
skyyang     DS
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
Reply
Report
0
0
Spencer
Spencer
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
Reply
0
0
Sunny
Sunny     Russ Maurer
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
Reply
Report
0
0
Patrick
Patrick
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations