Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
FUNCION VBA

Función CHR

| 3 Comments

Esta función se encarga de convertir un número del código ANSI(Del 0 al 255) en su carácter correspondiente.

Así por ejemplo, en el procedimiento que escribiremos en un módulo de VBA, se procederá a convertir el código ANSI ubicado en la celda A1 en su carácter correspondiente en la celda B2.

Sub f_chr()
codigo = Range(“a1”).Value
Range(“A2”).Value = Chr(codigo)
End Sub

Esta función podría emplearse también si una cadena de texto solo tuviese una relación de caracteres permitidos, se tendría en dicho caso que evaluar si cada uno de los caracteres de dicha cadena pertenecen o no  a la relación de caracteres permitidos, en este caso podría usarse en combinación con otras funciones como mid u otras funciones destinadas a la manipulación de textos.

Al igual que las demás funciones esta función no solo de puede emplear desde un módulo sino también desde un formulario o algún otro elemento del explorador de proyectos.

3 Comments

  1. función ventajosa para obtener los códigos ascii y que combinado con la función asc, puede ser de gran utilidad.

  2. jejje este codigo me gusto desde el principio y mi saco de apuros lo comparte se utiliza chr

    Sub breakit()

    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    On Error Resume Next
    For i = 65 To 66
    For j = 65 To 66
    For k = 65 To 66
    For l = 65 To 66
    For m = 65 To 66
    For i1 = 65 To 66
    For i2 = 65 To 66
    For i3 = 65 To 66
    For i4 = 65 To 66
    For i5 = 65 To 66
    For i6 = 65 To 66
    For n = 32 To 126
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    If ActiveSheet.ProtectContents = False Then
    MsgBox “La contraseña es: ” & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
    & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next

    End Sub

  3. como pongo una palomita de aceptado en un textbox

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5