VBA MID функция | Как да използвам функцията Excel VBA MID?

Excel VBA MID функция

Функцията VBA MID извлича стойностите от средата на предоставеното изречение или дума. Функцията MID е категоризирана по функцията String и Text и е функция на работен лист, което означава, че за да използваме тази функция във VBA, трябва да използваме метода application.worksheet.

Има ситуации, в които искаме да извлечем собственото, фамилното или бащиното име. В тези ситуации формулите за категория TEXT са полезни за изпълнение на нашите изисквания. Използването на тази функция е същото като това на справочния лист на работния лист и синтаксисът също е същият.

Синтаксис

Подобно на нашата функция excel MID, и в VBA тя има подобен набор от синтаксисни стойности. По-долу е синтаксисът.

  • String to Search: Това не е нищо друго освен какво е изречението на string, т.е. от кой низ или дума искате да извлечете стойностите.
  • Начална позиция: От коя позиция на изречението искате да извлечете. Това трябва да е числова стойност.
  • Брой символи за извличане: От начална позиция колко символа искате да извлечете? Това също трябва да е числова стойност.

Как да използвам функцията VBA MID?

Можете да изтеглите този шаблон на VBA MID функция тук - VBA MID функция шаблон

Пример # 1

Да приемем, че имате думата „Здравей, добро утро“ и искате да извлечете „Добро“ от това изречение. Следвайте стъпките по-долу, за да извлечете стойността.

Стъпка 1: Създайте първо име на макрос.

Код:

 Sub MID_VBA_Example1 () Край Sub

Стъпка 2: Декларирайте променлива като „STRING“.

Код:

 Sub MID_VBA_Example1 () Dim MiddleValue As String End Sub

Стъпка 3: Сега задайте стойност на тази променлива чрез MID функция.

Код:

 Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid (End Sub)

Стъпка 4: Първият аргумент е String, т.е. от коя стойност искаме да извлечем. Така че нашата стойност е „Здравей, добро утро“.

Код:

 Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", End Sub

Стъпка 5: Следващата е началната позиция на знака, който искате да извлечете. В този случай Добро утро започва от 7-ми знак.

Забележка: Пространството също е символ.

Код:

 Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7 End Sub

Стъпка 6: Дължината не е нищо друго освен колко символа искате да извлечете. Тук трябва да извлечем 4 знака, тъй като дължината на думата „Добър“ е 4 знака.

Код:

 Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7, 4) End Sub

Стъпка 7: Попълнихме формулата. Нека покажем резултата от променливата в полето за съобщения.

Код:

 Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7, 4) MsgBox MiddleValue End Sub

Стъпка 8: Сега стартирайте този код ръчно или натиснете клавиша F5, полето за съобщение трябва да показва думата „Добър“.

Изход:

Пример # 2

Assume you have a first name and last name together and the word is “Ramesh, Tendulkar”. Between First Name & Last Name, separation character is a comma (,). Now we need to extract the first name only.

Step 1: Create a macro and define a variable.

Code:

 Sub MID_VBA_Example2()     Dim FirstName As String End Sub

Step 2: Now assign a value to this variable through MID function.

Code:

 Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid( End Sub

Step 3: Our string is “Ramesh.Tendulkar”, so enter this word.

Code:

 Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", End Sub

Step 4: Since we are extracting the first name starting position is 1.

Code:

 Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1, End Sub

Step 5: Length of the character you can directly enter as 6 but this is not the best way. In order to determine the length lets apply one more formula called Instr.

Code:

 Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr( End Sub

Step 6: For this starting position is 1.

Code:

 Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1, End Sub

Step 7: String 1 is our name i.e. “Ramesh, Tendulkar”.

Code:

 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 the 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 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 below code would help you in this.

Code:

 Sub MID_VBA_Example3()     Dim   i   As Long For i = 2   To  15 Cells(i, 2).Value = Mid(Cells(i, 1).Value, 1, InStr(1, Cells(i, 1).Value, ",") - 1)     Next i End Sub

Copy & Paste the above code in your module. After copying the code, run this code using the F5 key or you can run manually.

It should give the result like the below.

Things to Remember

  • Length argument in MID function is optional. If you ignore this it will take 1 as the default value.
  • In order to determine the length or starting position use Instr function along with MID function.