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

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

- Претраживање низа: Ово није ништа друго до оно што је реченица низа, тј. Из којег низа или речи желите да извучете вредности.
- Почетни положај: Из којег положаја реченице желите да издвојите. Ово би требало да буде нумеричка вредност.
- Број знакова за издвајање: Колико знакова желите да извучете са почетне позиције? Ово би такође требало да буде нумеричка вредност.
Како се користи ВБА МИД функција?
Пример # 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 је наше име, тј., „Рамесх, Тендулкар.“
Шифра:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar", End Sub

Step 8: String 2 what is the separator of first name & last name, i.e., comma (,).
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar",",") End Sub

Note: Instr function will return how many characters are there in the word “Ramesh, Tendulkar” from the string 1 position to the string 2 positions, i.e., until comma (,). So Instr will return 7 as a result, including comma (,).
Step 9: Since Instr function returns no., of characters including comma (,) we need to minus 1 character here. So enter -1 after the close of Instr function.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) End Sub

Step 10: Now show the value of the variable in the message box.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) MsgBox FirstName End Sub

Step 11: Run this code using the F5 key, or you can run this code manually. We would get the first name in the message box.

Output:

Example #3
Now I will give you one assignment to solve. I have a list of First Name & Last Name.

From this list, I want you to extract the first name only. All the best!!!!.
Ok, If you have tried and not able to get the result, then the below code would help you in this.
Code:
Суб МИД_ВБА_Екампле3 () Дим и Колико дуго и = 2 до 15 ћелија (и, 2) .Вредност = Мид (Ћелије (и, 1) .Вредност, 1, ИнСтр (1, Ћелије (и, 1) .Вредност, " , ") - 1) Даље и Крај Суб
Копирајте и залепите горњи код у свој модул. Након копирања кода, покрените га помоћу тастера Ф5 или можете покренути ручно.

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

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