Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.82
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.82

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

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

If А >= 0.01 Then

А = Format(A, "Fixed")

Else

А = 0

End If

TextBox5.Text = CStr(A)

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

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

n = ActiveSheet.Shapes.Count

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

* созданных объектов Shape If n >= I Then

For j = 1 То n ActiveSheet.Shapes

.Select Selection.Delete Next j End If

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

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

Selection.ShapeRange.IncrementLeftlll# _ Selection.ShapeRanqe.IncrementTop -100.5 ' Изменение ширины столбцов А и В и установка 1 в них режима ввода текста с переносом 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("Bl").Select

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

With ActiveSheet

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

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

Программирование в среде Visual Basic for Applications

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

With ActiveSheet

.Range("Bl").Value = В

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta