Excel Avanzado

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

Excel Avanzado
Ejm de la Funcion With para la Aprobacion de Creditos

Ejemplo de la Funcion With para la Aprobacion de Creditos

| 0 comments

La Funcion With se puede utilizar para dar una serie de propiedades a la celda como marcarla subrayarla o darle un color a las letras o distintas propiedades. Esta función nos puede ser muy útil para diversos temas ya que podemos programar para que la celda se ponga en negrita se subraye el valor o distintas propiedades con el fin de resaltar algún dato o de separar por categorías o cualquier característica que le queramos dar a nuestras celdas o resultado en especifico.

En esta oportunidad vamos a ver lo que es la Función With para ayudar a la evaluación crediticia de distintos clientes de un banco o una institución financiera la cual haya recibido una base de datos de clientes con sus respectivos sueldos brutos pero como en este caso solo van a calificar los clientes con un sueldo bruto mayor a 2000.00 nuevos soles utilizaremos la función with para poner en rojo a los clientes no aptos y en otro color a los clientes aptos con un subrayado de la letra y una letra cursiva veamos la pantalla inicial del cuadro de clientes:

Ejemplo Funcion With Para la Aprobacion de Creditos

(Para mayor visualización de la imagen, hacer click en la misma)

Ahora veamos como se aplica nuestra función With en el momento que escribimos y aplicamos los códigos del Visual Basic:

Aplicacion de la Funcion With

(Para mayor visualización de la imagen, hacer click en la misma)

Como vemos una vez aplicados nuestros códigos de VBA con la Funcion With podemos poner de color Rojo y con el calificativo de no apto a los clientes que no cumplen con la condición de sueldo bruto mayor a 2000.00 Nuevos soles y de color azul con el calificativo de Apto a los clientes que cumplen con la condición de sueldo de mayor a 2000.00 nuevos soles ademas agregamos el tipo de letra y el subrayado a nuestra función with.

La sintaxis que se utilizo para realizar este trabajo fue la SGT:

Sub Evaluacion_Crediticia()

N = 10
Do While Cells(N, 3) <> 0

Cells(N, 3).Select

If Selection.Value > 2000 Then

With Selection.Font
.Name = “Times New Roman”
.FontStyle = “Bold italic”
.Size = 11
.Underline = xlSingle
.ColorIndex = 55
End With

Cells(N, 4).Value = “APTO”
Cells(N, 4).Select

With Selection.Font

.Name = “Times New Roman”
.Size = 11
.ColorIndex = 55
End With

Else

With Selection.Font
.Name = “Times New Roman”
.FontStyle = “Bold italic”
.Size = 11
.Underline = xlSingle

.ColorIndex = 3
End With

Cells(N, 4).Value = “No APTO”
Cells(N, 4).Select

With Selection.Font

.Name = “Times New Roman”
.Size = 11
.ColorIndex = 3
End With

End If

N = N + 1
Loop

End Sub

De esta manera pudimos realizar un muy útil trabajo para el caso de evaluaciones crediticias ya que muchas veces las bases de datos que piden revisar son enormes y hay que revisar cada cliente que cumpla con los requisitos de sueldo y distintas características financieras con esta aplicación de VBA combinado con la función with podemos ayudarnos mucho en el día a día en las labores de un trabajador bancario o de algún tipo de institución financiera.

Aqui pueden revisar el archivo respectivo.

Ejemplo Funcion With Para la Aprobacion de Creditos

 

Saludos

Elaborado por: César Alfredo Valencia Doig.

 

Deja un comentario

Required fields are marked *.


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