VBA Text | Как использовать текстовые функции в Excel VBA с примерами?

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

Функции для работы с текстом

Основные функции для работы с текстом в VBA Excel:

Функция Описание
Asc(строка) Возвращает числовой код символа, соответствующий первому символу строки. Например: MsgBox Asc(«/Stop»). Ответ: 47, что соответствует символу «/».
Chr(код символа) Возвращает строковый символ по указанному коду. Например: MsgBox Chr(47). Ответ: «/».
Format(Expression, [FormatExpression], [FirstDayOfWeek], [FirstWeekOfYear]) Преобразует число, дату, время в строку (тип данных Variant (String)), отформатированную в соответствии с инструкциями, включенными в выражение формата. Подробнее…
InStr([начало], строка1, строка2, [сравнение]) Возвращает порядковый номер символа, соответствующий первому вхождению одной строки (строка2) в другую (строка1) с начала строки. Подробнее…
InstrRev(строка1, строка2, [начало, [сравнение]]) Возвращает порядковый номер символа, соответствующий первому вхождению одной строки (строка2) в другую (строка1) с конца строки.
Join(SourceArray,[Delimiter]) Возвращает строку, созданную путем объединения нескольких подстрок из массива. Подробнее…
LCase(строка) Преобразует буквенные символы строки в нижний регистр.
Left(строка, длина) Возвращает левую часть строки с заданным количеством символов. Подробнее…
Len(строка) Возвращает число символов, содержащихся в строке.
LTrim(строка) Возвращает строку без начальных пробелов (слева). Подробнее…
Mid(строка, начало, [длина]) Возвращает часть строки с заданным количеством символов, начиная с указанного символа (по номеру). Подробнее…
Replace(expression, find, replace, [start], [count], [compare]) Возвращает строку, полученную в результате замены одной подстроки в исходном строковом выражении другой подстрокой указанное количество раз. Подробнее…
Right(строка, длина) Возвращает правую часть строки с заданным количеством символов. Подробнее…
RTrim(строка) Возвращает строку без конечных пробелов (справа). Подробнее…
Space(число) Возвращает строку, состоящую из указанного числа пробелов. Подробнее…
Split(Expression,[Delimiter],[Limit],[Compare]) Возвращает одномерный массив подстрок, извлеченных из указанной строки с разделителями. Подробнее…
StrComp(строка1, строка2, [сравнение]) Возвращает числовое значение Variant (Integer), показывающее результат сравнения двух строк. Подробнее…
StrConv(string, conversion) Изменяет регистр символов исходной строки в соответствии с заданным параметром «conversion». Подробнее…
String(число, символ) Возвращает строку, состоящую из указанного числа символов. В выражении «символ» может быть указан кодом символа или строкой, первый символ которой будет использован в качестве параметра «символ». Подробнее…
StrReverse(строка) Возвращает строку с обратным порядком следования знаков по сравнению с исходной строкой. Подробнее…
Trim(строка) Возвращает строку без начальных (слева) и конечных (справа) пробелов. Подробнее…
UCase(строка) Преобразует буквенные символы строки в верхний регистр.
WorksheetFunction.Trim(строка) Функция рабочего листа, которая удаляет все лишние пробелы (начальные, конечные и внутренние), оставляя внутри строки одиночные пробелы.

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

Пример: Укасе

В данном примере функция UCase используется для возврата строки в верхнем регистре.

‘ String to convert.Dim lowerCase As String = “Hello World 1234″‘ Returns “HELLO WORLD 1234”.Dim upperCase As String = UCase(lowerCase)

Синтаксис

variablename = “string”

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

Существуют предопределенные функции VBA String, которые помогают разработчикам эффективно работать со строками. Ниже приведены методы String, поддерживаемые в VBA. Пожалуйста, нажмите на каждый из методов, чтобы знать подробно.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim Var As Variant Var = “Microsoft VBScript” MsgBox (“Line 1 : ” & InStr(1, Var, “s”)) MsgBox (“Line 2 : ” & InStr(7, Var, “s”)) MsgBox (“Line 3 : ” & InStr(1, Var, “f”, 1)) MsgBox (“Line 4 : ” & InStr(1, Var, “t”, 0)) MsgBox (“Line 5 : ” & InStr(1, Var, “i”)) MsgBox (“Line 6 : ” & InStr(7, Var, “i”)) MsgBox (“Line 7 : ” & InStr(Var, “VB”)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11

Возвращает первое вхождение указанной подстроки. Поиск происходит слева направо.

InStrRev

Функция InStrRev возвращает первое вхождение одной строки в другую строку. Поиск происходит справа налево.

Ключевые слова для работы с текстом

Ключевое слово Описание
& Оператор & объединяет два выражения (результат = выражение1 & выражение2). Если выражение не является строкой, оно преобразуется в Variant (String), и результат возвращает значение Variant (String). Если оба выражения возвращают строку, результат возвращает значение String.
vbCrLf Константа vbCrLf сочетает в себе возврат каретки и перевод строки (Chr(13) + Chr(10)) и переносит последующий текст на новую строку (результат = строка1 & vbCrLf & строка2).
vbNewLine Константа vbNewLine в VBA Excel аналогична константе vbCrLf, также сочетает в себе возврат каретки и перевод строки (Chr(13) + Chr(10)) и переносит текст на новую строку (результат = строка1 & vbNewLine & строка2).

LCASE

Функция LCase возвращает строку после преобразования введенной строки в строчные буквы.

Удаление пробелов

Функция Параметры Описание Пример
LTrim Текст Убирает
пробелы слева
LTrim(» Иван «)
RTrim Текст Убирает
пробелы
справа
RTrim(» Иван «)
Trim Текст Убирает
пробелы слева и справа
Trim(» Иван «)

Функции Trim — это простые функции, которые удаляют пробелы в начале или конце строки.

Функции и примеры использования триммера Trim

  • LTrim удаляет пробелы слева от строки
  • RTrim удаляет пробелы справа от строки
  • Trim удаляет пробелы слева и справа от строки

Sub TrimStr() Dim name As String name = ” Иван Петров ” ‘ Печатает “Иван Петров ” Debug.Print LTrim(name) ‘ Печатает ” Иван Петров” Debug.Print RTrim(name) ‘ Печатает “Иван Петров” Debug.Print Trim(name)End Sub

Пример: InStr

В данном примере функция InStr используется для возврата позиции первого вхождения одной строки в другую.

‘ String to search in.Dim searchString As String = “XXpXXpXXPXXP”‘ Search for “P”.Dim searchChar As String = “P”Dim testPos As Integer’ A textual comparison starting at position 4. Returns 6.testPos = InStr(4, searchString, searchChar, CompareMethod.Text)’ A binary comparison starting at position 1. Returns 9.testPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)’ If Option Compare is not set, or set to Binary, return 9.’ If Option Compare is set to Text, returns 3.testPos = InStr(searchString, searchChar)’ Returns 0.testPos = InStr(1, searchString, “W”)

Примеры

Вывод прямых парных кавычек

Прямые парные кавычки в VBA Excel являются спецсимволами и вывести их, заключив в самих себя или в одинарные кавычки (апострофы), невозможно. Для этого подойдет функция Chr:

SubPrimer1()

    ‘Вывод одной прямой парной кавычки

MsgBox Chr(34)

    ‘Отображение текста в прямых кавычках

MsgBox Chr(34)&“Волга”&Chr(34)

    ‘Вывод 10 прямых парных кавычек подряд

MsgBox String(10,Chr(34))

EndSub

Смотрите интересное решение по выводу прямых кавычек с помощью прямых кавычек в первом комментарии.

Отображение слов наоборот

Преобразование слова «налим» в «Милан»:

SubPrimer2()

Dimstroka

    stroka=“налим”

    stroka=StrReverse(stroka)‘милан

    stroka=StrConv(stroka,3)‘Милан

MsgBox stroka

EndSub

или одной строкой:

SubPrimer3()

MsgBox StrConv(StrReverse(“налим”),3)

EndSub

Преобразование слова «лето» в «отель»:

SubPrimer4()

Dimstroka

    stroka=“лето”

    stroka=StrReverse(stroka)‘отел

    stroka=stroka&“ь”‘отель

MsgBox stroka

EndSub

или одной строкой:

SubPrimer5()

MsgBox StrReverse(“лето”)&“ь”

EndSub

Печатная машинка

Следующий код VBA Excel в замедленном режиме посимвольно печатает указанную строку на пользовательской форме, имитируя печатную машинку.

Для реализации этого примера понадобится пользовательская форма (UserForm1) с надписью (Label1) и кнопкой (CommandButton1):

Пользовательская форма с элементами управления Label и CommandButton

Код имитации печатной машинки состоит из двух процедур, первая из которых замедляет выполнение второй, создавая паузу перед отображением очередного символа, что и создает эффект печатающей машинки:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

SubStopSub(Pause AsSingle)

DimStart AsSingle

Start=Timer

    DoWhileTimer<Start+Pause

       DoEvents

    Loop

EndSub

PrivateSubCommandButton1_Click()

Dimstroka AsString,iAsByte

stroka=“Печатная машинка!”

Label1.Caption=“”

    Fori=1ToLen(stroka)

        CallStopSub(0.25)‘пауза в секундах

        ‘следующая строка кода добавляет очередную букву

        Label1.Caption=Label1.Caption&Mid(stroka,i,1)

    Next

EndSub

Обе процедуры размещаются в модуле формы. Нажатие кнопки CommandButton1 запустит замедленную печать символов в поле надписи, имитируя печатную машинку.

См. также

  • Ключевые слова
  • Члены библиотеки времени выполнения Visual Basic
  • Сводка по работе со строками
  • Методы класса System. String
Рейтинг
( 1 оценка, среднее 5 из 5 )
Загрузка ...