VBA SubString

Syntaktyka funkcji Left SubString:

Ciąg tekstowy jest ciągiem, który podajemy jako dane wejściowe, podczas gdy długość jest liczbą znaków, które chcemy uzyskać z ciągu wejściowego.

Przykład: Jeśli mamy łańcuch jako ANAND i chcemy AN jako podłańcuch kod będzie

Left („ANAND”,2)

Syntaktyka funkcji Right SubString:

Text string jest łańcuchem, który podajemy jako wejście, podczas gdy długość jest liczbą znaków, które chcemy z łańcucha wejściowego.

Przykład: Jeśli mamy ciąg znaków jako ANAND i używamy tego samego kodu co powyżej, wynikiem będzie

Prawo („ANAND”,2)

To daje ND jako wynik.

Syntaktyka funkcji Mid SubString w VBA:

Ciąg tekstowy to ciąg znaków, który podajemy jako dane wejściowe, a pozycja Start to pozycja, od której chcemy, aby rozpoczął się znak do ekstrakcji, natomiast długość to liczba znaków, które chcemy uzyskać z ciągu wejściowego.

Przykład: Mamy ciąg znaków jako COMPUTER i chcemy PUT jako podłańcuch to kod będzie następujący:

MID („COMPUTER”,4,3)

Syntaktyka funkcji Split SubString:

• Expression As String: Jest to obowiązkowy argument w funkcji SPLIT. Jest to w zasadzie ciąg wejściowy, który podajemy.
• Delimiter: Jest to argument opcjonalny. Jest to specyficzny ogranicznik, który dzieli łańcuch, ale domyślnie spacja jest uważana za domyślny ogranicznik.
• Limit: Jest to również opcjonalny argument. Limit oznacza maksymalną liczbę części, które chcemy zrobić z łańcucha. Ale znowu, jeżeli nie podamy limitu do funkcji VBA traktuje go jako domyślne -1. Wynika z tego, że ciąg będzie dzielony na części za każdym razem, gdy w ciągu znajduje się ogranicznik.
• Porównaj: Ten ostatni argument jest również argumentem opcjonalnym. Compare jest metodą porównania, która jest jedną z dwóch poniżej:

1. Albo jest to 0, co oznacza, że SPLIT wykona porównanie binarne, co oznacza, że każdy znak powinien pasować do siebie.
2. Albo może to być 1, co oznacza, że funkcja SPLIT wykona porównanie tekstowe.

Funkcja Split jest najbardziej skomplikowana i najbardziej użyteczna wśród wszystkich funkcji podłańcuchowych powyżej. Wszystkie pozostałe trzy funkcje podłańcuchów używają jednego łańcucha jako dane wejściowe, podczas gdy funkcja Split używa tablicy łańcuchów.

Na przykład jeśli napiszę Split(„JESTEM DOBRYM CHŁOPCEM”) podzieli ciąg osobno (każde słowo osobno). Teraz użyjmy tych funkcji podłańcuchów w przykładach.

Jak używać funkcji podłańcuchów w VBA?

Dowiemy się, jak używać funkcji SubString w Excelu za pomocą kodu VBA.

Przykład #1

Funkcja Substring w VBA. Użyjmy pierwszej funkcji podciągu w VBA. W tym celu wykonaj poniższe kroki:

Krok 1: Przejdź do zakładki programisty i kliknij przycisk Visual Basic, aby otworzyć edytor VB.

Krok 2: Wstaw nowy moduł wewnątrz edytora Visual Basic (VBE). Kliknij na zakładkę Wstaw > wybierz Moduł.

Krok 3: Zadeklaruj podfunkcję, aby rozpocząć pisanie kodu.

Kod:

Sub Sample()End Sub

Krok 4: Zadeklaruj dwa ciągi jeden do pobierania danych wejściowych od użytkownika, a drugi do przechowywania wartości wyniku.

Kod:

Sub Sample()Dim A, B As StringEnd Sub

Krok 5: Pobranie danych wejściowych od użytkownika dla łańcucha wejściowego za pomocą funkcji input box.

Kod:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

Krok 6: W zmiennej B zapisać wartość z lewej funkcji do trzeciego miejsca.

Kod:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Left(A, 3)End Sub

Krok 7: Użyj funkcji Msgbox do wyświetlenia wyniku końcowego.

Kod:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Left(A, 3)MsgBox BEnd Sub

Krok 8: Teraz uruchom powyższy kod naciskając klawisz F5. i Zapisz łańcuch wejściowy jako ANAND.

Krok 9: Po naciśnięciu przycisku OK widzimy wynik działania funkcji lewego podciągu.

ANA to trzy znaki z lewej strony ciągu znaków.

Przykład #2

Funkcja prawego podciągu w VBA. W tym celu wykonaj poniższe kroki:

Krok 1: W tym samym module zadeklaruj kolejną podfunkcję, aby rozpocząć pisanie kodu dla funkcji prawy podciąg.

Kod:

Sub Rightsub()End Sub

Krok 2: Zadeklaruj dwie zmienne A i B jako string.

Kod:

Sub Rightsub()Dim A, B As StringEnd Sub

Krok 3: Pobierz dane wejściowe od użytkownika i zapisz ich wartość w zmiennej A.

Kod:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

Krok 4: Użyj funkcji Prawo na łańcuchu do trzeciego miejsca i zapisz wartość w zmiennej B.

Kod:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Right(A, 3)End Sub

Krok 5: Użyj funkcji Msgbox, aby wyświetlić wartość B.

Kod:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Right(A, 3)MsgBox BEnd Sub

Krok 6: Uruchom kod i wprowadź ciąg wejściowy jako „MATKA”.

Krok 7: Naciśnij przycisk OK, aby zobaczyć wynik.

HER to trzy znaki z prawej strony łańcucha.

Przykład #3

Funkcja MID Substring w VBA. W tym celu wykonaj poniższe kroki:

Krok 1: W tym samym module zadeklaruj kolejną podfunkcję, aby rozpocząć pisanie kodu dla funkcji Mid.

Kod:

Sub MIDsub()End Sub

Krok 2: Zadeklaruj dwie zmienne A i B jako String.

Kod:

Sub MIDsub()Dim A, B As StringEnd Sub

Krok 3: Pobierz dane wejściowe od użytkownika i zapisz ich wartość w zmiennej A.

Kod:

Sub MIDsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

Krok 4: Użyj funkcji Mid z pozycją początkową 4 i długością 3, aby zapisać wartość w zmiennej B i wyświetlić ją za pomocą funkcji Msgbox.

Kod:

Sub MIDsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Mid(A, 4, 3)MsgBox BEnd Sub

Krok 5: Uruchom powyższy kod i podaj COMPUTER jako dane wejściowe.

Krok 6: Naciśnij OK, aby zobaczyć wynik końcowy.

Podłańcuch PUT zaczyna się od czwartej pozycji i udało nam się wyodrębnić trzy znaki.

Przykład #4

Funkcja VBA Podział podłańcucha. W tym celu wykonaj następujące kroki:

Krok 1: W tym samym module zadeklaruj podfunkcję, aby rozpocząć pisanie kodu dla podfunkcji.

Kod:

Sub SplitSub()End Sub

Krok 2: Zadeklaruj dwie zmienne A jako łańcuch i B jako tablicę String i weź łańcuch wejściowy od użytkownika i przechowuj go w zmiennej A.

Kod:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")End Sub

Krok 3: Użyj funkcji Split SubString i zapisz jej wartość w zmiennej B.

Kod:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")B = Split(A, ",")End Sub

Krok 4: Użyj pętli For, aby wyświetlić każdy SubString w jednym wierszu.

Kod:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")B = Split(A, ",")For i = LBound(B) To UBound(B)strg = strg & vbNewLine & "String Number " & i & " - " & B(i)Next iMsgBox strgEnd Sub

Krok 5 Uruchom powyższy kod i podaj I,AM,GOOD,BOY jako dane wejściowe.

Krok 6: Naciśnij OK, aby zobaczyć wynik.

W powyższym przykładzie użyliśmy „,” jako separatora.

Wniosek

Podobnie jak funkcje podłańcuchów arkusza, VBA również posiada funkcje podłańcuchów. Są to funkcje Left Right Mid i Split. Zasadniczo funkcje podłańcuchów dzielą łańcuch lub tablicę łańcuchów na wiele podłańcuchów. Jeśli chcemy podłańcuch z lewej strony łańcucha używamy funkcji Lewo lub Prawo w odwrotnym przypadku. Jeżeli chcemy środkowy znak danego łańcucha używamy funkcji MID. Również jeśli mamy tablicę łańcuchów używamy funkcji split.

Rzeczy do zapamiętania

Jest kilka rzeczy, które musimy pamiętać o funkcjach podłańcuchów w VBA:

• Jest to podobne do funkcji podłańcuchów arkusza.
• Funkcje podłańcuchowe dzielą dany łańcuch na podłańcuchy.
• Jeśli mamy tablicę łańcuchów, używamy funkcji split.
• Tylko łańcuch wejściowy w funkcji split jest obowiązkowy, podczas gdy pozostałe są opcjonalne.

Zalecane artykuły

To jest przewodnik po funkcji VBA SubString. Omawiamy tutaj, jak używać funkcji SubString w Excelu VBA wraz z praktycznymi przykładami i szablonem Excela do pobrania. Możesz również przejrzeć nasze inne sugerowane artykuły –

1. VBA SendKeys
2. VBA On Error Goto
3. VBA Input
4. VBA LBound

.