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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

48
dblОстаточнаяСтоимость
.Range("B3").Value = intВремяАмортизации
.Range("B4").Value = intПериодРасчета
.Range("B5").WrapText = True
.Range("B6").Value = _
dblВеличинаАмортизации
If blnПризнак = True Then
.Range("B5").Value = "Стандартным _
Методом"
Else
.Range("B5").Value = "Методом " & _
CStr(k) & " кратного учета амортизации"
End If
End With
End Sub
Код процедуры обработки события Click кнопки «Завершить» (в
программе CommandButton2):
Private Sub CommandButton2_Click()
End
End Sub
Порядок выполнения приложения «Расчет амортизации»
1. Запускаем приложение нажатием на кнопку “Вычисление аморти-
зации” на рабочем листе Excel (рис. 3.2).
Рис. 3.2. Рабочий лист Excel с кнопкой запуска приложения 
                      dblОстаточнаяСтоимость
        .Range("B3").Value = intВремяАмортизации
        .Range("B4").Value = intПериодРасчета
        .Range("B5").WrapText = True
        .Range("B6").Value = _
                      dblВеличинаАмортизации
        If blnПризнак = True Then
             .Range("B5").Value = "Стандартным _
                         Методом"
        Else
             .Range("B5").Value = "Методом " & _
          CStr(k) & " кратного учета амортизации"
        End If
    End With
End Sub
     Код процедуры обработки события Click кнопки «Завершить» (в
программе CommandButton2):
Private Sub CommandButton2_Click()
    End
End Sub
   Порядок выполнения приложения «Расчет амортизации»
   1. Запускаем приложение нажатием на кнопку “Вычисление аморти-
      зации” на рабочем листе Excel (рис. 3.2).




      Рис. 3.2. Рабочий лист Excel с кнопкой запуска приложения


                                 48

Страницы