Funkcja Len jest popularną funkcją zarówno dla arkusza roboczego, jak i VBA, jest wbudowaną funkcją dla obu platform, a składnia korzystania z tej funkcji jest również podobna, argumenty, które ta funkcja pobiera na obu platformach, są podobne, co jest ciągiem znaków i zastosowaniem lub dane wyjściowe dla tej funkcji są takie same, jak zwraca długość ciągu.
Funkcja VBA LEN
Funkcja VBA LEN zwraca „długość ciągu”, tj. Zwraca liczbę znaków zawartych w podanej wartości. Ze wszystkich funkcji tekstowych w VBA, „LEN” jest najczęściej wykorzystywaną funkcją. Widziałem funkcję „VBA LEN” używaną jako funkcja wsparcia dla innych funkcji ciągów, takich jak funkcje VBA MID i funkcja VBA RIGHT.
Jak znaleźć długość ciągu lub wartości?
Na przykład, jeśli zdanie „Hello Guys, Good Morning !!!” i chcesz znaleźć w nim liczbę znaków, jak to znaleźć? W tym artykule pokażemy funkcję „VBA LEN”.
Formuła funkcji VBA LEN
Funkcja LEN ma tylko jedną składnię, tj. Expression.
Wyrażenie to nic innego jak wartość, którą próbujemy przetestować.
Na przykład Len („Good”) zwróci 4.
Przykłady
Poniżej znajdują się przykłady funkcji VBA Length of String.
Przykład 1
Długość funkcji ciągu VBA jest bardzo prosta w użyciu. Na przykład spójrz na poniższy kod VBA.
Kod:
Sub LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub
W powyższym kodzie zmienna to „Total_Length”.
Dim Total_Length As String
Do tej zmiennej przypisaliśmy wartość za pomocą funkcji VBA LEN.
Total_Length = Len („Excel VBA”)
Do funkcji LEN przypisaliśmy wartość „Excel VBA”.
Total_Length = Len („Excel VBA”)
Następnie pokazujemy wynik w oknie komunikatu VBA.
MsgBox Total_Length
Kiedy uruchomię ten kod za pomocą klawisza F5 lub ręcznie, otrzymamy w rezultacie 9, ponieważ spacja jest również znakiem.
VBA LEN jako funkcja wsparcia
Przykład 1
Funkcja LEN jest wykorzystywana głównie z innymi funkcjami. Użyłem tej funkcji z funkcjami RIGHT i Instr.
Na przykład spójrz na poniższe przykładowe dane.
Z powyższych danych musimy osobno wyodrębnić datę i uwagi osobno. Skopiuj powyższe dane do arkusza Excela i wklej w komórce A1.
Aby wyodrębnić te elementy, musimy użyć funkcji LEN z innymi funkcjami tekstowymi. Poniższy kod wykona zadanie za nas.
Kod:
Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'W tym przypadku moje dane zaczynały się od drugiej komórki i kończą na 6. 'Na podstawie danych zmień liczby OurValue = ActiveSheet.Cells (k, 1) .Value' Spowoduje to wyodrębnienie pierwszych 10 znaków, tj. Części daty ActiveSheet.Cells (k, 2) .Value = Left (Trim (OurValue), 10) Spowoduje to wyodrębnienie części uwag ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub
Kiedy uruchomimy ten kod ręcznie lub za pomocą klawisza F5, otrzymamy wynik podobny do poniższego.
Przykład nr 2
Teraz pokażę ci, jak używać długości ciągu VBA jako funkcji pomocniczej do wyodrębnienia nazwiska pełnego imienia i nazwiska za pomocą funkcji PRAWO i instr.
W celu demonstracji spójrz na poniższe dane.
Z powyższej listy musimy wyodrębnić nazwisko z pełnego imienia i nazwiska. Poniższy kod wyodrębni nazwisko. LEN jest tutaj używana jako funkcja pomocnicza.
Kod:
Sub LEN_Example2 () Dim FullName As String Dim k As Long For k = 2 To 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Spowoduje to wyodrębnienie nazwiska ActiveSheet.Cells (k, 2) .Value = Right (FullName , Len (FullName) - InStr (1, FullName, "")) 'LEN znajduje pełną liczbę znaków' Instr znajduje znak spacji 'LEN - Inst podaje całkowitą liczbę znaków z prawej strony Next End Sub
Uruchom kod za pomocą klawisza F5 lub możesz uruchomić ręcznie i zobaczyć wynik.
Możesz pobrać tę długość ciągu Excel VBA tutaj - szablon funkcji VBA LEN
