Проблемы формирования собственного капитала коммерческого банка

Глава III. Создание системы расчета собственного капитала для расчета обязательных экономических нормативов средствами VBA в Excel.

3.1. Постановка  задачи

    Любой коммерческий банк рассчитывает обязательные экономические нормативы. К их числу  относится коэффициент достаточности  капитала (Н₁), который характеризует уровень участия собственного капитала банка в образовании его активов, рассчитывается по формуле:

    К / А _{взвешенные с учетом риска} * 100%.                               (3)

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

    Созданный программный продукт автоматизирует выполнение операций по расчету величины капитала. Программа написана на языке программирования Visual Basic for Application (VBA).  

    Программный продукт предоставляет пользователям  широкие возможности для оперативного расчета элементов капитала, входящих в состав собственных средств. Элементы капитала отличаются от элементов собственных средств банка.  
 
 
 
 
 
 
 
 
 

3.2. Разработка  пользовательского интерфейса

Рис. 6. Пользовательская форма

    Кнопка  «ЗАПИСАТЬ» нужна для записи данных, вводимых в форму на лист в Excel.

    Кнопка  «РАССЧИТАТЬ» рассчитывает данные, записанные в Excel.

    Кнопка  «СРАВНИТЬ» сравнивает итог по годам  и считает отклонения за период.

    Кнопка  «ОЧИСТИТЬ» очищает поля для нового ввода данных. 

3.3. Создание программного  кода для расчета  собственного капитала.

Для открытия пользовательской формы при запуске  программы Microsoft Excel используется следующий программный код:

Private Sub Workbook_Open()                     

UserForm1.Show

End Sub

Затем пользователю необходимо выбрать отчетную дату, на которую рассчитывается собственный  капитал. Для этого необходимо создать  список, в котором перечисляются  существующие параметры. Для создания списка используется следующая команда:

Private Sub UserForm_Activate()                     

ComboBox1.AddItem ("Январь")

ComboBox1.AddItem ("Апрель")

ComboBox1.AddItem ("Июль")

ComboBox1.AddItem ("Октябрь")

ComboBox2.AddItem ("2006")

ComboBox2.AddItem ("2007")

ComboBox2.AddItem ("2008")

End Sub 

После того, как пользователь выбрал необходимую для расчетов отчетную дату ему необходимо занести в специальные поля данные для расчета. При нажатии кнопки «ЗАПИСАТЬ» данные, введенные в поля, запишутся на лист, а при нажатии кнопки «РАСЧИТАТЬ» произведутся расчеты. Эти действия выполняют следующие программные коды:

Private Sub CommandButton1_Click()

If ComboBox2.ListIndex = 0 Then ThisWorkbook.Worksheets("2006").Activate      

ActiveSheet.Range("a1").Value = "Элементы капитала"

Range("b2").Value = "Тыс.рублей"

Range("c2").Value = "В % к итогу"

Range("a3").Value = "Уставный капитал"

Range("a4").Value = "Резервный капитал"

Range("a5").Value = "Эмиссионный  доход"

Range("a6").Value = "Переоценка стоимости  имущества"

Range("a7").Value = "Прибыль"

Range("a8").Value = "Расходы будущих периодов и предстоящие выплаты, влияющие на собственные средства"

Range("a9").Value = "ИТОГО (капитал)"

Range("a10").Value = "Всего источников  собственных средств"

Range("a11").Value = "Доля капитала  в сумме собственных  средств, %"

Range("b1").Value = ComboBox1.Text

Range("c1").Value = ComboBox2.Text

Range("b3").Value = TextBox1.Text

Range("b4").Value = TextBox2.Text

Range("b5").Value = TextBox3.Text

Range("b6").Value = TextBox4.Text

Range("b7").Value = TextBox5.Text

Range("b8").Value = TextBox6.Text

Range("b9").Value = TextBox7.Text

Range("b10").Value = TextBox8.Text

Range("b11").Value = TextBox9.Text

If ComboBox2.ListIndex = 1 Then ThisWorkbook.Worksheets("2007").Activate

ActiveSheet.Range("a1").Value = "Элементы капитала"

Range("b2").Value = "Тыс.рублей"

Range("c2").Value = "В % к итогу"

Range("a3").Value = "Уставный капитал"

Range("a4").Value = "Резервный капитал"

Range("a5").Value = "Эмиссионный  доход"

Range("a6").Value = "Переоценка стоимости  имущества"

Range("a7").Value = "Прибыль"

Range("a8").Value = "Расходы будущих периодов и предстоящие выплаты, влияющие на собственные средства"

Range("a9").Value = "ИТОГО (капитал)"

Range("a10").Value = "Всего источников  собственных средств"

Range("a11").Value = "Доля капитала  в сумме собственных  средств, %"

Range("b1").Value = ComboBox1.Text

Range("c1").Value = ComboBox2.Text

Range("b3").Value = TextBox1.Text

Range("b4").Value = TextBox2.Text

Range("b5").Value = TextBox3.Text

Range("b6").Value = TextBox4.Text

Range("b7").Value = TextBox5.Text

Range("b8").Value = TextBox6.Text

Range("b9").Value = TextBox7.Text

Range("b10").Value = TextBox8.Text

Range("b11").Value = TextBox9.Text

If ComboBox2.ListIndex = 2 Then ThisWorkbook.Worksheets("2008").Activate

ActiveSheet.Range("a1").Value = "Элементы капитала"

Range("b2").Value = "Тыс.рублей"

Range("c2").Value = "В % к итогу"

Range("a3").Value = "Уставный капитал"

Range("a4").Value = "Резервный капитал"

Range("a5").Value = "Эмиссионный  доход"

Range("a6").Value = "Переоценка стоимости  имущества"

Range("a7").Value = "Прибыль"

Range("a8").Value = "Расходы будущих  периодов и предстоящие  выплаты, влияющие  на собственные  средства"

Range("a9").Value = "ИТОГО (капитал)"

Range("a10").Value = "Всего источников  собственных средств"

Range("a11").Value = "Доля капитала  в сумме собственных средств, %"

Range("b1").Value = ComboBox1.Text

Range("c1").Value = ComboBox2.Text

Range("b3").Value = TextBox1.Text

Range("b4").Value = TextBox2.Text

Range("b5").Value = TextBox3.Text

Range("b6").Value = TextBox4.Text

Range("b7").Value = TextBox5.Text

Range("b8").Value = TextBox6.Text

Range("b9").Value = TextBox7.Text

Range("b10").Value = TextBox8.Text

Range("b11").Value = TextBox9.Text

End Sub 
 

Private Sub CommandButton2_Click()

If ComboBox2.ListIndex = 0 Then ThisWorkbook.Worksheets("2006").Activate

ActiveSheet.Range("b9").Formula = "=sum(b3:b7)-b8"

Range("c3").Formula = "=(b3/b9*100)"

Range("c4").Formula = "=(b4/b9*100)"

Range("c5").Formula = "=(b5/b9*100)"

Range("c6").Formula = "=(b6/b9*100)"

Range("c7").Formula = "=(b7/b9*100)"

Range("c8").Formula = "=(b8/b9*100)"

Range("c9").Formula = "=sum(c3:c7)-c8"

Range("b11").Formula = "=(b9/b10*100)"

If ComboBox2.ListIndex = 1 Then ThisWorkbook.Worksheets("2007").Activate

ActiveSheet.Range("b9").Formula = "=sum(b3:b7)-b8"

Range("c3").Formula = "=(b3/b9*100)"

Range("c4").Formula = "=(b4/b9*100)"

Range("c5").Formula = "=(b5/b9*100)"

Range("c6").Formula = "=(b6/b9*100)"

Range("c7").Formula = "=(b7/b9*100)"

Range("c8").Formula = "=(b8/b9*100)"

Range("c9").Formula = "=sum(c3:c7)-c8"

Range("b11").Formula = "=(b9/b10*100)"

If ComboBox2.ListIndex = 3 Then ThisWorkbook.Worksheets("2008").Activate

ActiveSheet.Range("b9").Formula = "=sum(b3:b7)-b8"

Range("c3").Formula = "=(b3/b9*100)"

Range("c4").Formula = "=(b4/b9*100)"

Range("c5").Formula = "=(b5/b9*100)"

Range("c6").Formula = "=(b6/b9*100)"

Range("c7").Formula = "=(b7/b9*100)"

Range("c8").Formula = "=(b8/b9*100)"

Range("c9").Formula = "=sum(c3:c7)-c8"

Range("b11").Formula = "=(b9/b10*100)"

TextBox7 = (Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)) - (Val(TextBox6.Value))

TextBox9 = (Val(TextBox7.Value) / Val(TextBox8.Value) * 100)

End Sub 

Для того чтобы сравнить расчетные денные за несколько лет при нажатии кнопки «СРАВНИТЬ» используется следующий программный код:

Private Sub CommandButton3_Click()

Worksheets("Сравнения").Activate

Range("b2").Value = Worksheets("2006").Range("b10")

Range("c2").Value = Worksheets("2007").Range("b10")

Range("d2").Value = Worksheets("2008").Range("b10")

Range("a2").Value = "ИТОГО (капитал)"

Range("a5").Value = "Отклонения за период"

Range("b4").Value = "2006-2007"

Range("c4").Value = "2007-2008"

Range("b1").Value = "2006"

Range("c1").Value = "2007"

Range("d1").Value = "2008"

Range("b5").Formula = "=(c2-b2)"