Автоматизация оценки кредитоспособности клиентов коммерческого банка с помощью анализа делового риска

Страница 9

Програмная реализация проекта

Результатом выполненной работы явилось создание вспомогательной программы для оценки кредитоспособности клиентов коммерческого банка в среде Microsoft Excel ’97 (VBA –Visual Basic for Applications).

На стандартном листе Excel расположены факторы риска по категориям и соответствующее им колическтво баллов. Пользователь вводит название клиента, а затем отмечает правым щелчком мыши подходящие факторы. После введения всех данных необходимо нажать на кнопку «Счет». В результате этого высветится диалоговое окно с сообщением о кредитоспособности клиента и эта информация заносится в базу данных, расположеннную на листе «Результаты». На листе «Статистика» можно увидеть общую статистику всех клиентов (см. Приложение).

Для выбора факторов была написана следующая процедура :

Private Sub Worksheet BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Target.Column = 3 Then

If Target.Interior.ColorIndex = 8 Then

Target.Interior.ColorIndex = xlColorIndexNone

Else: Target.Interior.ColorIndex = 8

End If

Cancel = True

End If

End Sub

Для подсчета количества баллов, набранных клиентом и их сохранения в базе «Результаты» служит процедура:

Sub Кнопка4 Щелкнуть()

Dim st As String

s = 0

For Each c In Range("C1:C121")

If c.Interior.ColorIndex = 8 Then s = s + c.Value

Next c

Cells(124, 3).Value = s

Select Case s

Case Is > 250

st = "Заемщик надежный"

Case 200 To 249

st = "Заемщик с минимальным риском"

Case 150 To 199

st = "Заемщик со средним риском"

Case 100 To 149

st = "Заемщик с высоким риском"

Case Is < 99

st = "Заемщик с полным риском"

End Select

Response = MsgBox(st, vbOKOnly)

For i = 1 To 65535

If IsEmpty(Worksheets("Результаты").Cells(i, 2).Value) Then

Worksheets("Результаты").Cells(i, 2).Value = [Название].Value

Worksheets("Результаты").Cells(i, 3).Value = st

Exit For

End If

Next i

'

End Sub

На листе «Статистика» используются стандартные средства Excel:

- формулы для подсчета количества данных;

- диаграмма. Заключение

В процессе работы было установлено, что цель и задачи анализа кредитоспособности клиента заключаются в определении способности заемщика своевременно и в полном объеме погасить задолженность по ссуде, степени риска, который банк готов взять на себя; размера кредита, который может быть предоставлен в данных обстоятельствах и, наконец, условий его предоставления.

Результатом работы явилась программа, созданная средствами MS Excel, которая автоматизирует процесс определения кредитоспособности клиента коммерческого банка при помощи анализа делового риска.

Список используемой литературы

1.Банковское дело: Учебник / Под ред. О. И. Лаврушина. –М.: Финансы и статистика, 1999 г.

2.Батракова Л. Г. Экономический анализ деятельности коммерческого банка: Учебник для ВУЗов. –М.: «Логос», 1999 г.

3.Автоматизированные информационные технологии в экономике: Учебник / Под ред. Г. А. Титоренко. –М.: Компьютер, ЮНИТИ, 1998г.

4.Регламент предоставления кредитов юридическим и физическим лицам Сбербанком России и его филиалами. Комитет Сбербанка России по предоставлению кредитов и инвестиций, 1997 г.

Приложение.

Рис. 1 Главная форма.

Рис. 2 База данных.

Рис. 3 Лист "Статистика"