Hướng dẫn này sẽ trình bày cách sử dụng chức năng Right VBA để trích xuất văn bản từ bên phải.
Chức năng bên phải
VBA Chức năng bên phải n Ký tự cuối cùng
Hàm VBA Right trả về n ký tự cuối cùng từ một chuỗi:
| 123456 | Sub RightExample_1 ()MsgBox Right ("ABCDEFGHI", 4) 'Kết quả là: "FGHI"MsgBox Right ("ABCDEFGHI", 2) 'Kết quả là: "HI"MsgBox Right ("ABCDEFGHI", 1) 'Kết quả là: "I"MsgBox Right ("ABCDEFGHI", 100) 'Kết quả là: "ABCDEFGHI"Kết thúc Sub |
Hàm bên phải VBA n ký tự cuối cùng 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 RIGHT 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ự cuối cùng từ một biến chuỗi.
| 123456789 | Sub RightExample_2 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "ABCDEFGHI"MsgBox Right (StrEx, 4) 'Kết quả là: "FGHI"MsgBox Right (StrEx, 2) 'Kết quả là: "HI"MsgBox Right (StrEx, 1) 'Kết quả là: "I"MsgBox Right (StrEx, 100) 'Kết quả là: "ABCDEFGHI"Kết thúc Sub |
Lập trình VBA | Code Generator làm việc cho bạn!
Hàm bên phải VBA n Ký tự cuối cùng từ 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ự cuối cùng từ giá trị Ô Trang tính đó.
| 123456789101112 | Sub RightExample_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à "ABCDEFG hI"MsgBox Right (StrEx, 4) 'Kết quả là: "G hI"MsgBox Right (StrEx, 2) 'Kết quả là: "hI"MsgBox Right (StrEx, 1) 'Kết quả là: "I"MsgBox Right (StrEx, 100) 'Kết quả là: "ABCDEFG hI"Kết thúc Sub |
Chức năng bên phải VBA Cắt bỏ chữ cái đầu tiên
Để xóa các chữ cái khỏi đầu chuỗi, hãy sử dụng Hàm RIGHT 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 đầu chuỗi:
| 12345678 | Sub RightExample_4 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "ABCDEF"MsgBox Right (StrEx, Len (StrEx)) 'Kết quả là: "ABCDEF"MsgBox Right (StrEx, Len (StrEx) - 1) 'Kết quả là: "BCDEF"MsgBox Right (StrEx, Len (StrEx) - 2) 'Kết quả là: "CDEF"Kết thúc Sub |
VBA Quyền trích xuất văn bản sau dấu cách
Để trích xuất họ từ một chuỗi có tên đầy đủ, hãy sử dụng Hàm Right cùng với Hàm Len và Hàm hướng dẫn.
Hàm VBA LEN đếm số ký tự trong một chuỗi:
| 1 | Len (StrEx) |
Hàm VBA InStr 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 phần sau dấu cách đầu tiên từ một cụm từ:
| 123456789101112131415 | Sub RightExample_5 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "Luke Skywalker"MsgBox Right (StrEx, Len (StrEx) - InStr (StrEx, ""))'Kết quả là: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox Right (StrEx, Len (StrEx) - InStr (StrEx, ""))'Kết quả là: "da Vinci"StrEx = "Cầu mong Thần lực ở bên bạn"MsgBox Right (StrEx, Len (StrEx) - InStr (StrEx, ""))'Kết quả là: "Lực lượng ở bên bạn"Kết thúc Sub |
Bạn mệt mỏi với việc tìm kiếm ví dụ về mã VBA? Hãy thử AutoMacro!
VBA Quyền trích xuất từ cuối cùng
Để trích xuất từ cuối cùng từ một chuỗi với một cụm từ, hãy sử dụng Hàm Right cùng với Hàm Len và Hàm hướng dẫn.
Như chúng ta đã thấy ở trên, hàm VBA LEN đếm số ký tự trong một chuỗi:
| 1 | Len (StrEx) |
Hàm VBA InStrRev 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. Nó bắt đầu tìm kiếm từ cuối cụm từ (từ phải sang trái) nhưng trả về vị trí từ đầu chuỗi (từ trái sang phải).
| 1 | InStrRev (StrEx, "") |
Bằng cách kết hợp các hàm, chúng ta có thể trích xuất phần sau dấu cách cuối cùng từ một cụm từ:
| 123456789101112131415 | Sub RightExample_6 ()Dim StrEx As String 'Xác định một biến chuỗiStrEx = "Luke Skywalker"MsgBox Right (StrEx, Len (StrEx) - InStrRev (StrEx, ""))'Kết quả là: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox Right (StrEx, Len (StrEx) - InStrRev (StrEx, ""))'Kết quả là: "da Vinci"StrEx = "Cầu mong Thần lực ở bên bạn"MsgBox Right (StrEx, Len (StrEx) - InStrRev (StrEx, ""))'Kết quả là: "bạn"Kết thúc Sub |
