Excel Avanzado

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

Excel Avanzado

Funcion Cbool

| 2 Comments

CBool(expresión)

Devuelve una expresión que se ha convertido en tipo Variant de subtipo Boolean.

El argumento expresión es cualquier expresión válida.

Ejemplo:

Sub prueba()
Dim sText As String
sText = InputBox(“Entre su nombre completo:”)
If CBool(InStr(sText, “cruz”)) Then
MsgBox “El apellido ;cruz+ aparece en el nombre entrado”
End If
End Sub

Elaborado por: Maria Cruz

2 Comments

  1. Una sugerencia para mejorar el ejemplo, sería implementando la función LCase al texto, si ingresamor el Texto cruz en Mayúsculas no hay coincidencia y no hay resultado, también agregue un else con un mensaje con un texto adecuado:

    Sub FuncionCbool()
    Dim sText As String
    sText = InputBox(“Ingrese su nombre completo:”)
    sText = LCase(sText)
    If CBool(InStr(sText, “cruz”)) Then
    MsgBox “El apellido (cruz) aparece en el nombre ingresado”
    Else
    MsgBox “Texto No encontrado”
    End If
    End Sub

    • se ha mejorado el ejemplo; sin embargo, debemos tener en cuenta que la funcion Cbool considera lo siguiente:
      Tipo de datos que sólo tiene dos valores posibles, True (-1) o False (0). Las variables Boolean se almacenan como números de 16 bits (2 bytes).
      fuente: ayuda excel microsoft visual basic

Deja un comentario

Required fields are marked *.


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