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

If А >= 0.01 Then

А = Format(А, "Fixed")

Else

А = О

End If

TextBoxS.Text = CStr(A)

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

Определение общего числа объектов Shape

на рабочем листе

п = ActiveSheet.Shapes.Count

Удаление с рабочего листа всех ранее

созданных объектов Shape

If п >= I Then

For j = 1 То n

ActiveSheet.Shapes

.Select Selection.Delete Next j End If

Создание объекта WordArt ActiveSheet.Shapes.AddTextEffeet (msoTextEffectl4, "Амортизация",

"Impact", 18#, msoTrue, msoFalse, .166.S, 10S#).Select f Сдвиг объекта WordArt

Selection.ShapeRange.IncrementLeftlll# Selection.ShapeRanqe.IncrementTop -100.S Изменение ширины столбцов A и В и установка в них режима ввода текста с переносом ActiveSheet.Columns("А").Select With Selection .ColumnWidth =3 0 .WrapText = True End With

ActiveSheet.Columns("B").Select With Selection .ColumnWidth =20 .WrapText = True End With

Снятие выделения со столбца В выбором одной ячейки

ActiveSheet.Range("BI").Select

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

With ActiveSheet

.Range("Al").Value = "Начальная стоимость" .Range("A2").Value = "Остаточная стоимость" .Range("A3").Value = "Время полной амортизации" .Range("А4").Value =

"Период, для которого рассчитывается амортизация" .Range("А5").Value = "Расчет выполнен" .Range("Аб").Value = "Величина амортизации" End With

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

With ActiveSheet

.Range("Bl").Value = В

.Range("В2").Value = E

.Range("B3").Value = Ye

.Range("B4").Value = Yc

.Range("Вб").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

Private Sub CornmandButton2 Click () Процедура закрытия диалогового окна UserForml.Hide End Sub

Private Sub OptionButtonl Click!)

Процедура скрывает название, поле и

счетчик для ввода

кратности амортизации

Labelб.Visible = False TextBox6.Visible = False SpinButtonl.Visible = False End Sub

Private Sub OptionButton2 Click()

Процедура делает видимыми название, поле для ввода

кратности амортизации и счетчик

Label б.Visible = True TextBox6.Visible =

True SpinButtonl.Visible = True End Sub

Private Sub SpinButtonl Change()

Процедура вводит значение счетчика в поле ввода TextBox6.Text = CStr(SpinButtonl.Value) ) End Sub

Private Sub UserForm.Initialized

Процедура активизирует диалоговое окно

Расчет амортизации

При инициализации окна выбран

первый переключатель

OptionButtonl.Value = True

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

TextBoxS.Enabled = False TextBox6.Visible = False

Labels.Visible = False SpinButtonl.Visible = False

Минимальное значение и шаг,

с которым изменяются значения счетчика

With SpinButtonl.Min = 2 .SmallChange = 2

End With

Функция кнопки Отмена выполняется по умолчанию

CommandButton2.Default = True

Нажатие клавиши Esc эквивалентно

нажатию кнопки Отмена

CommandButton2.Cancel = True

Функция кнопки Вычислить выполняется

по нажатии клавиш Alt+D

или на русской клавиатуре Alt+B

CommandButtonl.Accelerator = "D"

Функция кнопки Отмена выполняется

по нажатии клавиш Alt+J

или на русской клавиатуре Alt+0

CommandButton2.Accelerator = "J"

UserForml.Show

End Sub

Зфайя Правка &иа Встдека Фориат Сервис Данные Дкно 2

\уц к ч\шшт\

D I Е I-

Начальная стоимость

Остаточная стоимость

Время полной амортизации

Период, для которого рассчитывается амортизация

Расчет выполнен

Величина амортизации

10000 О 6 2

методом 2-кратного учета амортизации 2400

"I-I-I i-I г

Рис. 18.4. Отчет, выводимый на рабочем листе программой расчета амортизации