Excel Avanzado

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

Excel Avanzado
Aplicacion de la Funcion With

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

 

Ahora veamos como se aplica nuestra funcion With en el momento que escribimos y aplicamos los codigos del Visual Basic:

Aplicacion de la Funcion With

Como vemos una vez aplicados nuestros codigos 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 condicion 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 condicion de sueldo de mayor a 2000.00 nuevos soles ademas agregamos el tipo de letra y el subrayado a nuestra funcion 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 util 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 caracteristicas financieras con esta aplicacion de VBA combinado con la funcion with podemos ayudarnos mucho en el dia a dia en las labores de un trabajador bancario o de algun tipo de institucion 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