Funciones de cadenas
23 agosto, 2011 Deja un comentario
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