Составители:
64
проц
[Операторы]
едственно запрограммировать события класса нельзя, однако
свойс я других стандартных объектов VBA.
описания класса, реализующий задачу
рис. едуре из примера 17. Дополнительно в класс
введ ь количество строк таблицы.
илия() As String, Начислено() As Currency, Налог() As Currency, _
яют собой набор динамически объявляемых массивов.
ъявления связана с неопределенностью числа строк
конкретного объекта
im Размер_таблицы As Integer, Ставка_налога As Single
блицы)
мер_таблицы)
)
ено(i) = Cells(i + 1, 2) 'В первую ячейкe массива Начислено записывается
en
едуры с
заключены в круглые скобки
слено(i) < 0 Then
Начислено(i) = 0
Call. Параметры процедуры в круглые скобки не заключаются
_в_ячейке(i + 1, 2, "Сброс")
[Операторы]
[Имя=Выражение]
[Exit Function]
[Операторы]
End Property
Наконец, создаются методы класса, которые оформляются в виде обычных
едур Sub.
[Public или Private] [Static] Sub Имя [(СписокАргументов)]
End Sub
Примечание. Непоср
тва классов могут использовать событи
Пример 19. Пример программы
1. Метод класса основан на проц
ено свойство, позволяющее изменят
Dim Фам
К_Выдаче() As Currency
'Переменные класса представл
'Необходимость динамического об
'таблицы
D
Private Sub Class_Initialize()
Размер_таблицы = 4
Ставка_налога = 0.12
ReDim Фамилия(1 To Размер_та
ReDim Начислено(1 To Раз
ReDim Налог(1 To Размер_таблицы)
ReDim К_Выдаче(1 To Размер_таблицы)
End Sub
Private Sub Class_Terminate(
'Действия не предусматриваются
End Sub
Sub Расчет_заработной_платы()
For i = 1 To Размер_таблицы
Начисл
'содержимое второй строки и второй колонки исходной таблицы Excel
If Начислено(i) > 1000000 Th
Начислено(i) = 1000000
Call Изменение_цвета_шрифта_в_ячейке(i + 1, 2, "Желтый") 'Вызов проц
' ключевым словом Call. Параметры процедуры
Else
End If
If Начи
Изменение_цвета_шрифта_в_ячейке i + 1, 2, "Красный" 'Вызов процедуры без
' ключевого слова
Else
Call Изменение_цвета_шрифта
End If
Страницы
- « первая
- ‹ предыдущая
- …
- 62
- 63
- 64
- 65
- 66
- …
- следующая ›
- последняя »
