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

Размещено на http://www.allbest.ru/

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

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 с.

Размещено на Allbest.ru

...