Vba mid функция: Оператор Mid — Visual Basic

Оператор Mid — Visual Basic

Twitter




LinkedIn




Facebook




Адрес электронной почты

• 
  Статья




• 
  04/07/2023
• 
  

Заменяет указанное число символов в переменной String символами из другой строки.

Синтаксис

Mid( _  
   ByRef Target As String, _  
   ByVal Start As Integer, _  
   Optional ByVal Length As Integer _  
) = StringExpression  

Компоненты

Target
Обязательный. Имя переменной для String изменения.

Start
Обязательный. Выражение Integer. Позиция символа в Target том месте, где начинается замена текста. Start использует одноуровневый индекс.

Length
Необязательный элемент. Выражение Integer. Число заменяемых символов. Если этот параметр опущен, используются все String .

StringExpression
Обязательный. String выражение, заменяющее часть Target.

Исключения

Число заменяемых символов всегда меньше или равно количеству символов в Target.

В Visual Basic есть Mid функция и Mid оператор . Оба этих элемента работают с указанным количеством символов в строке, но Mid функция возвращает символы, Mid а оператор заменяет символы. Для получения дополнительной информации см. Mid.

Примечание

Оператор MidB более ранних версий Visual Basic заменяет подстроку в байтах, а не символы. Он используется в основном для преобразования строк в приложениях с двухбайтовой кодировкой (DBCS). Все строки Visual Basic находятся в Юникоде и MidB больше не поддерживаются.

Пример

В этом примере оператор используется Mid для замены указанного числа символов в строковой переменной символами из другой строки.

Dim testString As String
' Initializes string.
testString = "The dog jumps"
' Returns "The fox jumps".
Mid(testString, 5, 3) = "fox"
' Returns "The cow jumps".
Mid(testString, 5) = "cow"
' Returns "The cow jumpe". 
Mid(testString, 5) = "cow jumped over"
' Returns "The duc jumpe".
Mid(testString, 5, 3) = "duck"

Требования

Пространство имен:Microsoft.VisualBasic

Модуль:Strings

Сборки: Библиотека среды выполнения Visual Basic (в Microsoft.VisualBasic.dll)

См. также

• Mid
• Строки
• Знакомство со строками в Visual Basic

Строковые функции VBA

Содержание

1. Строковые функции VBA в Excel
2. Список шести лучших строковых функций в VBA
3. # 1 – Функция LEN
4. # 2 – Функция LEFT
5. # 3 – Функция RIGHT
6. # 4 – Функция MID
7. # 5 – Функция TRIM
8. # 6 – Функция Instr
9. Рекомендуемые статьи

Строковые функции VBA не заменяют строку, а являются результатом этого functions создает новую строку. В VBA есть много строковых функций, и все они разделены на строковые или текстовые функции, некоторые из важных функций – это функция LEFT для получения значения слева и функция RIGHT для получения значения справа или функция MID, функция LEN и INSTR .

Строковые функции так важны. Сразу после определения количества символов в предоставленной строке мы можем извлечь любые символы из строки. Мы можем извлекать символы из левой части строки, мы можем извлекать из правой части строки, мы можем извлекать из середины строки, мы можем объединять два текста, и мы можем разделять их одновременно .

Важно иметь достаточные знания обо всех этих функциях VBA как части большого проекта.

Список шести лучших строковых функций в VBA

1. Функция LEN
2. Функция LEFT
3. Функция RIGHT
4. Функция MID
5. Функция TRIM
6. Функция Instr

Я хотел бы сказать, что « строковые функции VBA – это текстовые функции на листе ».

Вы, должно быть, уже использовали функции excel LEN, LEFT, RIGHT, MID, SUBSTITUTE, чтобы поиграть с данными. В VBA мы также можем использовать их, чтобы поиграть с данными.

Мы обсудим некоторые важные функции в этой статье.

Вы можете скачать это Шаблон Excel для строковых функций VBA здесь – Шаблон Excel для строковых функций VBA

# 1 – Функция LEN

LEN означает «ДЛИНА». Это даст нам количество символов, используемых в предоставленной строке. Например, если вы укажете слово «Hello», LEN в функции excel вернет 5 в качестве результата, потому что в слове «Hello» 5 символов.

В приведенном ниже коде будет показан пример. .

Код:

 Sub LEN_Example () Dim TotalCount как String TotalCount = Len  ("Привет") MsgBox TotalCountEnd Sub 

Это покажет результат в окне сообщения как 5.

# 2 – Функция LEFT

Чтобы извлечь символы из левой части строки, нам нужно использовать функция VBA LEFT. Взгляните на синтаксис функции LEFT.

• Строка – это строка, которую мы пытаемся извлечь.
• Длина – это не что иное, как много символов, которые вам нужны, с левой стороны предоставленной String .

 Sub LEFT_Example () Dim FirstName As String FirstName = Left ("Sachin Tendulkar",  6) MsgBox FirstNameEnd Sub 

Это извлечет первые 6 символов из строки «Sachin Tendulkar». Таким образом, результат будет иметь имя, то есть «Sachin».

Популярные курсы в этой категории

Обучение VBA (3 курса, 12+ проектов)
4,6 (247 оценок) 3 курса | 12 практических проектов | 43+ часов | Полный пожизненный доступ | Сертификат прохождения

->

Просмотр Курс

# 3 – Функция RIGHT

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

Синтаксис функции RIGHT точно такой же, как и функции LEFT.

• Строка – это строка, которую мы пытаемся извлечь.
• Length – это не что иное, как количество символов, которое вам нужно, с правой стороны предоставленной

Код:

 Sub RIGHT_Example () Dim LastName As String LastName = Right ("Sachin Tendulkar", 9) MsgBox LastNameEnd Sub 

Это извлечет 9 символов из строки «Сачин Тендулкар». Таким образом, результат будет иметь фамилию, то есть «Тендулкар».

# 4 – Функция MID

Не только с левой и правой стороны строки, но и с середины строки, мы также можем извлекать символы. Ниже приведен синтаксис функции VBA MID.

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

Например, если имя – «Сачин Рамеш Тендулкар», то здесь второе имя – «Рамеш», в этой строке начальная позиция извлекаемого символа – 8, а нам нужно 6 символов от начальной позиции. Приведенный ниже код извлечет среднее значение.

Код:

 Sub MID_Example (  ) Dim MiddleName As String MiddleName = Mid ("Sachin Ramesh Tendulkar", 8, 6) MsgBox MiddleNameEnd Sub 

Это извлечет «Ramesh» из середины строки «Sachin Ramesh Tendulkar».

# 5 – Функция TRIM

TRIM – это функция очистки данных. Она удалит ненужные пробелы из строки. Взгляните на синтаксис функции TRIM.

Ясно, что это значение или строка, которую вы хотите обрезать.

Например, предположим, что у вас есть строка «Привет, как дела?». Здесь у нас есть ненужные пробелы перед словом «Привет», поэтому с помощью TRIM. Мы можем это устранить.

Код:

 Sub TRIM_Example () Dim MyValue As String MyValue = Trim (  «Привет, как дела?») MsgBox MyValueEnd Sub 

Это удалит ненужные пробелы из предоставленной строки.

Примечание. VBA TRIM немного отличается от функции рабочего листа. Подробное описание этой функции VBA см. нашу статью о VBA TRIM.

У нас есть функции LTRIM и RTRIM. s также в VBA. LTRIM удалит ненужные пробелы с левой стороны строки, а RTRIM удалит нежелательные пробелы с правой стороны строки.

# 6 – Функция Instr

Функция Instr помогает найти позицию предоставленного символа в строке. Синтаксис функции INSTR следующий.

• [Начало] С какой позиции предоставленной строки нам нужна позиция.
• [String1] Какую строку вы имеете в виду?
• [String2] Какой символ вы ищете в [String1].

Например, если у вас есть слово «Рецепт» и вы хотите найти положение символа «e» с первого места ниже, код покажет позиция буквы «е».

Код:

 Sub INSTR_Example () Dim MyValue As String MyValue = InStr (1  , "Рецепт", "е") MsgBox MyValueEnd Sub 

Итак, с первой позиции строковой буквы «е» позиция равна 2.

Если вам нужна позиция второго появления буквы «e», тогда вам нужно использовать Начать аргумент как 3.

Код:

 Sub INSTR_Example () Dim MyValue As String MyValue = InStr (3, "Рецепт", "  e ") MsgBox MyValueEnd Sub 

Итак, в этом случае позиция буквы« e »после первого появления равна 6 ^th .

Это некоторые из важных строковых функций. Надеюсь, вам понравилось.

Рекомендуемые статьи

Это руководство по строковым функциям VBA. Здесь мы узнаем список из 6 лучших строковых функций VBA, включая LEN, LEFT, MID, Right, Instr и Trim, а также примеры и загружаемый шаблон Excel. Ниже приведены некоторые полезные статьи в формате Excel, связанные с VBA –

• Правая функция VBA
• Формула обрезки Excel
• КРУГЛЫЕ формулы Excel
• Функции рабочего листа в VBA

0 общих ресурсов

Поделиться

Твитнуть

Поделиться

Обучение VBA (3 курса, 12+ проектов)

• 3 курса
• 12 практических проектов
• 43+ часа
• Полный пожизненный доступ
• Сертификат о прохождении курса

ПОДРОБНЕЕ >>

Функция VBA Mid — извлечение символов из середины строки

Возврат к примерам кода VBA

В этой статье

• Средняя функция
  • Средняя функция Получить n символов
  • Средняя функция Получить n символов в переменной
  • Средняя функция Получить n символов из ячейки
  • Средняя функция Заменить n символов

  900 07 Средняя функция Извлечение второго слова из фразы

В этом руководстве показано, как использовать функцию Mid VBA для извлечения символов из середины текстовой строки.

Функция Mid

Функция Mid Получить n символов

Функция VBA Mid возвращает n символов из строки, начиная с позиции m:

 Sub MidExample_1()
MsgBox Mid("ABCDEFGHI", 4, 1) 'Результат: "D"
MsgBox Mid("ABCDEFGHI", 4, 2) 'Результат: "DE"
MsgBox Mid("ABCDEFGHI", 4, 50) 'Результат: "DEFGHI"

MsgBox Mid("ABCDEFG hI", 6, 1) 'Результат: "F"
MsgBox Mid("ABCDEFG hI", 6, 2) 'Результат: "FG"
MsgBox Mid("ABCDEFG hI", 6, 4) 'Результат: "FG h"
Конец сабвуфера
 

Средняя функция Получить n символов в переменной

Как показано выше, вы можете определить строку, просто введя текст, заключенный в кавычки. Но функция MID также будет работать со строковыми переменными. Эти примеры будут извлекать n символов из строки, начиная с позиции m.

 Sub MidExample_2()
Dim StrEx As String 'Определить строковую переменную

StrEx = "ABCDEFGHI"
MsgBox Mid(StrEx, 2, 1) 'Результат: "B"
MsgBox Mid(StrEx, 2, 2) 'Результат: "BC"
MsgBox Mid(StrEx, 2, 50) 'Результат: "BCDEFGHI"
Конец сабвуфера
 

Средняя функция Получить n символов из ячейки

Строки могут быть определены в коде VBA, но вы также можете использовать значения из ячеек. Прочитайте значение ячейки, сохраните его в строковой переменной и извлеките n символов из этого значения ячейки рабочего листа, начиная с позиции m.

 Sub MidExample_3()
Dim StrEx As String 'Определить строковую переменную

'Чтение значения ячейки A1 на листе Sheet1
StrEx = ThisWorkbook.Worksheets("Лист1").Range("A1").Значение
'Для этого примера значением ячейки A1 является "Да пребудет с тобой Сила"

MsgBox Mid(StrEx, 4, 6) 'Результат: " the F" (обратите внимание на пробел в начале)
MsgBox Mid(StrEx, 2, 8) 'Результат: "ay the F"
MsgBox Mid(StrEx, 3, 4) 'Результат: "y th"
Конец сабвуфера
 

Функция Mid Заменить n символов

В приведенных выше примерах функция Mid не изменила исходную строку. Он вернул часть, оставив исходную строку нетронутой. Функция Mid может использоваться для замены символов в строке.

 Sub MidExample_4()
Dim StrEx As String 'Определить строковую переменную

Sub MidExample_4()
Dim StrEx As String 'Определить строковую переменную

StrEx = "Да пребудет с тобой Сила"
Середина(StrEx, 5, 1) = "VWXYZ"
MsgBox StrEx 'Результат: "Да пребудет с вами Горс"
'Средняя функция нашла позицию 5 и заменила 1 символ в исходной строке

StrEx = "Да пребудет с тобой Сила"
Середина (StrEx, 5, 3) = "VWXYZ"
MsgBox StrEx 'Результат: "Да пребудет с вами VWX Horce"
'Средняя функция нашла позицию 5 и заменила 3 ​​символа в исходной строке

StrEx = "Да пребудет с тобой Сила"
Середина(StrEx, 5, 8) = "VWXYZ"
MsgBox StrEx 'Результат: "Да пребудет с вами VWXYZorce"
'Mid Function нашел позицию 5 и попытался заменить 8 символов. 
«VWXYZ» состоит всего из 5 символов, поэтому было заменено только 5 символов.
Конец сабвуфера
 

Функция Mid Извлечение второго слова из фразы

Мы можем использовать функцию VBA Mid с функцией VBA Instr для получения второго слова в тексте.

Функция VBA InStr может возвращать позицию символа внутри текста.

 InStr("Два слова", " ") 'Результат 4 

Мы можем использовать InStr, чтобы найти первый пробел, затем мы можем снова использовать InStr, начиная поиск после первого пробела, чтобы найти второй пробел в тексте. Наконец, мы можем использовать функцию Mid для извлечения слова, потому что мы знаем начальную позицию второго слова и его длину (разницу между позициями двух пробелов).

 Sub MidExample_5()
Dim StrEx As String 'Определить строковую переменную
Dim StartPos как целое число
Dim EndPos как целое число
Dim SecondWord как строка
StrEx = "Джеймс Эрл Джонс - актер"

StartPos = InStr(StrEx, " ")
'Результат 6
'Найти положение первого пробела

EndPos = InStr(StartPos + 1, StrEx, "")
'Результат 11
'Найти позицию второго пробела, начав поиск после первого пробела


SecondWord = Mid(StrEx, StartPos + 1, EndPos - StartPos - 1)
'Mid извлекает символы, начинающиеся после первого пробела (StartPos +1)
'Mid использует также длину второго слова. 
'Это разница между позициями пробелов -1

MsgBox Второе Слово
'Результат - Эрл

Конец сабвуфера
 

Кодирование VBA стало проще

Прекратите искать код VBA в Интернете. Узнайте больше об AutoMacro — конструкторе кода VBA, который позволяет новичкам создавать процедуры с нуля с минимальными знаниями в области программирования и множеством функций, позволяющих сэкономить время для всех пользователей!

Узнать больше!

Надстройка примеров кода VBA

Удобный доступ ко всем примерам кода, найденным на нашем сайте.

Просто перейдите в меню, нажмите, и код будет вставлен прямо в ваш модуль. Надстройка .xlam.

(Установка не требуется!)

Скачать бесплатно

Функция VBA MID — javatpoint