Как обрезать строку vba excel

В этой статье разберем работу со строками в VBA на примерах функций InStr, LCASE, UCase, Left, Right, Mid, LTrim, RTrim, Trim, Len, Replace, Space, StrComp, String, StrReverse.

Строки — это последовательность символов, которая может состоять либо из алфавитов, цифр, специальных символов, либо из всех них. Переменная называется строкой, если она заключена в двойные кавычки «».

Синтаксис

variablename = "string"

Примеры

str1 = "string"   ' Only Alphabets
str2 = "132.45"   ' Only Numbers
str3 = "!@#$;*"  ' Only Special Characters
Str4 = "Asc23@#"  ' Has all the above

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

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

Название функции и описание

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

Синтаксис

InStr([start,]string1,string2[,compare])

Параметр Описание

• Пуск — необязательный параметр. Указывает начальную позицию для поиска. Поиск начинается с первой позиции слева направо.
• String1 — требуемый параметр. Строка для поиска.
• String2 — требуемый параметр. Строка, по которой выполняется поиск String1.
• Compare — Необязательный параметр. Указывает сравнение строк.Он может принимать следующие значения.
• 0 = vbBinaryCompare — выполняет двоичное сравнение (по умолчанию)
• 1 = vbTextCompare — выполняет сравнение текста

пример

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

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 возвращает первое вхождение одной строки в другую строку. Поиск происходит справа налево.

Синтаксис

InStrRev(string1,string2[,start,[compare]])

Параметр Описание

• String1 — требуемый параметр. Строка для поиска.
• String2 — требуемый параметр. Строка, по которой выполняется поиск String1.
• Пуск — необязательный параметр. Указывает начальную позицию для поиска. Поиск начинается с первой позиции справа налево.
• Compare — Необязательный параметр. Указывает сравнение строк.Он может принимать следующие значения.
• 0 = vbBinaryCompare — выполняет двоичное сравнение (по умолчанию)
• 1 = vbTextCompare — выполняет сравнение текста

пример

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

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & InStrRev(var,"s",10))
   msgbox("Line 2 : " & InStrRev(var,"s",7))
   msgbox("Line 3 : " & InStrRev(var,"f",-1,1))
   msgbox("Line 4 : " & InStrRev(var,"t",5))
   msgbox("Line 5 : " & InStrRev(var,"i",7))
   msgbox("Line 6 : " & InStrRev(var,"i",7))
   msgbox("Line 7 : " & InStrRev(var,"VB",1))
End Sub

После выполнения вышеуказанного скрипта он производит следующий результат.

Line 1 : 6
Line 2 : 6
Line 3 : 8
Line 4 : 0
Line 5 : 2
Line 6 : 2
Line 7 : 0

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

LCASE

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

Синтаксис

Lcase(String)

пример

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

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & LCase(var))
   
   var = "MS VBSCRIPT"
   msgbox("Line 2 : " & LCase(var))
   
   var = "microsoft"
   msgbox("Line 3 : " & LCase(var))
End Sub

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

Line 1 : microsoft vbscript
Line 2 : ms vbscript
Line 3 : microsoft

Возвращает нижний регистр указанной строки.

UCase

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

Синтаксис

UCase(String)

пример

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

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & UCase(var))
   
   var = "MS VBSCRIPT"
   msgbox("Line 2 : " & UCase(var))
   
   var = "microsoft"
   msgbox("Line 3 : " & UCase(var))
End Sub

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

Line 1 : MICROSOFT VBSCRIPT
Line 2 : MS VBSCRIPT
Line 3 : MICROSOFT

Возвращает верхний регистр указанной строки.

Left

Функция Left возвращает указанное количество символов с левой стороны данной входной строки.

Синтаксис

Left(String, Length)

Параметр Описание

• String — обязательный параметр. Строка ввода, из которой указанное число символов должно быть возвращено с левой стороны.
• Длина — требуемый параметр. Целое число, определяющее количество возвращаемых символов.

пример

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

Private Sub Constant_demo_Click()
   Dim var as Variant
   
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & Left(var,2))
   
   var = "MS VBSCRIPT"
   msgbox("Line 2 : " & Left(var,5))
   
   var = "microsoft"
   msgbox("Line 3 : " & Left(var,9))
End Sub

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

Line 1 : Mi
Line 2 : MS VB
Line 3 : microsoft

Возвращает определенное количество символов с левой стороны строки.

Right

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

Синтаксис

Right(String, Length)

Параметр Описание

• String — обязательный параметр. Строка ввода, из которой указанное число символов должно быть возвращено с правой стороны.
• Длина — требуемый параметр. Целое число, которое задает количество возвращаемых символов.

пример

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

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & Right(var,2))
   
   var = "MS VBSCRIPT"
   msgbox("Line 2 : " & Right(var,5))
   
   var = "microsoft"
   msgbox("Line 3 : " & Right(var,9))
End Sub

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

Line 1 : pt
Line 2 : CRIPT
Line 3 : microsoft

Возвращает определенное количество символов с правой стороны строки.

Mid

Mid функция возвращает указанное количество символов из заданной входной строки.

Синтаксис

Mid(String,start[,Length])

Параметр Описание

• String — обязательный параметр. Строка ввода, из которой задано количество символов, которые нужно вернуть.
• Начало — требуемый параметр. Целое число, определяющее начальную позицию строки.
• Длина — необязательный параметр. Целое число, определяющее количество возвращаемых символов.

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

Private Sub Constant_demo_Click()
   Dim var as Variant
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & Mid(var,2))
   msgbox("Line 2 : " & Mid(var,2,5))
   msgbox("Line 3 : " & Mid(var,5,7))
End Sub

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

Line 1 : icrosoft VBScript
Line 2 : icros
Line 3 : osoft V

Возвращает определенное количество символов из строки на основе указанных параметров.

LTrim

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

Синтаксис

LTrim(String)

пример

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

Private Sub Constant_demo_Click()
   Dim var as Variant
   var =       "             Microsoft VBScript"
   msgbox "After Ltrim : " & LTrim(var)
End Sub

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

After Ltrim : Microsoft VBScript

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

RTrim

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

Синтаксис

RTrim(String)

пример

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

Private Sub Constant_demo_Click()
   Dim var as Variant
   var =       "Microsoft VBScript           "
   msgbox("After Rtrim : " & RTrim(var))
End Sub

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

After Rtrim : Microsoft VBScript

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

Trim

Функция Trim удаляет как ведущее, так и конечное пустое пространство данной входной строки.

Синтаксис

Trim(String)

пример

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

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   var =       "            Microsoft VBScript           "
   msgbox ("After Trim : " & Trim(var))
End Sub

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

After trim : Microsoft VBScript

Возвращает строковое значение после удаления как верхнего, так и конечного пробелов.

Len

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

Синтаксис

Len(String)

пример

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

Private Sub Constant_demo_Click()
   Dim var1 as Variant
   Dim var2 as Variant
   
   var1 ="Microsoft VBScript"
   msgbox("Length of var1 is : " & Len(var1))
  
   var2 =       "       Microsoft VBScript           "
   msgbox ("Length of var2 is : " & Len(var2))
End Sub

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

Length of var1 is : 18
Length of var2 is : 36

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

Replace

Функция Replace заменяет указанную часть строки на определенную строку, указанное количество раз.

Синтаксис

Replace(string,find,replacewith[,start[,count[,compare]]])

Параметр Описание

• String — обязательный параметр. Строка ввода, которую нужно искать для замены.
• Find — требуемый параметр. Часть строки, которая будет заменена.
• Replacewith — обязательный параметр. Строка замены, которая будет заменена на параметр find.
• Start — необязательный параметр. Задает начальную позицию, из которой нужно искать и заменять строку. Значение по умолчанию — 1.
• Count — необязательный параметр. Указывает количество раз, которое должна выполняться замена.
• Compare — Необязательный параметр. Указывает метод сравнения, который будет использоваться. Значение по умолчанию — 0.
• 0 = vbBinaryCompare — выполняет двоичное сравнение
• 1 = vbTextCompare — выполняет текстовое сравнение

пример

Private Sub Constant_demo_Click()
   Dim var as Variant
   var = "This is VBScript Programming"
  
   'VBScript to be replaced by MS VBScript
   msgbox("Line 1: " & Replace(var,"VBScript","MS VBScript"))
  
   'VB to be replaced by vb
   msgbox("Line 2: " & Replace(var,"VB","vb"))
  
   ''is' replaced by ##
   msgbox("Line 3: " & Replace(var,"is","##"))
  
   ''is' replaced by ## ignores the characters before the first occurence
   msgbox("Line 4: " & Replace(var,"is","##",5))
  
   ''s' is replaced by ## for the next 2 occurences.
   msgbox("Line 5: " & Replace(var,"s","##",1,2))
  
   ''r' is replaced by ## for all occurences textual comparison.
   msgbox("Line 6: " & Replace(var,"r","##",1,-1,1))
  
   ''t' is replaced by ## for all occurences Binary comparison
   msgbox("Line 7: " & Replace(var,"t","##",1,-1,0))
  
End Sub

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

Line 1: This is MS VBScript Programming
Line 2: This is vbScript Programming
Line 3: Th## ## VBScript Programming
Line 4: ## VBScript Programming
Line 5: Thi## i## VBScript Programming
Line 6: This is VBSc##ipt P##og##amming
Line 7: This is VBScrip## Programming

Возвращает строку после замены строки другой строкой.

Space

Функция Space заполняет строку конкретным количеством пробелов.

Синтаксис

space(number)

Параметр Описание

Номер — требуемый параметр. Количество пробелов, которые мы хотим добавить к данной строке.

пример

Private Sub Constant_demo_Click()
   Dim var1 as Variant
   
   var1 = "Microsoft"
   Dim var2 as Variant
   
   var2 = "VBScript"
   msgbox(var1 & Space(2)& var2)
End Sub

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

Microsoft VBScript

Заполняет строку указанным количеством пробелов.

StrComp

Функция StrComp возвращает целочисленное значение после сравнения двух заданных строк. Он может возвращать любое из трех значений -1, 0 или 1 на основе входных строк для сравнения.

• Если String1 меньше String2, то StrComp возвращает -1
• Если String1 равно String2, то StrComp возвращает 0
• Если String1 больше String2, то StrComp возвращает 1

Синтаксис

StrComp(string1,string2[,compare])

Параметр Описание

• String1 — требуемый параметр. Первое строковое выражение.
• String2 — требуемый параметр. Второе строковое выражение.
• Compare — Необязательный параметр. Указывает сравнение строк.Он может принимать следующие значения.
• 0 = vbBinaryCompare — выполняет двоичное сравнение (по умолчанию)
• 1 = vbTextCompare — выполняет сравнение текста

пример

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

Private Sub Constant_demo_Click()
   Dim var1 as Variant
   msgbox("Line 1 :" & StrComp("Microsoft","Microsoft"))
   msgbox("Line 2 :" &StrComp("Microsoft","MICROSOFT"))
   msgbox("Line 3 :" &StrComp("Microsoft","MiCrOsOfT"))
   msgbox("Line 4 :" &StrComp("Microsoft","MiCrOsOfT",1))
   msgbox("Line 5 :" &StrComp("Microsoft","MiCrOsOfT",0))
End Sub

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

Line 1 :0
Line 2 :1
Line 3 :1
Line 4 :0
Line 5 :1

Возвращает целочисленное значение после сравнения двух указанных строк.

String

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

Синтаксис

String(number,character)

Параметр Описание

• Номер — требуемый параметр. Целочисленное значение, которое будет повторяться в течение определенного количества раз против параметра символа.
• Символ — требуемый параметр. Значение символа, которое должно повторяться определенное количество раз.

пример

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

Private Sub Constant_demo_Click()
   msgbox("Line 1 :" & String(3,"$"))
   msgbox("Line 2 :" & String(4,"*"))
   msgbox("Line 3 :" & String(5,100))
   msgbox("Line 4 :" & String(6,"ABCDE"))
End Sub

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

Line 1 :$$$
Line 2 :****
Line 3 :ddddd
Line 4 :AAAAAA

Возвращает строку с указанным символом для указанного количества раз.

StrReverse

Функция StrReverse меняет указанную строку.

Синтаксис

StrReverse(string)

пример

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

Private Sub Constant_demo_Click()
   msgbox("Line 1 : " & StrReverse("VBSCRIPT"))
   msgbox("Line 2 : " & StrReverse("My First VBScript"))
   msgbox("Line 3 : " & StrReverse("123.45"))
End Sub

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

Line 1 : TPIRCSBV
Line 2 : tpircSBV tsriF yM
Line 3 : 54.321

Возвращает строку после изменения последовательности символов данной строки.

 С уважением, авторы сайта Компьютерапия

Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!

В этой статье поговорим о том, как работать со строкой. В процессе работы бывает необходимо взять значение не всей строки, а только её части. Для этого в VBA есть несколько функций, которые помогут вам решить данную задачу. Это функции Left(), Right() и Mid(). Но обо всем по порядку.

Left(string, length)

Left() — это функция, которая позволяет взять из указанной строки определенное количество символов слева. Например:

Left(«строка»,3) = «стр»

В этой функции, как и в остальных, аргументы могут являться переменными. То есть:

str=«строка»
n=3
Left(str,n) = «стр»

Стоит также отметить, что пробелы в строке также являются символами и их нужно учитывать.

Right(string, length)

Right() — функция действует аналогично функции Left(), с той лишь разницей, что берет символы из строки не слева, а справа. Например:

Right(«строка», 3) = «ока»

Mid(string, start, length)

Mid() — эта функция, в отличие от Left() и Right(), имеет три аргумента. Первый аргумент — это строка, с которой будем работать. Второй аргумент — это номер позиции, откуда будем резать (т. е. отступ слева). И третий — это количество символов, которое необходимо взять, начиная с указанного во втором аргументе номера позиции (т. е. сколько требуется отрезать). Например:

Mid(«строка»,3,3) = «рок»

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

Извлечение подстроки

Функция левой строки VBA

Функция VBA Left позволяет извлекать подстроку из текста или строки, начиная с левой стороны. Синтаксис функции левой строки VBA:

Left (String, Num_of_characters), где:

• Строка — исходный текст.
• Num_of_characters — Целое число, указывающее количество символов, извлекаемых из исходного текста, начиная с начала.

В следующем коде показано, как использовать функцию левой строки для извлечения первых четырех символов данной строки:

Результат:

Функция Left извлекла первые четыре буквы AutomateExcel, которые являются Auto.

Функция правой строки VBA

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

Справа (String, Num_of_characters), где:

• Строка — исходный текст.
• Num_of_characters — Целое число, указывающее количество символов, извлекаемых из исходного текста, начиная с конца.

В следующем коде показано, как использовать функцию правой строки для извлечения последних четырех символов строки:

Результат:

Функция Right извлекла последние четыре буквы AutomateExcel, которые являются xcel.

Функция средней строки VBA

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

Mid (String, Starting_position, [Num_of_characters]), где:

• Строка — исходный текст.
• Начальная_позиция — позиция в исходном тексте, из которой функция начнет извлекать.
• Num_of_characters (По желанию) — Целое число, указывающее количество символов, извлекаемых из исходного текста, начиная с начального_позиции. Если пусто, функция MID вернет все символы из начального_позиции.

В следующем коде показано, как использовать функцию Mid String для извлечения четырех символов, начиная со второй позиции или символа в строке:

Результат выводится в msgbox:

Функция Mid извлекла четыре буквы AutomateExcel, начиная со второго символа / позиции / буквы, которые являются utom.

Поиск позиции подстроки

Строковая функция VBA Instr

Функция VBA Instr возвращает начальную позицию подстроки в другой строке. Эта функция чувствительна к регистру. Синтаксис строковой функции VBA Instr:

Instr ([Начало], Строка, Подстрока, [Сравнить]), где:

• Начинать (По желанию) — указывает начальную позицию для функции для поиска. Если пусто, используется значение по умолчанию 1.
• Строка — исходный текст.
• Подстрока— Подстрока в исходном тексте, положение которой вы хотите найти.
• Сравнивать (По желанию)— Определяет тип сравнения, которое нужно сделать. Если пусто, используется двоичное сравнение.

-vbBinaryCompare — двоичное сравнение (верхний и нижний регистры считаются разными)
-vbTextCompare — Сравнение текста (верхний и нижний регистр считаются одинаковыми)
-vbDatabaseCompare — сравнение базы данных (этот параметр используется только в Microsoft Access и представляет собой сравнение на основе базы данных)

В следующем коде показано, как использовать функцию Instr String для определения первого вхождения подстроки «Th» в основной строке:

Результат (выводится в окно Immediate Window):

Функция Instr вернула позицию первого вхождения подстроки «Th», которая равна 1. Обратите внимание, что эта функция включает пробелы в счетчике.

Строковая функция VBA InstrRev

Функция VBA InstrRev возвращает начальную позицию подстроки в другой строке, но начинает отсчет позиции с конца строки. Эта функция чувствительна к регистру. Синтаксис строковой функции VBA InstrRev:

InstrRev (String, Substring, [Start], [Compare]), где:

• Строка — исходный текст.
• Подстрока— Подстрока в исходном тексте, положение которой вы хотите найти.
• Начинать (По желанию) — указывает позицию для начала поиска. Если пусто, функция начинает поиск с последнего символа.
• Сравнивать (По желанию)— Определяет тип сравнения, которое нужно сделать. Если пусто, используется двоичное сравнение.

-vbBinaryCompare — двоичное сравнение (верхний и нижний регистры считаются разными)
-vbTextCompare — Сравнение текста (верхний и нижний регистр считаются одинаковыми)
-vbDatabaseCompare — сравнение базы данных (этот параметр используется только в Microsoft Access и представляет собой сравнение на основе базы данных)

В следующем коде показано, как использовать функцию InstrRev String для определения первого вхождения подстроки «Th» в основной строке, начиная с конца строки:

Результат выводится в Немедленное окно:

Функция InstrRev вернула позицию первого вхождения подстроки «Th», но отсчет начинается с конца, равного 9. Обратите внимание, что эта функция включает пробелы в счетчике.

Удаление пробелов из строки

Строковая функция VBA LTrim

Функция VBA LTrim удаляет все начальные пробелы из текста или строки. Синтаксис строковой функции VBA LTrim:

LTrim (String) где:

• Строка — исходный текст.

В следующем коде показано, как использовать функцию VBA LTrim для удаления начальных пробелов в данной строке:

Результаты следующие:

Функция LTrim удалила начальные пробелы для valuetwo, которое показано во втором окне сообщения.

Строковая функция VBA RTrim

Функция VBA RTrim удаляет все конечные пробелы из текста или строки. Синтаксис строковой функции VBA RTrim:

RTrim (String) где:

• Строка — исходный текст.

В следующем коде показано, как использовать функцию VBA RTrim для удаления конечных пробелов в данной строке:

Полученные результаты:

Функция RTrim удалила конечные пробелы для valuetwo, которое показано во втором окне сообщения.

Функция строки обрезки VBA

Функция обрезки VBA удаляет все начальные и конечные пробелы из текста или строки. Синтаксис функции строки обрезки VBA:

Обрезать (Строка), где:

• Строка — исходный текст.

В следующем коде показано, как использовать функцию обрезки VBA для удаления начальных и конечных пробелов в данной строке:

Результат:

Функция обрезки удалила начальные и конечные пробелы для valuetwo, которое показано во втором окне сообщения.

Строковая функция VBA LCase

Функция VBA LCase преобразует буквы в тексте или строке в нижний регистр. Синтаксис строковой функции VBA LCase:

LCase (String) где:

• Строка — исходный текст.

В следующем коде показано, как использовать строковую функцию LCase для преобразования всех букв в данной строке в нижний регистр:

Результат:

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

Строковая функция VBA UCase

Функция VBA UCase преобразует буквы в тексте или строке в верхний регистр. Синтаксис строковой функции VBA UCase:

UCase (String) где:

• Строка — исходный текст.

В следующем коде показано, как использовать функцию строки UCase для преобразования всех букв в данной строке в верхний регистр:

Результат:

Функция UCase преобразовала все буквы в строке в верхний регистр.

Функция VBA StrConv

Функция VBA StrConv может преобразовывать буквы в тексте или строке в верхний регистр, нижний регистр, правильный регистр или Unicode в зависимости от указанного вами типа преобразования. Синтаксис строковой функции VBA StrConv:

StrConv (String, Conversion, [LCID]) где:

• Строка — исходный текст.
• Конверсия — желаемый тип конверсии.
• [LCID] (По желанию) —Необязательный параметр, указывающий LocaleID. Если пусто, используется системный LocaleID.

В следующем коде показано, как использовать функцию StrConv String для преобразования строки в соответствующий регистр:

Результат:

Вы указываете тип преобразования, которое хотите выполнить, используя параметр преобразования:

• vbLowerCase преобразует все буквы в тексте в нижний регистр.
• vbUpperCase преобразует все буквы в тексте в верхний регистр.
• vbProperCase преобразует первую букву каждого слова в тексте в верхний регистр, а все остальные буквы остаются в нижнем регистре.
• vbUnicode преобразует строку в Unicode.
• vbFromUnicode преобразует строку из юникода в кодовую страницу системы по умолчанию.

Сравнение строк

Функция VBA StrComp

Строковая функция VBA StrComp позволяет сравнивать две строки. Функция возвращает:

• 0, если две строки совпадают
• -1, если строка1 меньше строки2
• 1, если строка1 больше строки2
• Нулевое значение, если одна из строк была Null

В следующем коде показано, как использовать функцию StrComp для сравнения двух строк:

Результат:

Функция StrComp нашла точное совпадение между двумя строками и вернула 0.

Оператор Like VBA

Оператор Like VBA позволяет сравнить текст или строку с шаблоном и посмотреть, есть ли совпадение. Обычно оператор Like используется вместе с подстановочными знаками. В следующем коде показано, как использовать оператор Like:

Результат:

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

• ? что соответствует одиночному символу
• # что соответствует одной цифре
• * что соответствует нулю или более символов

В следующем коде показано, как использовать оператор Like и оператор? подстановочный знак, соответствующий шаблону в вашем коде:

Полученный результат:

Другие полезные строковые функции VBA

Функция замены строки VBA

Функция замены VBA заменяет набор символов в строке другим набором символов. Синтаксис функции замены строки VBA:

Заменить (Строка, Найти, Заменить, [Начало], [Счетчик], [Сравнить]), где:

• Строка — исходный текст.
• Найти — подстрока для поиска в исходном тексте.
• Заменить — подстрока, на которую нужно заменить подстроку поиска.
• Начинать (По желанию)— Позиция для начала поиска из исходного текста. Если пусто, используется значение 1, и функция начинается с позиции первого символа.
• Считать (По желанию)— Количество появлений заменяемой подстроки «Найти» в исходном тексте. Если пусто, заменяются все вхождения подстроки «Найти».
• Сравнивать (По желанию)— Определяет тип сравнения, которое нужно сделать. Если пусто, используется двоичное сравнение.

  -vbBinaryCompare — двоичное сравнение
  -vbTextCompare — Сравнение текста
  -vbDatabaseCompare — сравнение базы данных (этот параметр используется только в Microsoft Access и представляет собой сравнение на основе базы данных).

В следующем коде показано, как использовать функцию замены строки:

Результат:

Функция замены нашла подстроку ABC в ProductABC и заменила ее подстрокой XYZ.

Функция VBA StrReverse

Функция VBA StrReverse меняет местами символы в заданном тексте или строке. Синтаксис строковой функции VBA StrReverse:

StrReverse (String) где:

• Строка — исходный текст.

В следующем коде показано, как использовать функцию VBA StrReverse для изменения символов в строке Product:

Результат:

Строковая функция VBA Len

Функция VBA Len возвращает количество символов в текстовой строке. Синтаксис строковой функции VBA Len String:

Len (String) где:

• Строка — исходный текст.

В следующем коде показано, как использовать функцию Len String для определения длины строки AutomateExcel:

Результат:

Функция Len подсчитала все символы в тексте AutomateExcel, который состоит из 13 букв.