El Scoring es un sistema de evaluación automática de solicitudes de operaciones de crédito, tales como préstamos al consumo, hipotecas o concesiones de tarjetas de crédito.
Por tanto, el scoring es el sistema de evaluación automática más rápido y más seguro al cual se recurrirá a la hora de tener que determinar, por ejemplo, el otorgamiento o no de un crédito. En función de toda la información que se encuentra disponible en la base de datos de la entidad otorgante acerca del candidato en cuestión, el scoring permitirá predecir de manera inmediata y casi sin fisuras la probabilidad de morosidad. Asimismo, es de gran ayuda en el proceso de evaluación, comportamiento y cobranza, dado que es capaz de analizar en muy poco tiempo y de manera homogénea un volumen importante de información.
Por lo tanto, para emplear esta definición mediante el uso de macros con la función "If then Else" haremos un ejemplo con el banco BarcelonaCity:
(Para mayor visualización de la imagen, hacer click en la misma)
Además, como el análisis scoring es mediante data cuantitativa, se obtiene los factores de cada información:
Por lo tanto, para el cálculo del máximo monto a prestar de cada cliente es:
Monto Máximo a Prestar = Ingreso Neto*Factor Ingreso*Factor Carga Familiar*Factor Casa* Factor Estado Civil
si el monto máximo a prestar es menor que el préstamo solicitado, el cliente no podrá acceder al préstamo.
Este también se comprueba con el Puntaje Scoring, para este ejemplo, si el Scoring es mayor o igual a 2.85 se concederá el crédito, en cada contrario, se anula la petición,se calcula:
Puntaje Scoring = Factor Carga Familiar+Factor Casa+Facor Estado Civil
Los Resultados son:
(Para mayor visualización de la imagen, hacer click en la misma)
El uso del "If Then Else", se encuentra aquí:
(Para mayor visualización de la imagen, hacer click en la misma)
El Archivo en Excel: Descargar ejemplo de IF
04/09/2017 a las 10:58 am
Hola estimados...buenas tardes; ¿ se puede usar esta isntruccion ?
For i = 1 To nfilas
If (ht.Range("Ai")) > 0 Then
tx.Write ht.Cells(i + 1)
Else
i = (i + 1)
End If
i = (i + 1)
Next