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

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: