Hướng dẫn này sẽ trình bày cách sử dụng Hàm Left VBA.
Chức năng bên trái
Hàm VBA Left trả về n ký tự đầu tiên từ một chuỗi.
Hàm bên trái VBA n ký tự đầu tiên
Hàm VBA Left trả về n ký tự đầu tiên từ một chuỗi:
123456 | Sub LeftExample_1 ()MsgBox Left ("ABCDEFGHI", 4) 'Kết quả là: "ABCD"MsgBox Left ("ABCDEFGHI", 2) 'Kết quả là: "AB"MsgBox Left ("ABCDEFGHI", 1) 'Kết quả là: "A"MsgBox Left ("ABCDEFGHI", 100) 'Kết quả là: "ABCDEFGHI"Kết thúc Sub |
Hàm trái VBA n Ký tự đầu tiên trong một biến
Như được hiển thị ở trên, bạn có thể xác định một chuỗi đơn giản bằng cách nhập văn bản được bao quanh bởi dấu ngoặc kép. Nhưng Hàm LEFT cũng sẽ hoạt động với các biến chuỗi. Các ví dụ này sẽ trích xuất n ký tự đầu tiên từ một biến chuỗi.
1234567891011 | Sub LeftExample_2 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'Kết quả là: "ABCD"MsgBox Left (StrEx, 2) 'Kết quả là: "AB"MsgBox Left (StrEx, 1) 'Kết quả là: "A"MsgBox Left (StrEx, 100) 'Kết quả là: "ABCDEFGHI"Kết thúc Sub |
Hàm trái VBA n Ký tự đầu tiên trong một ô
Các chuỗi có thể được định nghĩa trong mã VBA nhưng bạn cũng có thể sử dụng các giá trị từ các ô. Đọc giá trị của một ô, giữ nó trong một biến chuỗi và trích xuất n ký tự đầu tiên từ giá trị Ô Trang tính đó.
12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Xác định một biến chuỗi'Đọc giá trị của ô A1 trong trang tính Sheet1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Phạm vi ("A1"). Giá trị'Đối với ví dụ này, giá trị của ô A1 là "A bCDEFGHI"MsgBox Left (StrEx, 4) 'Kết quả là: "ABCD"MsgBox Left (StrEx, 2) 'Kết quả là: "AB"MsgBox Left (StrEx, 1) 'Kết quả là: "A"MsgBox Left (StrEx, 100) 'Kết quả là: "ABCDEFGHI"Kết thúc Sub |
Hàm bên trái VBA Cắt bỏ chữ cái cuối cùng
Để xóa các chữ cái ở cuối một chuỗi, hãy sử dụng Hàm LEFT cùng với Hàm LEN.
Hàm VBA LEN đếm số ký tự trong một chuỗi:
1 | Len (StrEx) |
Bằng cách kết hợp các hàm, chúng ta có thể xóa một số ký tự nhất định khỏi phần cuối của chuỗi:
123456789 | Sub LeftExample_4 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Kết quả là: "ABCDEF"MsgBox Left (StrEx, Len (StrEx) - 1) 'Kết quả là: "ABCDE"MsgBox Left (StrEx, Len (StrEx) - 2) 'Kết quả là: "ABCD"Kết thúc Sub |
VBA còn lại để trích xuất tên
Để trích xuất tên từ một chuỗi có tên đầy đủ, hãy sử dụng Hàm Left cùng với Hàm hướng dẫn.
Hàm Hướng dẫn VBA tìm kiếm một chuỗi con bên trong một chuỗi và trả về số vị trí của chuỗi con.
1 | InStr (StrEx, "") |
Bằng cách kết hợp các hàm, chúng ta có thể trích xuất từ đầu tiên từ một cụm từ:
12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "Chuông Alexander Graham"MsgBox Left (StrEx, InStr (StrEx, ""))'Kết quả là: "Alexander" (chú ý khoảng trống ở cuối)MsgBox Left (StrEx, InStr (StrEx, "") - 1)'Kết quả là: "Alexander" (KHÔNG có khoảng trắng ở cuối)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'Kết quả là: 9 vì khoảng trắng được tìm thấy ở vị trí 9MsgBox Left (StrEx, InStr (StrEx, "") - 1)'Kết quả là: "Leonardo"Kết thúc Sub |