Использование функций слева, справа, середины и len в Visual Basic для приложений в Excel

Сводка

В этой статье приведены примеры управления текстовыми строками с помощью функций Left, Right, Mid и Len в Microsoft Visual Basic для приложений в Microsoft Excel.

Дополнительная информация

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

Следующая процедура демонстрирует использование функций слева, справа, середины и Len в Microsoft Visual Basic для приложений в Microsoft Excel:

1. Создайте пустую книгу Excel.

2. Откройте Редактор Visual Basic, нажав клавиши ALT+F11.

3. В меню Вставка выберите Модуль.

4. Введите следующий макрос в новом листе модуля.

         Sub String_Len()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Displays length of string.
             MsgBox Prompt:="The length of the string is " & _
                 Len(MyString) & " characters."
         End Sub
   
         Sub String_Left()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the left number of specified characters.
             Result = Left(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The left " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Right()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the right number of specified digits.
             Result = Right(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The right " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Mid()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Sets starting position.
             StartPos = InputBox _
                 ("Give me a starting position (1 to " _
                 & Len(MyString) & ")")
             ' Determines length of string of text.
             StringLen = Len(MyString) - StartPos + 1
             ' Sets number of characters.
             NumChars = InputBox _
                 ("How many characters would you like? (From 1 to " & _
                 StringLen & ")")
             MsgBox prompt:="The result is: " & _
                 Mid(MyString, StartPos, NumChars)
         End Sub
   
   

Чтобы просмотреть пример функций Left, Right, Mid и Len, используйте одну из следующих процедур в соответствии с используемой версией Excel.

• В Microsoft Office Excel 2007 перейдите на вкладку Разработчик, щелкните Макросы в группе Код, выберите макрос для нужной функции и нажмите кнопку Выполнить.
• В Microsoft Office Excel 2003 и более ранних версиях Excel щелкните Макросы в меню Сервис , выберите макрос для нужной функции и нажмите кнопку Выполнить.

Ссылки

Для получения дополнительных сведений об этих функциях введите следующий текст на листе модуля:

• Len
• Right
• Left
• Mid

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