ВУЗ:
Составители:
88
Десять новых рабочих книг создаются в цикле For-Next посредством обращения
к методу Add семейства Workbooks. Затем вызывается метод Arrange семейства
Windows, который упорядочивает расположение окон на экране. Далее выполнение
программы приостанавливается, чтобы Вы могли увидеть результаты и прочитать
сообщение в информационном окне. Затем в цикле For Each с переменной цикла
Book все вновь созданные книги удаляются, а первоначально существовавшая книга
растягивается на полный экран.
.
2.10. Пользовательские типы и классы
Во всех средах программирования пользовательские типы данных предназначе-
ны для организации хранения (и использования) данных разных типов под одним
именем переменной. Известно, что классические массивы предназначены для хра-
нения данных одного типа. Однако в VBA есть универсальный тип данных Variant,
который позволяет в одном массиве хранить данные разного типа (см. пример
Pro10). Однако в сложных структурах целесообразно использовать классический
инструмент описания пользовательского типа Type, который обязывает явно опи-
сать все типы данных в записи, что облегчает отладку и поиск ошибок. Немаловаж-
ным является и то, что такая структура облегчает перенос кода в другие системы
программирования, в которых нет типа данных Variant.
2.10.1. Пользовательский тип данных Type
Пользовательский тип данных Type еще называют записью, а входящие в нее
переменные – полями, по аналогии с терминологией в базах данных. После слу-
жебного слова Type пишется слитно имя вводимого пользовательского типа данных,
например – ВязкостьНефти. Затем с новой строки перечисляются имена полей, и
указывается их тип из числа встроенных в VBA типов данных или пользовательских
типов, определенных выше. Заканчивается описание пользовательского типа слу-
жебным словом End Type. Используется объявленный пользовательский тип дан-
ных в следующих ниже подпрограммах при объявлении типов переменных (инст-
рукция Dim). А в выражениях к имени объявленной переменной пользовательского
типа необходимо добавлять через точку имя поля, которое предполагается исполь-
зовать в этом выражении. Тогда тот же пример Pro10 с применением инструкции
Type будет выглядеть так:
Type ВязкостьНефти
Пласт As String
Значение As Single
Дата As Date
End Type
Sub Pro38()
Dim D As ВязкостьНефти
D.Пласт = "АВ1"
D. Значение = 7.5
D. Дата = #3/21/1989#
MsgBox “Пласт ” & D.Пласт & ", вязкость " & D. Значение & “ мПа*с” & _
Страницы
- « первая
- ‹ предыдущая
- …
- 87
- 88
- 89
- 90
- 91
- …
- следующая ›
- последняя »
