Функции и возможности Visual Basic for Applications

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

Visual Basic for Applications в MS Excel предоставляет ряд встроенных функций, которые можно использовать для выполнения амортизационных расчетов. программирование информация visual basic.

Целью работы являлось изучение финансовых функций для расчета амортизации и разработка приложения решающего задачу, расчета амортизации в MS Excel с применением пользовательской формы и VBA.

Материалами исследования являлись Visual Basic for Applications и теоретические основы учета амортизации основных средств.

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

Для расчета амортизационных отчислений могут быть использованы различные принципы и методики.

Группа функций для расчета амортизации основных средств позволяет рассчитать амортизационные отчисления следующими методами:

• 1. линейным;
• 2. способом уменьшаемого остатка;
• 3. способом списания стоимости по сумме чисел лет срока полезного использования;
• 4. способом списания стоимости пропорционально объему продукции (работ).

Для расчета амортизационных отчислений необходимо знать, по крайней мере, три параметра:

• 1. начальная стоимость имущества;
• 2. остаточная стоимость по окончании эксплуатации;
• 3. продолжительность эксплуатации.

Метод постоянного учета амортизации, вычисляет амортизацию, используя фиксированную процентную ставку.

Метод к-кратного учета амортизации предполагает ускоренную амортизацию имущества. При этом амортизация является максимальной в первый период и снижается в последующие периоды.

В финансовый пакет VBA включены следующие функции для расчетов амортизации.

Функция SYD возвращает амортизацию учета основных средств на заданный период, используя метод постоянного учета амортизации. Функция DDB возвращает величину амортизации, используя метод к-кратного учета амортизации.

Синтаксис этих функций:

SYD (стоимость, остаток, время эксплуатации, период);

DDB (стоимость, остаток, время эксплуатации, период, коэффициент).

Аргументы функций представлены в табл. 1.

Таблица 1. — Аргументы функций VBA для расчета амортизации.

Для решения задачи вычисления амортизации оборудования по стандартному методу или методу к-кратного учета в MS Excel, с помощью редактора VBA было создано диалоговое окно Расчет амортизации (рис. 1.).

Для кнопки Вычислить записана следующая процедура:

Private Sub CommandButton1_Click ().

'Процедура расчета амортизации

Dim B As Double 'В-первоначальная стоимость оборудования

Dim E As Double 'Е-остаточная стоимость оборудования

Dim A As Double 'величина амортизации

Dim Ye As Integer 'Ye время полной амортизации

Dim Yc As Integer 'Yc-период, для которого рассчитывается амортизация

Dim k As Integer.

Dim Flag As Boolean 'логическая переменная, равная True, если амортизация

' рассчитывается стандартным образом, и False,

'если методом к-кратного учета

Dim n As Integer 'вспомогательная переменная

Dim j As Integer 'вспомогательная переменная

'Считывание в переменные данных из диалогового окна

B = CDbl (TextBox1.Text).

E = CDbl (TextBox2.Text).

Ye = CInt (TextBox3.Text).

Yc = CInt (TextBox4.Text).

'Проверка согласованности данных

If B < E Then.

MsgBox («Остаток больше начальной стоимости»).

Exit Sub.

End If.

If Ye < Yc Then.

MsgBox («Время полной амортизации меньше периода»).

Exit Sub.

End If.

'Определение переключателя флаг

If OptionButton1. Value = True Then.

Flag = True.

Else.

Flag = False.

End If.

'Расчет амортизации в зависимости от выбранного метода

If Flag = True Then.

A = Application. SYD (B, E, Ye, Yc).

Else.

k = CInt (TextBox6.Text).

A = Application. DDB (B, E, Ye, Yc, k).

End If.

'Вывод величины амортизации в диалоговом окне

If A >= 0.01 Then.

A = Format (A, «Fixed»).

Else.

A = 0.

End If.

TextBox5.Text = CStr (A).

'Подготовка рабочего листа для ввода данных изменение ширины столбцов и установка в них режима ввода текста с переносом

ActiveSheet.Columns («A»).Select.

With Selection.

.ColumnWidth = 30.

.WrapText = True.

End With.

ActiveSheet.Columns («B»).Select.

With Selection.

.ColumnWidth = 20.

.WrapText = True.

End With.

ActiveSheet.Range («B1»).Select.

'Ввод заголовков на рабочем листе

With ActiveSheet.

.Range («A1»).Value = «Начальная стоимость» .

.Range («A2»).Value = «Остаточная стоимость» .

.Range («A3»).Value = «Время полной амортизации» .

.Range («A4»).Value = «Период, для которого рассчитывается амортизация» .

.Range («A5»).Value = «Расчет выполнен» .

.Range («A6»).Value = «Величина амортизации» .

End With.

'Ввод данных в ячейки рабочего листа

With ActiveSheet.

.Range («B1»).Value = B.

.Range («B2»).Value = E.

.Range («B3»).Value = Ye.

.Range («B4»).Value = Yc.

.Range («B5»).Value = «Расчет выполнен» .

.Range («B6»).Value = A.

.Range («B5»).WrapText = True.

If Flag = True Then.

.Range («B5»).Value = «стандартным методом» .

Else.

.Range («B5»).Value = «методом» & CStr (k) & «кратного учета амортизации» .

End If.

End With.

End Sub.

Рис. 1.

Для кнопки Отмена записана следующая процедура:

Private Sub CommandButton2_Click ().

'процедура закрытия диалогового окна

UserForm1.Hide.

End Sub.

Процедура для переключателя 1:

Private Sub OptionButton1_Click ().

'процедура скрытия названия, поля и счетчика кратности амортизации

Label6.Visible = False.

TextBox6.Visible = False.

SpinButton1.Visible = False.

End Sub.

Процедура для переключателя 2:

Private Sub OptionButton2_Click ().

'процедура делает видимыми название, поле для ввода кратности амортизации и счетчик

Label6.Visible = True.

TextBox6.Visible = True.

SpinButton1.Visible = True.

End Sub.

Private Sub SpinButton1_Change ().

'процедура вводит значение счетчика в поле ввода

TextBox6.Text = CStr (SpinButton1.Value).

End Sub.

Процедура инициализации диалогового окна Расчет амортизации:

Private Sub UserForm_Initialize ().

'процедура активизирует диалоговое окно Расчет амортизации

'при инициализации окна выбран первый переключатель.

OptionButton1.Value = True.

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

TextBox5.Enabled = False.

Label6.Visible = False.

TextBox6.Visible = False.

SpinButton1.Visible = False.

'минимальное значение и шаг, с которым изменяется значение счетчика

With SpinButton1.

.Min = 2.

.SmallChange = 2.

End With.

UserForm1.Show.

End Sub.

Visual Basic for Applications в MS Excel — это сочетание языка программирования и всех вычислительных возможностей Excel. Благодаря наличию языка программирования в Excel возможно создание различных пользовательских программ, которые автоматизируют нестандартные задачи. Нами было создано диалоговое окно вычисления амортизации оборудования по стандартному методу или методу к-кратного учета.

• 1. Гарнаев, А. Использование MS Excel и VBA в экономике и финансах/А. Гарнаев. — СПб., 2001. 420 с.
• 2. Элькин, М. Д.

  Введение

  в компьютерное моделирование в среде VBA / М. Д. Элькин, Ю. В. Клинаев, А. М. Кац. — Саратов, 2004. 220 с.

• 3. Элькин, М. Д. Основы программирования в среде VBA в примерах и задачах / М. Д. Элькин, А. Г. Кушнер. — Саратов, 2006. 180 с.