Функция VBA MID

Функция Excel VBA MID

VBA СРЕДНИЙ функция извлекает значения из середины предоставленного предложения или слова. Функция MID классифицируется как функция String и Text, и это функция рабочего листа, что означает, что для использования этой функции в VBA нам нужно использовать метод application.worksheet.

Бывают ситуации, когда мы хотим извлечь имя, фамилию или отчество. В таких ситуациях формулы категории ТЕКСТ полезны для выполнения наших требований. Использование этой функции такое же, как и у ссылки на рабочий лист, и синтаксис такой же.

Вы можете использовать это изображение на своем веб-сайте, в шаблонах и т. д. Пожалуйста, предоставьте нам ссылку на авторствоКак предоставить атрибуцию?Ссылка на статью должна быть гиперссылкой
Например:
Источник: функция VBA MID (wallstreetmojo.com).

Синтаксис

Как наш функция Excel MIDФункция Excel MIDФункция mid в Excel — это текстовая функция, которая находит строки и возвращает их из любой средней части электронной таблицы. читать далее, и в VBA он имеет аналогичный набор значений синтаксиса. Ниже приведен синтаксис.

Синтаксис MID
  • Строка для поиска: Это не что иное, как предложение строки, т. е. из какой строки или слова вы хотели бы извлечь значения.
  • Начальная позиция: Из какой позиции предложения вы хотите извлечь. Это должно быть числовое значение.
  • Количество символов для извлечения: Из исходной позиции, сколько символов вы хотите извлечь? Это также должно быть числовым значением.

Как использовать функцию VBA MID?

Вы можете скачать этот шаблон функции VBA MID здесь — Шаблон функции VBA MID

Пример №1

Предположим, у вас есть слово «Здравствуйте, доброе утро», и вы хотите извлечь из этого предложения слово «Добро». Выполните следующие шаги, чтобы извлечь значение.

Шаг 1: Сначала создайте имя макроса.

Код:

Sub MID_VBA_Example1()

End Sub
Пример VBA MID 1

Шаг 2: Объявите переменную как «STRING».

Код:

Sub MID_VBA_Example1()

   Dim MiddleValue As String

End Sub
Пример VBA MID 1-1

Шаг 3: Теперь присвойте значение этой переменной с помощью функции MID.

Код:

Sub MID_VBA_Example1()

    Dim MiddleValue As String

    MiddleValue = Mid(

End Sub
Пример VBA MID 1-2

Шаг 4: Первый аргументом является String, т. е. значение, из которого мы хотим извлечь. Итак, наше значение — «Привет, доброе утро».

Код:

Sub MID_VBA_Example1()

    Dim MiddleValue As String

    MiddleValue = Mid("Hello Good Morning",

End Sub
Пример VBA MID 1-3

Шаг 5: Далее следует определить начальную позицию символа, который вы хотите извлечь. В этом случае Доброе утро начинается с 7й персонаж.

Примечание: Космос — это тоже персонаж.

Код:

Sub MID_VBA_Example1()

    Dim MiddleValue As String

    MiddleValue = Mid("Hello Good Morning", 7

End Sub
Пример VBA MID 1-4

Шаг 6: Длина — это не что иное, как количество символов, которые вы хотите извлечь. Здесь нам нужно извлечь 4 символа, потому что длина слова «Хорошо» составляет 4 символа.

Код:

Sub MID_VBA_Example1()

    Dim MiddleValue As String

    MiddleValue = Mid("Hello Good Morning", 7, 4)

End Sub
Пример VBA MID 1-5

Шаг 7: Мы завершили формулу. Давайте покажем результат переменной в окне сообщения.

Код:

Sub MID_VBA_Example1()

    Dim MiddleValue As String

    MiddleValue = Mid("Hello Good Morning", 7, 4)

    MsgBox MiddleValue

End Sub
Пример VBA MID 1-6

Шаг 8: Теперь запустите этот код вручную или нажмите клавишу F5, в окне сообщения должно появиться слово «Хорошо».

Пример VBA MID 1-6

Вывод:

Пример VBA MID 1-7

Пример #2

Предположим, что у вас есть имя и фамилия вместе, и слово «Рамеш, Тендулкар». Между именем и фамилией разделительным символом является запятая (,). Теперь нам нужно извлечь только имя.

Шаг 1: Создайте макрос и определите переменную.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

End Sub
Пример VBA MID 2

Шаг 2: Теперь присвойте значение этой переменной с помощью функции MID.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid(

End Sub
Пример VBA MID 2-1

Шаг 3: Наша строка — «Ramesh.Tendulkar», так что введите это слово.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar",

End Sub
Пример VBA MID 2-2

Шаг 4: Поскольку мы извлекаем начальную позицию имени, это 1.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar",1,


End Sub
Пример VBA MID 2-3

Шаг 5: Длину символа можно сразу ввести как 6, но это не лучший способ. Для определения длины применим еще одну формулу Instr.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar",1,InStr(

End Sub
Пример VBA MID 2-4

Шаг 6: Для этой начальной позиции 1.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,


End Sub
Пример VBA MID 2-5

Шаг 7: Строка 1 — это наше имя, то есть «Рамеш, Тендулкар».

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar",


End Sub
Пример VBA MID 2-6

Шаг 8: Строка 2, что является разделителем имени и фамилии, т.е. запятая (,).

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar",",")

End Sub
Пример VBA MID 2-7

Примечание: Функция Instr вернет количество символов в слове «Рамеш, Тендулкар» от позиции строки 1 до позиции строки 2, т. е. до запятой (,). Таким образом, Instr вернет в результате 7, включая запятую (,).

Шаг 9: Поскольку функция Instr возвращает количество символов, включая запятую (,), нам нужно минус 1 символ здесь. Поэтому введите -1 после закрытия функции Instr.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1)

End Sub
Пример VBA MID 2-8

Шаг 10: Теперь покажите значение переменной в окне сообщения.

Код:

Sub MID_VBA_Example2()

    Dim FirstName As String

    FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1)

    MsgBox FirstName

End Sub
Пример 2-9

Шаг 11: Запустите этот код с помощью клавиши F5, или вы можете запустить этот код вручную. Мы получим первое имя в окне сообщения.

Пример 2-10

Вывод:

Пример 2-11

Пример №3

Сейчас я дам вам одно задание для решения. У меня есть список имен и фамилий.

Середина пример 3

Я хочу, чтобы вы извлекли из этого списка только первое имя. Всего наилучшего!!!!.

Хорошо, если вы пробовали и не смогли получить результат, то приведенный ниже код поможет вам в этом.

Код:

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

Скопируйте и вставьте приведенный выше код в свой модуль. После копирования кода запустите этот код с помощью клавиши F5, либо вы можете запустить вручную.

Приложение Visual Basic в середине MID Пример 3-1

Это должно дать результат, как показано ниже.

Приложение Visual Basic в середине Пример 3-2

То, что нужно запомнить

  • Аргумент длины в функции MID является необязательным. Если вы проигнорируете это, он примет 1 в качестве значения по умолчанию.
  • Чтобы определить длину или начальную позицию, используйте функцию Instr вместе с функцией MID.

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *