Uso de las funciones left, right, mid y len en Visual Basic para Aplicaciones en Excel

  • Artículo
  • Se aplica a:
    Microsoft Excel

Resumen

Este artículo contiene ejemplos de cómo manipular cadenas de texto mediante las funciones Left, Right, Mid y Len de Microsoft Visual Basic para Aplicaciones en Microsoft Excel.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento. Sin embargo, no modificarán estos ejemplos para proporcionar una funcionalidad adicional o procesos de construcción para que se cumplan sus requisitos específicos.

Para el procedimiento siguiente se muestra el uso de las funciones Left, Right, Mid y Len de Microsoft Visual Basic para Aplicaciones en Microsoft Excel:

  1. Cree un libro de Excel en blanco.

  2. Abra la Editor de Visual Basic presionando ALT+F11.

  3. En el menú Insertar, haga clic en Módulo.

  4. Escriba la siguiente macro en la nueva hoja de módulos.

          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

Para ver un ejemplo de las funciones Left, Right, Mid y Len, use uno de los procedimientos siguientes, según corresponda para la versión de Excel que está ejecutando:

  • En Microsoft Office Excel 2007, haga clic en la pestaña Desarrollador, en Macros en el grupo Código, seleccione la macro de la función que desee y, a continuación, haga clic en Ejecutar.
  • En Microsoft Office Excel 2003 y en versiones anteriores de Excel, haga clic en Macros en el menú Herramientas , seleccione la macro de la función que desee y, a continuación, haga clic en Ejecutar.

Referencias

Para obtener más información sobre estas funciones, escriba el texto siguiente en una hoja de módulo:

  • Len
  • Right
  • Left
  • Mid

Resalte la función sobre la que desea obtener más información y, a continuación, presione F1.