Funkcja VBA LEN

Funkcja Len jest popularną funkcją zarówno dla arkusza roboczego, jak i VBA, jest wbudowaną funkcją dla obu platform, a składnia użycia 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 zwracają długość ciągu.

Funkcja VBA LEN zwraca „długość ciągu”, czyli zwraca ile znaków jest 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 !!!” a jeśli chcesz znaleźć liczbę znaków w nim, jak to znaleźć? W tym artykule pokażemy Ci 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”)

Dla funkcji LEN przypisaliśmy wartość jako „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

Cel funkcji LEN jest używany 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 RIGHT & Instr.

Dla 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żywany 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