Funciones de cadenas

Una expresión de cadena devuelve un valor  de datos de tipo String. A continuación veremos la mayoría de las funciones que trabajan con cadenas, previamente aquí tenemos un cuadro de las funciones de cadenas en Excel.

Asc(string) =Código de carácter ANSI correspondiente a la primera letra de la cadena.

Chr(código char)= Carácter que corresponde al código ASCII

CStr(expresión)=Convierte una expresión a String.

Format(expresión,formato)=La expresión en el formato especificado

Ejemplos:

Sub prueba()
Dim a As String
a = InputBox(«Introduzca una palabra», «Funciones de texto»)
Cells(1, 1) = Asc(a)
Cells(1, 2) = Chr(Cells(1, 1))
Cells(1, 3) = Format(Date, «dd / mmm /yyyy»)
Cells(1, 5).NumberFormat = «#,##0.00 €»

End Sub

(PD Cuando quiera insertar el símbolo euro presione alt gr+ 5)

También tenemos las siguientes expresiones para formatear expresiones:

FormatCurrency(expresión)=Expresión con formato de moneda.

FormatdateTime(expresión)=Id con formato de fecha y hora.

FormatPercent(expresión)=Id formato de porcentaje.

InStr(comienzo,posición1,posición2) Ejemplo: en la celda 1,1 previamente he insertado mi nombre completo, después ejecuto el siguiente código.

Sub prueba_dos()
Dim c, b As String
Dim i As Byte
b = Cells(1, 1)

c = InputBox(«Inserte la letra a buscar»)
MsgBox «La letra » & c & » que Vd busca se encuentra en la posición » & InStr(1, b, c)

End Sub

LCase(expresión)= Convierte a minúsculas y Ucase a mayúsculas. Para poner la primera letra en mayúsculas y el resto minúsculas usamos StrConv(cadena,vbPoperCase).Ejemplo:

Sub letras()
Dim b As String
b = InputBox(«Inserte su nombre»)
Cells(1, 1) = b
Cells(2, 1) = LCase(b)
Cells(3, 1) = UCase(b)
Cells(4, 1) = StrConv(b, vbProperCase)
End Sub

Otras funciones de cadenas:

Left(texto,Nchart)–>devuelve los primeros caracteres de una cadena

Right(id)–>nos devuelve los últimos

Midt(texto, Init, NChar)–>permite extraer del texto una serie de carácteres a partir de «Init».

Ejemplo:

Sub funciones_cadenas()
Dim palabra As String
palabra = InputBox(«Introduzca una palabra», «Funciones de cadenas»)
If Len(palabra) = 0 Then
MsgBox «ERROR»
GoTo salida
Else
[A1] = «La palabra que ha introducido ha sido » & palabra
[A2] = «La función left a partir de la 2ª letra devuelve el carácter :» & Left(palabra, 2)
[A3] = «La función right a partir de la 2ª letra devuelve el carácter :» & Right(palabra, 2)
[A4] = «La función Mid(palabra, 1, 2) devuelve :» & Mid(palabra, 1, 2)
[A5] = «Su palabra tiene » & Len(palabra) & » caracteres.»

End If
salida:

End Sub