Curso Excel VBA y Macros – Cap. 33 – 10 Funciones VBA para el manejo de texto
Siguiendo con el tema de funciones, ahora veremos algunas funciones de VBA que nos ayudarán a manejar texto. Recordemos que tenemos funciones predefinidas para usar en celdas, así como funciones VBA que pueden usarse tanto en procedimientos como en celdas.
Este tema estará dividido en 3 partes.
-
Funciones para el manejo de texto.
-
Funciones de fecha y hora.
-
Funciones de conversión y formato.
Ver video Capítulo 33 Excel VBA & Macros
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
Listado de funciones VBA más usadas para el manejo de texto
La siguiente lista nos muestra las 10 funciones VBA para manejo de texto más usadas.
|
Nombre de la función |
Descripción |
|
InStr |
Devuelve la posición de una cadena de texto dentro de otra. |
|
LCase |
Convierte un texto a minúsculas. |
|
UCase |
Convierte un texto a MAYÚSCULAS. |
|
Left |
Devuelve cierta cantidad de caracteres desde la izquierda. |
|
Rigth |
Devuelve cierta cantidad de caracteres desde la derecha. |
|
Mid |
Devuelve cierta cantidad de caracteres dada una posición. |
|
Len |
Devuelve el número de caracteres de una cadena de texto |
|
Replace |
Reeemplaza una cadena de texto dentro de otra cadena. |
|
StrConv |
Devuelve una cadena de texto convertida a minúsculas, MAYÚSCULAS o Nombre propio. |
|
Trim |
Elimina espacios excesivos de una cadena de texto |
|
vbNewLine |
Inserta una nueva línea de texto en un Cuadro de mensaje MsgBox |
|
vbTab |
Añade un espacio de tabulación en un Cuadro de mensaje MsgBox |
Código VBA de las macros
Option Explicit
Sub Funciones_de_Texto()
Range("C6").Value = VBA.InStr(Range("C4"), Range("C5"))
Range("C8").Value = VBA.LCase(Range("B8"))
Range("C9").Value = VBA.UCase(Range("B9"))
Range("C10").Value = VBA.Left(Range("b10"), 5)
Range("C11").Value = VBA.Right(Range("b11"), 6)
Range("C12").Value = VBA.Mid(Range("B12"), 11, 5)
Range("C13").Value = VBA.Len(Range("B13"))
Range("C14").Value = VBA.Replace(Range("B14"), "Macros", "VBA")
Range("C15").Value = VBA.StrConv(Range("B15"), vbLowerCase)
Range("C16").Value = VBA.StrConv(Range("B16"), vbUpperCase)
Range("C17").Value = VBA.StrConv(Range("B17"), vbProperCase)
'Range("C18").Value = VBA.Trim(Range("B18"))
Range("C18").Value = Application.WorksheetFunction.Trim(Range("B18"))
MsgBox "Mensaje de prueba" & vbNewLine & "Otro mensaje"
MsgBox "Mensaje de:" & vbTab & "prueba"
End Sub
Descarga el archivo de ejemplo
033 – Funciones VBA para manejo de texto.zip
Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
