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:
(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:
(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.
08/08/2019 a las 7:16 pm
Muy interesante.
Quisiera saber si me pueden ayudar con algo, estoy haciendo un desarrollo para llevar el control del inventario en mi empresa, lo estoy realizando con macros,pero estoy pegado en un puntito y no e podido dar con la solución.
mira tengo una base de datos en una hoja , en la hoja de compras y de salidas quiero llamar los productos solo con digital el código del producto, lo hice con un for pero al digital el código ; si me llama los datos de ese producto identificado con ese código, pero también me trae toda la información de la base de datos.
no he podido solucionar el problema sera que me pueden ayudar