Visual Basic for Applications. Практика. Нагина Е.К - 47 стр.

             vbExclamation, "Амортизация"
     TextBox3.SetFocus
     Exit Sub
End If
If OptionButton1.Value = True Then
     blnПризнак = True
Else
     blnПризнак = False
End If
If blnПризнак = True Then
   dblВеличинаАмортизации = _
   SYD(dblПервичнаяСтоимость, _
   dblОстаточнаяСтоимость, _
   intВремяАмортизации, intПериодРасчета)
Else
     TextBox6.SetFocus
     intКратность = CInt(TextBox6.Text)
     dblВеличинаАмортизации = _
     DDB(dblПервичнаяСтоимость, _
     dblОстаточнаяСтоимость, _
     intВремяАмортизации, intПериодРасчета)
End If
TextBox5.Text = CStr(dblВеличинаАмортизации)
ActiveSheet.Range("A1:F20").Clear
k = intКратность
ActiveSheet.Columns("A").Select
With Selection
     .ColumnWidth = 30
     .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 = "Величина _
                   амортизации"
     .Range("B1").Value = dblПервичнаяСтоимость
     .Range("B2").Value = _
                        47