Ten samouczek pokaże, jak korzystać z funkcji Left VBA.
Lewa funkcja
Funkcja VBA Left zwraca pierwszych n znaków z ciągu.
VBA Lewa funkcja n Pierwsze znaki
Funkcja VBA Left zwraca pierwszych n znaków z ciągu:
123456 | Podrzędny LewyPrzykład_1()MsgBox Left("ABCDEFGHI", 4) 'Wynik: "ABCD"MsgBox Left("ABCDEFGHI", 2) 'Wynik: "AB"MsgBox Left("ABCDEFGHI", 1) 'Wynik: "A"MsgBox Left ("ABCDEFGHI", 100) 'Wynik: "ABCDEFGHI"Napis końcowy |
Funkcja VBA Left n Pierwsze znaki w zmiennej
Jak pokazano powyżej, możesz zdefiniować ciąg po prostu wpisując tekst w cudzysłowie. Ale funkcja LEFT działa również ze zmiennymi łańcuchowymi. Te przykłady wydobędą pierwszych n znaków ze zmiennej łańcuchowej.
1234567891011 | Sub LeftPrzykład_2()Dim StrEx As String 'Zdefiniuj zmienną łańcuchowąStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'Wynik: "ABCD"MsgBox Left(StrEx, 2) 'Wynik: "AB"MsgBox Left(StrEx, 1) 'Wynik: "A"MsgBox Left(StrEx, 100) 'Wynik: "ABCDEFGHI"Napis końcowy |
Funkcja VBA Left n Pierwsze znaki w komórce
Ciągi znaków można definiować w kodzie VBA, ale można również używać wartości z komórek. Odczytaj wartość komórki, zachowaj ją w zmiennej ciągu i wyodrębnij n pierwszych znaków z tej wartości komórki arkusza roboczego.
12345678910111213 | Sub LeftExample_3()Dim StrEx As String 'Zdefiniuj zmienną łańcuchową'Odczytaj wartość komórki A1 w arkuszu Arkusz1StrEx = ThisWorkbook.Worksheets("Arkusz1").Range("A1").Value'W tym przykładzie wartość komórki A1 to „A bCDEFGHI”MsgBox Left (StrEx, 4) 'Wynik: "ABCD"MsgBox Left(StrEx, 2) 'Wynik: "AB"MsgBox Left(StrEx, 1) 'Wynik: "A"MsgBox Left(StrEx, 100) 'Wynik: "ABCDEFGHI"Napis końcowy |
VBA Lewa funkcja Przycinanie ostatniej litery
Aby usunąć litery z końca ciągu, użyj funkcji LEFT wraz z funkcją LEN.
Funkcja VBA LEN zlicza liczbę znaków w ciągu:
1 | Len(StrEx) |
Łącząc funkcje możemy usunąć określoną liczbę znaków z końca ciągu:
123456789 | Sub LeftExample_4()Dim StrEx As String 'Zdefiniuj zmienną łańcuchowąStrEx = "ABCDEF"MsgBox Left(StrEx, Len(StrEx)) 'Wynik: "ABCDEF"MsgBox Left(StrEx, Len(StrEx) - 1) 'Wynik: "ABCDE"MsgBox Left(StrEx, Len(StrEx) - 2) 'Wynik: „ABCD”Napis końcowy |
VBA pozostało do wyodrębnienia imienia
Aby wyodrębnić imię z ciągu z pełną nazwą, użyj funkcji Left wraz z funkcją Instr.
Funkcja VBA Instr wyszukuje podciąg w ciągu i zwraca numer pozycji podciągu.
1 | InStr(StrEx, " ") |
Łącząc funkcje, możemy wyodrębnić pierwsze słowo z frazy:
12345678910111213141516171819 | Sub LeftPrzykład_5()Dim StrEx As String 'Zdefiniuj zmienną łańcuchowąStrEx = "Aleksander Graham Bell"MsgBox Left(StrEx, InStr(StrEx, " "))Wynik: „Alexander” (zwróć uwagę na spację na końcu)MsgBox Left(StrEx, InStr(StrEx, " ") - 1)Wynik to: „Alexander” (BEZ spacji na końcu)StrEx = "Leonardo da Vinci"MsgBox InStr(StrEx, " ")'Wynik to: 9, ponieważ spacja została znaleziona na pozycji 9MsgBox Left(StrEx, InStr(StrEx, " ") - 1)Wynik: „Leonardo”Napis końcowy |