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

VBA Excel còn lại

VBA Left cũng là một trong những hàm trang tính được phân loại theo 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 so với 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?

Bạn có thể tải xuống Mẫu hàm bên trái VBA này tại đây - Mẫu hàm bên trái VBA

Ví dụ 1

Giả sử bạn có một 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 As String 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 ta cần 6 ký tự.

Mã:

 Sub Left_Example1 () Dim MyValue As String 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 tôi 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.

Trong mỗi trường hợp, các ký tự của tên khác nhau, chúng tôi không thể chỉ định trực tiếp số ký tự mà chúng tôi cần từ mỗi tên.

Đây là nơi mà vẻ đẹp của các chức năng khác sẽ xuất hiện trong bức tranh. Để cung cấp số lượng ký tự một cách linh động, chúng ta có thể sử dụng chức năng “VBA hướng dẫn”.

Trong bộ tên trên, chúng ta cần tất cả các ký tự từ bên trái cho đến khi chúng ta đến ký tự khoảng trắng. Vì vậy, hàm hướng dẫn có thể trả về nhiều ký tự đó.

Bước 1: Tương tự bắt đầu một tên macro excel và xác định một biến dưới dạng một chuỗi.

Mã:

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

Bước 2: Gán giá trị cho biến thông qua hàm LEFT.

Mã:

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

Bước 3: Ở đây chúng ta cần tham chiếu ô để lấy giá trị từ các ô. Vì vậy, hãy viết mã là CELLE (2,1) .Value.

Mã:

 Sub Left_Example2 () Dim FirstName As String FirstName = Left (Cells (2,1). Giá trị, End Sub 

Bước 4: Việc tiếp theo  là chúng ta cần bao nhiêu ký tự. Sau khi áp dụng chức năng TRÁI, không nhập độ dài của các ký tự theo cách thủ công, hãy áp dụng chức năng Hướng dẫn.

Mã:

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

Bước 5: Lưu kết quả này vào ô B2. Vì vậy, mã là CELLS (2,2) .value = FirstName

Mã:

 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 

Lưu ý:  Hàm hướng dẫn cũng trả về ký tự khoảng trắng, vì vậy chúng ta cần trừ đi 1 từ kết quả hướng dẫn.

Nếu bạn chạy mã này, chúng tôi sẽ nhận được các giá trị tên.

Đầu ra:

Những điều cần ghi nhớ

  • Left chỉ có thể giải nén từ bên trái.
  • VBA Hàm hướng dẫn tìm vị trí của ký tự được cung cấp trong chuỗi.

$config[zx-auto] not found$config[zx-overlay] not found