Tự động buộc thích hợp, viết hoa hoặc viết thường - Ví dụ về mã VBA

Bạn có cần tự động thay đổi văn bản ô thành Đúng, Viết hoa hoặc Viết thường sau khi người dùng nhập vào không? Có nhiều cách để thực hiện điều này và có thể có nhiều yêu cầu. Đây là một ví dụ tự động thay đổi mọi thứ sau khi được nhập vào một cột cụ thể. Hy vọng rằng bạn có thể xây dựng từ ví dụ này!

1. Nhấn ALT và F11 để mở cửa sổ mã

2. Nhấp đúp vào tên trang tính mà bạn muốn tự động

thay đổi trường hợp

3. Đặt mã này vào cửa sổ mã:

Thay đổi văn bản thành trường hợp thích hợp

Mã cho Trường hợp thích hợp

Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub

Thay đổi văn bản thành chữ hoa

Vì Chữ hoa bạn có thể thay đổi

StrConv (Target, vbProperCase)

đến

Chữ cái (Mục tiêu)

Thay đổi văn bản thành chữ thường

Vì Chữ thường bạn có thể thay đổi

StrConv (Target, vbProperCase)

đến

Chữ hoa (Mục tiêu)