Лен функција је уобичајена функција и за радни лист и за ВБА, то је уграђена функција за обе платформе, а синтакса за коришћење ове функције је такође слична, аргументи које ова функција узима на обе платформе су слични што је низ и употреба или је излаз за ову функцију исти као што враћа дужину низа.
ВБА ЛЕН функција
ВБА ЛЕН функција враћа „дужину низа“, тј. И враћа колико знакова има у наведеној вредности. Од свих функција низа у ВБА, „ЛЕН“ је функција која се најмање користи. Видео сам функцију „ВБА ЛЕН“ која се користи као функција подршке за друге функције низа као што су ВБА МИД функције и ВБА ДЕСНА функција.
Како ћете пронаћи дужину низа или вредност?
На пример, ако изговорите реченицу „Здраво момци, добро јутро !!!“ и желите да пронађете број знакова у њему, како га пронаћи? У овом чланку ћемо вам показати функцију „ВБА ЛЕН“.
Формула функције ВБА ЛЕН
ЛЕН функција има само једну синтаксу, тј. Екпрессион.
Израз није ништа друго до вредност коју покушавамо да тестирамо.
На пример, Лен („Добро“) ће вратити 4.
Примери
Испод су примери ВБА дужине функције низа.
Пример # 1
Дужина функције ВБА Стринг је врло једноставна за употребу. На пример, погледајте доленаведени ВБА код.
Шифра:
Суб ЛЕН_Екампле () Дим Тотал_Ленгтх Ас Стринг Тотал_Ленгтх = Лен ("Екцел ВБА") МсгБок Тотал_Ленгтх Енд Суб
У горњој променљивој кода је „Тотал_Ленгтх.“
Затамни укупну дужину као низ
За ову променљиву вредност смо доделили преко функције ВБА ЛЕН.
Укупна_дужина = Лен ("Екцел ВБА")
За функцију ЛЕН доделили смо вредност као „Екцел ВБА“.
Укупна_дужина = Лен ("Екцел ВБА")
Даље, приказујемо резултат у оквиру ВБА поруке.
МсгБок Тотал_Ленгтх
Када покренем овај код помоћу тастера Ф5 или ручно, добићемо 9 као резултат, јер је размак такође знак.
ВБА ЛЕН као функција подршке
Пример # 1
Сврха функције ЛЕН углавном се користи са осталим функцијама. Ову функцију сам користио са ДЕСНИМ и Инстр функцијама.
На пример, погледајте доленаведене узорке података.
Из горњих података треба издвојити Датум одвојено и Напомене засебно. Копирајте горе наведене податке на свој Екцел лист и налепите у ћелију А1.
Да бисмо издвојили ове елементе, морамо да користимо функцију ЛЕН са осталим функцијама низа. Код у наставку ће обавити посао за нас.
Шифра:
Sub LEN_Example1() Dim OurValue As String Dim k As Long For k = 2 To 6 'In this case my data started from second cell and ends at 6th. 'Based on your data change the numbers OurValue = ActiveSheet.Cells(k, 1).Value 'This will extract first 10 characters i.e. Date portion ActiveSheet.Cells(k, 2).Value = Left(Trim(OurValue), 10) 'This will extract teh remarks portion ActiveSheet.Cells(k, 3).Value = Mid(Trim(OurValue), 11, Len(Trim(OurValue)) - 10) Next End Sub
When we run this code manually or through the F5 key, we will get the result like the below.
Example #2
Now I will show you how to use VBA Length of string as a support function to extract the last name of the full name with the RIGHT & Instr function.
For the demonstration, look at the below data.
Са горње листе морамо извући презиме из пуног имена. Код у наставку издвојиће презиме. ЛЕН се овде користи као функција подршке.
Шифра:
Суб ЛЕН_Екампле2 () Дим ФуллНаме Ас Стринг Дим к Ас лонг фор к = 2 То 8 ФуллНаме = АцтивеСхеет.Целлс (к, 1) .Валуе 'Ово ће издвојити презиме АцтивеСхеет.Целлс (к, 2) .Валуе = Ригхт (ФуллНаме , Лен (ФуллНаме) - ИнСтр (1, ФуллНаме, "")) 'ЛЕН проналази пуни број знакова' Инстр проналази размак 'ЛЕН - Инст вилл даје укупан број знакова с десне стране Нект Енд Суб
Покрените код помоћу тастера Ф5, или можете покренути ручно и видети резултат.
Ову Екцел ВБА дужину низа можете преузети овде - Предложак функције ВБА ЛЕН
