Excel Avanzado

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

Excel Avanzado
MSGBOX 150x150, Función Mid para calificación crediticia

Función Mid para calificación crediticia

| 6 comentarios

La función Mid permite obtener un extracto de alguna palabra que haya sido predefinida como texto, es decir como string. La función mencionada opera de la siguiente manera:

Nota_crediticia

Para este ejemplo se quiere mostrar la calificación crediticia de un país en base a su crecimiento económico, por lo que el resultado debe hacer explicito que lo que se muestre en el cuadro de texto es la calificación y no otro indicador. Primero se define la variable como texto:

Dim resultado as String

Luego, se establece el extracto de la palabra que se quiere se muestre en el cuadro de mensaje, así:

resultado = Mid("Calificación", 1, 5)

  1. La palabra a resumir es Calificación,
  2. El valor de 1 implica el orden de la letra en la que se quiere comenzar a realizar la extracción,
  3. El valor de 5 implica el número de letras a extraer a partir del orden establecido en el paso anterior.

Con esto se busca que el cuadro de mensaje contenga la palabra "Calif"

Finalmente esa variable se incorpora en la opción select case:

Select Case region
Case "S"
If prom >= 5 Then MsgBox resultado & ":AA es atractivo para invertir" Else MsgBox resultado & ":CCC no invertir"
Case "A"
If prom >= 7 Then MsgBox resultado & ":AA es atractivo para invertir" Else MsgBox resultado & ":CCC no invertir"
Case "E"
If prom >= 3 Then MsgBox resulado & ":AA es atractivo para invertir" Else MsgBox resultado & ":CCC no invertir"

De esta manera el resultado que se obtiene es:

MSGBOX 30, Función Mid para calificación crediticia

 

Elaborado por Gino Beteta Vejarano

6 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.