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

    20 – 50 % от суммы кредита                                 5

    50 – 100 % от суммы кредита                                10 

    Таблица 3.

 

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

     Результатом выполненной работы явилось создание вспомогательной программы для  оценки кредитоспособности клиентов коммерческого  банка в среде 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 Главная форма.