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

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

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

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

Синтакса

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

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

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

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

Пример # 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 као подразумевана вредност.
  • Да бисте одредили дужину или почетни положај, користите функцију Инстр заједно са функцијом МИД.