ВБА ЛЕН функција | Како користити ЛЕН за проналажење дужине низа у програму Екцел?

Лен функција је уобичајена функција и за радни лист и за ВБА, она је уграђена функција за обе платформе, а синтакса за коришћење ове функције је такође слична, аргументи које ова функција узима на обе платформе су слични што је низ и употреба или је излаз за ову функцију исти као што враћа дужину низа.

ВБА ЛЕН функција

ВБА ЛЕН функција враћа „дужину низа“, тј. Враћа колико знакова има у наведеној вредности. Од свих функција низа у ВБА, „ЛЕН“ је функција која се најмање користи. Видео сам функцију „ВБА ЛЕН“ која се користи као функција подршке за друге функције низа као што су ВБА МИД функције и ВБА ДЕСНА функција.

Како ћете пронаћи дужину низа или вредност?

На пример, ако изречете реченицу „Здраво момци, добро јутро !!!“ а ви ако желите да пронађете број знакова у њему како ћете га пронаћи? У овом чланку ћемо вам показати функцију „ВБА ЛЕН“.

Формула функције ВБА ЛЕН

ЛЕН функција има само једну синтаксу, тј. Екпрессион.

Израз није ништа друго до вредност коју покушавамо да тестирамо.

На пример, Лен („Добро“) ће вратити 4.

Примери

Испод су примери ВБА дужине функције низа.

Пример # 1

Дужина функције ВБА Стринг је врло једноставна за употребу. На пример, погледајте доленаведени ВБА код.

Шифра:

 Суб ЛЕН_Екампле () Дим Тотал_Ленгтх Ас Стринг Тотал_Ленгтх = Лен ("Екцел ВБА") МсгБок Тотал_Ленгтх Енд Суб 

У горњој променљивој кода је „Тотал_Ленгтх“.

Затамни укупну дужину као низ

За ову променљиву вредност смо доделили преко функције ВБА ЛЕН.

Укупна_дужина = Лен ("Екцел ВБА")

За функцију ЛЕН доделили смо вредност као „Екцел ВБА“.

Укупна_дужина = Лен ("Екцел ВБА")

Даље, приказујемо резултат у оквиру ВБА поруке.

МсгБок Тотал_Ленгтх

Када покренем овај код помоћу тастера Ф5 или ручно, добићемо 9 као резултат, јер је размак такође знак.

ВБА ЛЕН као функција подршке

Пример # 1

Сврха функције ЛЕН углавном се користи са осталим функцијама. Ову функцију сам користио са ДЕСНИМ и Инстр функцијама.

На пример, погледајте доленаведене узорке података.

Из горњих података треба издвојити Датум одвојено и Напомене засебно. Копирајте горе наведене податке на свој Екцел лист и налепите у ћелију А1.

Да бисмо издвојили ове елементе, морамо да користимо функцију ЛЕН са осталим функцијама низа. Код у наставку ће обавити посао за нас.

Шифра:

 Суб ЛЕН_Екампле1 () Дим ОурВалуе Ас Стринг Дим к Ас Лонг Фор к = 2 То 6 'У овом случају моји подаци почињу од друге ћелије и завршавају се на 6. месту. 'На основу ваших података промените бројеве ОурВалуе = АцтивеСхеет.Целлс (к, 1) .Валуе' Ово ће издвојити првих 10 знакова, тј. Део датума АцтивеСхеет.Целлс (к, 2) .Валуе = Лефт (Трим (ОурВалуе), 10) 'Ово ће извући део примедби АцтивеСхеет.Целлс (к, 3) .Валуе = Мид (Трим (ОурВалуе), 11, Лен (Трим (ОурВалуе)) - 10) Нект Енд Суб 

Када покренемо овај код ручно или преко тастера Ф5, добићемо резултат као доле.

Пример # 2

Сада ћу вам показати како да користите ВБА Ленгтх стринг као функцију подршке за издвајање презимена пуног имена помоћу РИГХТ & Инстр функције.

За демонстрацију погледајте доле наведене податке.

Са горње листе морамо извући презиме из пуног имена. Код у наставку издвојиће презиме. ЛЕН се овде користи као функција подршке.

Шифра:

 Суб ЛЕН_Екампле2 () Дим ФуллНаме Ас Стринг Дим к Ас лонг фор к = 2 То 8 ФуллНаме = АцтивеСхеет.Целлс (к, 1) .Валуе 'Ово ће издвојити презиме АцтивеСхеет.Целлс (к, 2) .Валуе = Ригхт (ФуллНаме , Лен (ФуллНаме) - ИнСтр (1, ФуллНаме, "")) 'ЛЕН проналази пуни број знакова' Инстр проналази размак 'ЛЕН - Инст вилл даје укупан број знакова са десне стране Нект Енд Суб 

Покрените код помоћу тастера Ф5 или можете покренути ручно и видети резултат.

Ову Екцел ВБА дужину низа можете преузети овде - Предложак функције ВБА ЛЕН