photosdematures.com

Екцел ВБА МИД функција

ВБА МИД функција издваја вредности из средине испоручене реченице или речи. МИД функција је категоризирана под функцијом Стринг анд Тект и функција је радног листа што значи да за кориштење ове функције у ВБА морамо користити методу апплицатион.ворксхеет.

Постоје ситуације у којима желимо да издвојимо име, презиме или средње име. У тим ситуацијама формуле категорије ТЕКСТ помажу у испуњавању наших захтева. Употреба ове функције је иста као и референца радног листа, а синтакса је такође иста.

Синтакса

Као и наша екцел МИД функција, и у ВБА има сличан скуп вредности синтаксе. Испод је синтакса.

• Стринг то Сеарцх: Ово није ништа друго до каква је реченица низа, тј. Из којег низа или речи желите да извучете вредности.
• Почетни положај: Из којег положаја реченице желите да извучете. Ово би требало да буде нумеричка вредност.
• Број знакова за издвајање: Са почетне позиције, колико знакова желите да издвојите? Ово би такође требало да буде нумеричка вредност.

Како се користи ВБА МИД функција?

Овај ВБА МИД шаблон функције можете преузети овде - ВБА МИД шаблон функције

Пример # 1

Претпоставимо да имате реч „Здраво добро јутро“ и из ове реченице желите да издвојите „Добро“. Следите кораке у наставку да бисте издвојили вредност.

Корак 1: Прво креирајте име макронаредбе.

Шифра:

 Суб МИД_ВБА_Екампле1 () Крај Суб 

Корак 2: Прогласите променљиву као „СТРИНГ“.

Шифра:

 Суб МИД_ВБА_Екампле1 () Затамни МиддлеВалуе као низ на крају Суб 

Корак 3: Сада доделите вредност овој променљивој путем МИД функције.

Шифра:

 Суб МИД_ВБА_Екампле1 () Дим МиддлеВалуе Ас Стринг МиддлеВалуе = Мид (Енд Суб) 

Корак 4: Први аргумент је Стринг, тј. Из које вредности желимо да издвојимо. Дакле, наша вредност је „Здраво добро јутро“.

Шифра:

 Суб МИД_ВБА_Екампле1 () Дим МиддлеВалуе Ас Стринг МиддлеВалуе = Мид ("Хелло Гоод Морнинг", Енд Суб 

Корак 5: Следеће је која је почетна позиција лика који желите да издвојите. У овом случају, Добро јутро почиње од 7. знака.

Белешка: Простор је такође карактер.

Шифра:

 Суб МИД_ВБА_Екампле1 () Дим МиддлеВалуе Ас Стринг МиддлеВалуе = Мид ("Хелло Гоод Морнинг", 7 Енд Суб 

Корак 6: Дужина није ништа друго до колико знакова желите да издвојите. Овде треба да издвојимо 4 знака, јер је дужина речи „Добро“ 4 знака.

Шифра:

 Суб МИД_ВБА_Екампле1 () Дим МиддлеВалуе Ас Стринг МиддлеВалуе = Мид ("Хелло Гоод Морнинг", 7, 4) Енд Суб 

Корак 7: Завршили смо формулу. Покажимо резултат променљиве у оквиру за поруку.

Шифра:

 Суб МИД_ВБА_Екампле1 () Дим МиддлеВалуе Ас Стринг МиддлеВалуе = Мид ("Хелло Гоод Морнинг", 7, 4) МсгБок МиддлеВалуе Енд Суб 

Корак 8: Сада покрените овај код ручно или притисните тастер Ф5, у оквиру за поруку требало би да се налази реч „Добро“.

Излаз:

Пример # 2

Претпоставимо да заједно имате име и презиме и реч је „Рамесх, Тендулкар“. Између имена и презимена знак за раздвајање је зарез (,). Сада треба да издвојимо само име.

Корак 1: Направите макро и дефинишите променљиву.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме као Стринг Енд Суб 

Корак 2: Сада доделите вредност овој променљивој путем МИД функције.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид (Енд Суб 

Корак 3: Наш низ је „Рамесх.Тендулкар“, зато унесите ову реч.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", Енд Суб 

Корак 4: Пошто извлачимо име, почетна позиција је 1.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", 1, Енд Суб 

Корак 5: Дужина знака коју можете директно унети као 6, али ово није најбољи начин. Да бисмо одредили дужину, применимо још једну формулу звану Инстр.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", 1, ИнСтр (Енд Суб) 

Корак 6: За ову почетну позицију је 1.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", 1, ИнСтр (1, Енд Суб) 

Корак 7: Низ 1 је наше име, тј. „Рамесх, Тендулкар“.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", 1, ИнСтр (1, "Рамесх, Тендулкар", Енд Суб) 

Корак 8: Низ 2 који је сепаратор имена и презимена, тј. Зареза (,).

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", 1, ИнСтр (1, "Рамесх, Тендулкар", ",") Енд Суб 

Белешка: Функција Инстр ће вратити колико знакова постоји у речи „Рамесх, Тендулкар“ са положаја низа 1 на положаје низа 2, тј. До зареза (,). Дакле, Инстр ће вратити 7 као резултат укључујући зарез (,).

Корак 9: Будући да функција Инстр враћа број знакова, укључујући зарез (,), овде треба да минус 1 знак. Дакле, унесите -1 након затварања функције Инстр.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", 1, ИнСтр (1, "Рамесх, Тендулкар", ",") - 1) Крај Суб 

Корак 10: Сада у пољу за поруке прикажите вредност променљиве.

Шифра:

 Суб МИД_ВБА_Екампле2 () Дим ФирстНаме Ас Стринг ФирстНаме = Мид ("Рамесх, Тендулкар", 1, ИнСтр (1, "Рамесх, Тендулкар", ",") - 1) МсгБок ФирстНаме Енд Суб 

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

Излаз:

Пример # 3

Сад ћу вам дати један задатак за решавање. Имам списак имена и презимена.

Са ове листе желим да извучете само име. Све најбоље!!!!.

Ок, ако сте покушали и не успете да добијете резултат, доњи код би вам у томе помогао.

Шифра:

 Суб МИД_ВБА_Екампле3 () Дим и Колико дуго и = 2 до 15 ћелија (и, 2) .Вредност = Мид (Ћелије (и, 1) .Вредност, 1, ИнСтр (1, Ћелије (и, 1) .Вредност, " , ") - 1) Даље и Крај Суб 

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

Требало би дати резултат као доле.

Ствари које треба запамтити

• Аргумент дужине у МИД функцији није обавезан. Ако ово занемарите, узимаће се 1 као подразумевана вредност.
• Да бисте одредили дужину или почетни положај, користите функцију Инстр заједно са функцијом МИД.