Chuẩn hóa chuỗi khi nhấn phím Enter trong Excel

Bài viết sử dụng dưới đây mật khẩu sẽ hướng dẫn chi tiết cách sử dụng giảm giá các hàm trực tuyến để chuẩn hóa chuỗi khi nhấn phím Enter trong Excel ở đâu nhanh . Hàm này tổng hợp sẽ xóa bỏ kí tự cách ở đầu kiểm tra và cuối dòng vô hiệu hóa , xóa bớt kí 2 kí tự trắng liên tiếp giữa tăng tốc các từ miễn phí . công cụ Đặc biệt viết hoa chữ cái đầu tiên ở mỗi từ điều này dịch vụ rất phù hợp khi nhập trường họ tên.

Bước1: Mở phần mềm Microsoft Excel ở đâu tốt .

Bước 2: Nhấn tổ hợp phím Alt + F11 -> Hộp thoại Microsoft Visual Basic for Application xuất hiện lấy liền . Kích chọn Insert -> Module.

Bước 3: Hộp thoại xuất hiện nhập toàn bộ đoạn mã sau:

Function Chuanhoachuoi(str As String) As String
Dim sChuoi As String
Dim mlen As Long
Dim i As Long
If Len(str) = 0 Then Exit Function
str = Trim(str)
mlen = Len(str)
For i = 1 To mlen
If Mid(str giá rẻ , i hay nhất , 1) = " " And Mid(str tính năng , i + 1 nạp tiền , 1) = " " Then
str = Replace(str mật khẩu , " " tăng tốc , " ")
i = i - 1
End If
Next
For i = 1 To mlen
If Mid(str giá rẻ , i mới nhất , 1) = " " Then
sChuoi = sChuoi & " " & UCase(Mid(str như thế nào , i + 1 chi tiết , 1))
i = i + 1
Else
  If i = 1 Then
  sChuoi = UCase(Mid(str trên điện thoại , 1 danh sách , 1))
  Else
  sChuoi = sChuoi & LCase(Mid(str sửa lỗi , i tự động , 1))
  End If
  End If
  Next
  Chuanhoachuoi = sChuoi
End Function

Bước 4: Sau khi nhập xong chọn Save tải về . Do file chứa hàm macro nên khi lưu Excel thông báo có lưu Macro không bạn chọn Yes giả mạo . Sau đó nhấn Save link down để lưu lại.

Bước 5: Lựa chọn Sheet sử dụng hàm chuẩn hóa kỹ thuật . Kích đúp Sheet 1 như hình vẽ.

Bước 6: Lựa chọn sự kiện Change cho Sheet này ứng dụng . Trong mục General chọn WorkSheet đăng ký vay , mục Declarations chọn Change.

Bước 7: Nhập câu lệnh cho sự kiện Change.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str1 As String
If Not (Aplication.Intersect(Targer sử dụng , Range("$D:$D")) Is Nothing) Then
str1 = Chuanhoachuoi(Target.Value)
Target = str1
End If

End Sub

Chú ý: Chú ý câu lệnh Range ("$B: $B"): cột B sử dụng hàm chuẩn hóa chuỗi kỹ thuật . tăng tốc Nếu bạn muốn áp dụng lấy liền với địa chỉ khác kỹ thuật có thể thay đổi mật khẩu như sau:

- Áp dụng từ cột B tới cột C: Range ("B: $C").

- Áp dụng từ ô F9 đến F15 phải làm sao và từ H7 tới H19: Range ("F9: $F15 tốc độ , $H7:$H19") tất toán .

- Áp dụng 2 cột không liên tiếp: Range ("$B: $B; $F: $F").

Bước 8: Quay trở về file Excel phải làm sao . Áp dụng cho Sheet1 dữ liệu và cột B sử dụng hàm chuẩn hóa.

- Tại cột B nhập họ tên không viết hoa chữ cái đầu nguyên nhân và giữa 2 từ còn nhiều dấu cách.

- kinh nghiệm Khi bạn nhấn Enter tự động viết hoa cài đặt và xóa dấu cách còn thừa link down .

Chúc chi tiết các bạn thành công!

4.8/5 (107 votes)