В этом руководстве будет показано, как использовать функции UCASE, LCASE и STRCONV в VBA.
При работе в VBA вам часто нужно преобразовывать строки в нижний, верхний или правильный регистр. Это возможно с помощьюUCase, LCase а также StrConv функции.
Эти функции важны при работе со строками в VBA, так как VBA деликатный случай. Если вы хотите сделать VBA нечувствительным к регистру, вам нужно добавить Option Сравнить текст в верхней части вашего модуля. Вы можете узнать больше об этом здесь: Предотвратить регистрацию в VBA
UCase - преобразовать строку в верхний регистр
В UCase функция в VBA преобразует все буквы строки в верхний регистр. Есть только один аргумент, который может быть строкой, переменной со строкой или значением ячейки. Эта функция часто используется, если вы хотите сравнить две строки. Вот код функции UCase:
| 12345678 | Dim strText As StringDim strTextUCase как строкаstrText = "выполнение функции верхнего регистра"strTextUCase = UCase (strText)MsgBox strTextUCase |
В этом примере мы хотим преобразовать все буквы strText в верхний регистр и присвоить преобразованную строку strTextUCase Переменная. В конце вызываем окно сообщения с преобразованной строкой:
LCase - преобразовать строку в нижний регистр
Если вы хотите преобразовать все буквы строки в нижний регистр, вам нужно использовать LCase функция. У этой функции один аргумент, такой же, как у UCase. Это код функции LCase:
| 12345678 | Dim strText As StringDim strTextLCase как строкаstrText = "ЗАПУСК ФУНКЦИИ В нижнем регистре"strTextLCase = LCase (strText)MsgBox strTextLCase |
В этом примере мы конвертируем все буквы строки из A1 в нижний регистр. После этого преобразованная строка присваивается ячейке A1.
StrConv - преобразовать строку в правильный регистр
В StrConv Функция позволяет преобразовать строку текста в правильный регистр. Функция имеет два аргумента. Во-первых, это строка, которую вы хотите преобразовать. Второй - это тип преобразования, которое вы хотите. Чтобы преобразовать строку в правильный регистр, вам необходимо установить для нее значение vbProperCase. Код функции:
| 12345678 | Dim strText As StringDim strTextProperCase как строкаstrText = "выполнение функции правильного регистра"strTextProperCase = StrConv (strText, vbProperCase)MsgBox strTextProperCase |
На примере вы увидите, как работает функция. Он берет строку из ячейки B1, преобразует ее в правильный регистр и возвращает значение в ячейке A1.
StrConv - преобразование строки в верхний или нижний регистр
Используя функцию StrConv, вы также можете преобразовать строку в верхний или нижний регистр. Для этого вам просто нужно установить второй аргумент для vbUpperCase или vbLowerCase:
| 1 | strTextConverted = StrConv (strText, vbUpperCase) |
| 1 | strTextConverted = StrConv (strText, vbLowerCase) |
Верхний, нижний и правильный регистр VBA - функции регистра в Access
Все приведенные выше примеры работают в Access VBA точно так же, как и в Excel VBA.
| 1234 | Private Sub ClientName_AfterUpdate ()'это преобразует текст в поле имени клиента в верхний регистрMe.ClientName = UCase (Me.ClientName)Конец подписки |
