Hàm trái VBA - Cách sử dụng Hàm Left VBA trong Excel?

Mục lục

VBA Excel còn lại

VBA Excel còn lại

VBA Left cũng là một trong các hàm trang tính được phân loại dưới các hàm văn bản được sử dụng trong VBA với ứng dụng. phương thức trang tính, nó trả về số ký tự được chỉ định từ phần bên trái của chuỗi.

Một số hàm excel cũng được tích hợp với VBA. Trong tất cả các hàm văn bản, VBA LEFT là một trong những hàm chúng tôi sử dụng khá thường xuyên hơn các công thức khác.

Nếu bạn biết hàm LEFT trong excel, thì hàm VBA LEFT hoàn toàn tương tự. Nó có thể trích xuất các ký tự từ phía bên trái của chuỗi hoặc giá trị do người dùng cung cấp.

Cú pháp của hàm LEFT hoàn toàn giống như trong hàm trang tính.

Nó có hai đối số.

Chuỗi: Đây không là gì ngoài giá trị hoặc tham chiếu ô. Từ giá trị này, chúng tôi đang tìm cách cắt các ký tự.
Độ dài: Số ký tự bạn muốn trích xuất từ chuỗi bạn đã cung cấp. Đây phải là một giá trị số.

Cách sử dụng Hàm Left VBA trong Excel?

Ví dụ 1

Giả sử bạn có từ “Sachin Tendulkar” và bạn chỉ muốn có 6 ký tự đầu tiên từ từ này. Chúng tôi sẽ hướng dẫn cách trích xuất từ bên trái bằng cách sử dụng hàm LEFT trong VBA.

Bước 1: Tạo tên macro và Xác định biến là Chuỗi.

Mã:

Sub Left_Example1 () Dim MyValue làm chuỗi kết thúc Sub

Bước 2: Bây giờ chỉ định một giá trị cho biến này

Mã:

Sub Left_Example1 () Dim MyValue thành chuỗi MyValue = End Sub

Bước 3: Mở chức năng LEFT.

Mã:

Sub Left_Example1 () Dim MyValue thành chuỗi MyValue = Left (End Sub

Bước 4: Đối số đầu tiên là để cho biết chuỗi hoặc giá trị là gì. Giá trị của chúng tôi ở đây là "Sachin Tendulkar."

Mã:

Sub Left_Example1 () Dim MyValue như chuỗi MyValue = Left ("Sachin Tendulkar", End Sub

Bước 5: Chiều dài không là gì ngoài việc chúng ta cần bao nhiêu ký tự từ bên trái. Chúng tôi cần 6 ký tự.

Mã:

Sub Left_Example1 () Dim MyValue như chuỗi MyValue = Left ("Sachin Tendulkar", 6) End Sub

Bước 6: Hiển thị giá trị trong VBA MsgBox.

Mã:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

Bước 7: Chạy macro bằng cách sử dụng phím F5 hoặc theo cách thủ công thông qua tùy chọn chạy để nhận kết quả trong hộp thông báo.

Đầu ra:

Thay vì hiển thị kết quả trong hộp thông báo, chúng ta có thể lưu trữ kết quả này vào một trong các ô trong trang tính excel của mình. Chúng ta chỉ cần thêm tham chiếu ô và giá trị biến.

Mã:

Sub Left_Example1 () Dim MyValue dưới dạng chuỗi MyValue = Left ("Sachin Tendulkar", 6) Phạm vi ("A1"). Giá trị = MyValue End Sub

Bây giờ, nếu bạn chạy mã này, chúng ta sẽ nhận được giá trị trong ô A1.

Ví dụ # 2 - TRÁI với các hàm khác

Trong trường hợp trên, chúng tôi đã cung cấp trực tiếp độ dài của các ký tự chúng tôi cần từ hướng bên trái, nhưng điều này phù hợp hơn với một hoặc hai giá trị. Giả sử bên dưới là danh sách các giá trị bạn có trong trang tính excel của mình.

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left( End Sub

Step 3: Here, we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function, don’t enter the length of the characters manually. Apply the Instr function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

Bước 6: Chạy mã này theo cách thủ công, hoặc qua F5, chúng ta sẽ nhận được tên.

Chúng tôi có tên đầu tiên cho một cái tên, nhưng chúng tôi cũng có một số tên khác. Chúng ta không thể viết 100 dòng mã để giải nén, vậy làm thế nào để giải nén?

Đây là nơi vẻ đẹp của các vòng lặp xuất hiện trong bức tranh. Dưới đây là mã vòng lặp, có thể loại bỏ tất cả các bước không mong muốn và có thể thực hiện công việc trong 3 dòng.

Mã:

Sub Left_Example2 () Dim FirstName As String Dim i As Integer For i = 2 To 9 FirstName = Left (Cells (i, 1) .Value, InStr (1, Cells (i, 1) .Value, "") - 1) Ô (i, 2) .Value = FirstName Next i End Sub