La estructura WITH en VBA nos permite ejecutar un conjunto de instrucciones sin tener que volver a hacer referencia al mismo objeto.
Aplicaremos dicha estructura para ayudar a identificar la situación crediticia de clientes de una entidad financiera, tomando como base que la SBS identifica que las operaciones con mayor a 90 días de atraso son consideradas en el estado VENCIDO, mientras que las operaciones menores dichos días son VIGENTES. Cabe recalcar que esta norma se aplica en reportes como el 2A-1 (APR-riesgo de crédito) para identificar a los clientes vencidos o no.
Utilizaremos la funcion WITH para poner en rojo a los clientes VENCIDOS y en otro color a los clientes VIGENTES con un una letra cursiva y negrita.
La estructura fue la siguiente:
Sub Situacion_Crediticia()
Dim N
N = 2
Do While Cells(N, 4) <> 0
Cells(N, 4).Select
If Selection.Value < 90 Then
With Selection.Font
.Name = "times new roman"
.Size = 11
.ColorIndex = 55
End With
Cells(N, 5).Value = "Vigente"
Cells(N, 5).Select
With Selection.Font
.Name = "times new roman"
.FontStyle = "bold italic"
.Size = 11
.ColorIndex = 55
End With
Else
With Selection.Font
.Name = "times new roman"
.Size = 11
.ColorIndex = 3
End With
Cells(N, 5).Value = "Vencido"
Cells(N, 5).Select
With Selection.Font
.Name = "times new roman"
.FontStyle = "bold italic"
.Size = 11
.ColorIndex = 3
End With
End If
N = N + 1
Loop
End Sub
(Para mayor visualización de la imagen, hacer click en la misma)
se adjunta archivo: WITH aplicado a definir la situación crediticia de un crédito
Por: Liliam Leonorhy