Тексты процедур на VBA к главе 1

Const Start = 15'Фиксация базовой строки с формулами

1 Процедура копирования базовых формул (выполняется нажатием кнопки [Расчет])

Sub Credit_Value ()

If [Ставка] * [Срок] * [Сумма] * [Выплат] > 0 Then Finish = [СИ] .

Value + Start - 1 Cells (Start, "A"). Select

Selection. AutoFill Destination:=Range (Cells (Start, "A"), Cells (Finish, "A")), Type:=xlFillSeries

Range (Cells (Start, "B"), Cells (Start, "F")). Select

Selection. Copy

Range (Cells (Start + 1, "B"), Cells (Finish, "B")). Select ActiveSheet. Paste Application. CutCopyMode = False

Else

MsgBox ("Заданы не все параметры!") End If End Sub

1 Процедура очистки шаблона (выполняется нажатием кнопки [Очистить])

Sub Credit_Clear ()

Finish = [СИ] . Value + Start - 1

[Ставка] = ""

[Срок] = ""

[Сумма] = ""

[Выплат] = 1

[Тип] = О

If Start < Finish Then

Range (Cells (Start + 1, "A"), Cells (Finish, "F")). ClearContents

End If

End Sub

<< | >>

↑

Источник: Лукасевич И.Я.. Анализ финансовых операций. Методы, модели, техника вычислений: Учебн. пособие для вузов. — М.: Финансы, ЮНИТИ. - 400 с.. 1998

Еще по теме Тексты процедур на VBA к главе 1:

- Биржевая торговля - Биржевое дело - Государственные и муниципальные финансы в России - Государственный и муниципальный заказ - Государственный финансовый контроль - Деньги - Деньги и кредит - Деньги, кредит, банки - Державні і муніципальні фінанси в Україні - Инвестиции - Инвестиционное право - Кредит - Международные финансы - Налоги и налогообложение - Основы финансов - Финансовая терминология - Финансовое право - Финансовое прогнозирование - Финансовые риски - Финансовые рынки - Финансовый анализ - Финансовый контроль - Финансы и кредит - Финансы предприятий - Финансы, денежное обращение и кредит - Фінансова система України -

- Аудит - Банки - Бизнес - Бухгалтерский учет - Макро и Микроэкономика - Маркетинг - Менеджмент - Философия - Финансы - Экономика -