Tối ưu hóa văn bản khi nhấn phím Enter trong Excel

Bài viết dưới đây sẽ hướng dẫn chi tiết cách sử dụng các hàm để tối ưu hóa văn bản khi nhấn phím Enter trong Excel. Hàm này sẽ loại bỏ kí tự cách ở đầu và cuối dòng, giảm bớt kí tự trắng liên tiếp giữa các từ. Đặc biệt, viết hoa chữ cái đầu tiên ở mỗi từ điều này rất hữu ích khi nhập trường họ tên.

Bước 1: Khởi động Microsoft Excel.

Bước 2: Nhấn tổ hợp phím Alt + F11 để mở hộp thoại Microsoft Visual Basic for Application. Chọn Insert -> Module.

Nhấn 3: Xuất hiện hộp thoại, hãy nhập đoạn mã sau:

Hàm Chuanhoachuoi(str As String) As String
Dim sChuoi As String
Dim mlen As Long
Dim i As Long
Nếu Len(str) = 0 Thì Exit Function
str = Trim(str)
mlen = Len(str)
Đối với i = 1 Đến mlen
Nếu Mid(str, i, 1) = ' ' Và Mid(str, i + 1, 1) = ' ' Thì
str = ThayThedau(str, ' ', ' ')
i = i - 1
Kết thúc Đối với
Đối với i = 1 Đến mlen
Nếu Mid(str, i, 1) = ' ' Thì
sChuoi = sChuoi & ' ' & ChuyenThanhInHoa(Mid(str, i + 1, 1))
i = i + 1
Khác
    Nếu i = 1 Thì
    sChuoi = ChuyenThanhInHoa(Mid(str, 1, 1))
    Khác
    sChuoi = sChuoi & ChuyenThanhThuong(Mid(str, i, 1))
    Kết thúc Nếu
    Kết thúc Đối với
    Chuanhoachuoi = sChuoi
End Function

Nhấn 4: Sau khi nhập xong, chọn Lưu. Do file chứa hàm macro, khi lưu Excel sẽ hỏi có lưu Macro không, bạn chọn Có. Sau đó nhấn Lưu để hoàn tất.

Nhấn 5: Lựa chọn Sheet sử dụng hàm chuẩn hóa. Kích đúp vào Sheet 1 như hình vẽ.

Nhấn 6: Lựa chọn sự kiện Thay Đổi cho Sheet này. Trong mục Chung chọn Bảng Công việc, mục Khai báo chọn Thay Đổi.

Nhấn 7: Nhập lệnh cho sự kiện Thay Đổi.

Private Sub BảngCôngViệc_ThayĐổi(ByVal ĐốiTượng As PhạmVi)
Dim Chuỗi1 As String
Nếu Không (ỨngDụng.GiaoCắt(ĐốiTượng, PhạmVi('$D:$D')) Là Nothing) Thì
Chuỗi1 = Chuanhoachuoi(ĐốiTượng.GiáTrị)
ĐốiTượng = Chuỗi1
Kết Thúc Nếu

Kết Thúc Sub

Lưu ý: Lưu ý lệnh PhạmVi('$B:$B'): cột B sử dụng hàm chuẩn hóa chuỗi. Nếu muốn áp dụng với địa chỉ khác có thể thay đổi như sau:

- Áp dụng từ cột B đến cột C: PhạmVi ('B: $C').

- Áp dụng từ ô F9 đến F15 và từ H7 đến H19: PhạmVi ('F9: $F15, $H7:$H19').

- Áp dụng 2 cột không kề nhau: PhạmVi ('$B: $B; $F: $F').

Nhấn 8: Quay lại tệp Excel. Áp dụng cho Sheet1 và cột B sử dụng hàm chuẩn hóa.

- Tại cột B nhập tên họ không in hoa chữ cái đầu và giữa 2 từ, còn nhiều khoảng trắng.

- Khi bạn nhấn Enter, tự động chuyển thành in hoa và loại bỏ khoảng trắng thừa.

Chúc mừng các bạn đã thành công!